Supportnet Computer Supportnet Games Supportnet Kochen Explipedia
Login: guestBesucher online: 155
Supportnet Computerforum
SUPPORT
Home
Forum
Tipps & Infos
Blitz Angebote
Members
Hilfe
Video

TOP THEMEN
SSD Test
Alles über SSDs

Android Tipps
iPad Tipps
Google Tipps
Windows 8 FAQ
Windows 7 FAQ
E-Mail FAQ
Netzwerk FAQ
Festplatten FAQ
Datenrettung FAQ
Bildbearbeitung FAQ

Top iPhone Apps
Computer Einsteiger
Die 5 besten...
Explipedia
Themen
Direktlinks

Neue Einträge
News einsenden News einschicken
Tipps einsenden Tipp einschicken

SN-LINKS

Suche
Befreundete Seiten
Top Seiten

Supportnet/Forum/Tabellenkalkulation



Supportnet/Forum/Tabellenkalkulation
von happy1998 vom 01.09.2017, 12:53 Diese Seite den Supportnet Favoriten hinzufügen  Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden


Hyperlink auf anderes Tabellenblatt

 (293 Hits)

Hallo,

kann ich dien Inhalt einer Zelle auf einem anderen Tabellenblatt suchen (Sverweis ?) und dann nach einem klick auf die Zelle (Hyperlink) in die Zelle mit dem gefundenen Inhalt springen?

Bsp.:
In Tabellenblatt Zusammenfassung steht der Wert: 12345

Diesen Wert finde ich in einer Spalte des Tabellenblattes Rohdaten.

Ich möchte mir ggf. die Rohdaten anschauen und möchte nicht suchen, sondern durch einen Klick direkt auf den Datensatz springen...

Danke vorab :)


Antwort schreiben 50 Bonuspunkte

Antworten...
Antwort 1 von coros-o-Cokkie vom 02.09.2017, 16:57 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo happy1998!

Eine Möglichkeit wäre das über einen VBA-Code zu realisieren. Nachfolgender Code muss in das VBA-Projekt des Tabellenblatts „Zusammenfassung“ kopiert werden. Der Code reagiert auf das Anwählen jeder Zelle. Es wird der Wert aus der angewählten Zelle ausgelesen und dann im Tabellenblatt „Rohdaten“ in Spalte B nach diesem Wert gesucht. Wurde der Wert gefunden, wir das Blatt „Rohdaten aufgerufen und die Zelle mit dem gefundenen Wert markiert.

Hier nun der VBA-Code:

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngSuchbereich          As Range

Dim intArrayIndex           As Integer
Dim intAddress              As Integer
Dim intAbfrage              As Integer

Dim strFindAddressArry()    As String
Dim strFirstFindAddress     As String

'Wenn mehr als eine zelle markiert wurde, dann an dieser Stelle den Code beenden
If Target.CountLarge > 1 Or IsError(Target) Then Exit Sub

'Wenn in der markierten Zelle ein Eintrtag vorhanden ist...
If Target.Cells.Value > "" Then
    
    'Im Blatt "Rohdaten" in SPalte B nach Übereinstimmungen suchen
    Set rngSuchbereich = Sheets("Rohdaten").Columns(2).Find(What:=Target.Cells, _
                            LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=True)
                                    
    'Wenn in "rngSuchbereich" etwas zurückgegeben wird
    If Not rngSuchbereich Is Nothing Then
        
        'Die gefundene Adresse in Variable "strFirstFindAddress" schreiben, wird benötigt, wenn man mehrere Ergebnisse zu erwarten hat.
        strFirstFindAddress = rngSuchbereich.Address
    
        Do
            'Zähler um die Zahl 1 erhöhen
            intArrayIndex = intArrayIndex + 1
            
            'Die Arrayvariable neu dimensionieren
            ReDim Preserve strFindAddressArry(1 To intArrayIndex)
            
            'Die Zeilennummer in die Arrayvariable schreiben
            strFindAddressArry(intArrayIndex) = rngSuchbereich.Row
    
            'Nach der nächsten Übereinstimmung suchen
            Set rngSuchbereich = Sheets("Rohdaten").Columns(2).FindNext(rngSuchbereich)
        Loop While Not rngSuchbereich Is Nothing And rngSuchbereich.Address <> strFirstFindAddress
    
    End If
    
    If UBound(strFindAddressArry) > 0 Then
        'Blatt "Rohdaten" aufrufen
        Sheets("Rohdaten").Activate
        
        'Schleife um das eventuell gefüllte Array auszuwerten
        For intAddress = 1 To UBound(strFindAddressArry)
        
            'im Tabellenblatt "Rohdaten" die Zeile aus dem Array in Spalte B markieren
            Sheets("Rohdaten").Cells(CInt(strFindAddressArry(intAddress)), 2).Select
            
            'Wenn mehr als ein Eintrag im Array eine Abfrage anzeigen ob die nächste Übereinstimmung aufgerufen werden soll
            If intAddress < UBound(strFindAddressArry) Then _
                intAbfrage = MsgBox("Nächste Übereinstimmung anzeigen?", vbQuestion + vbYesNo, "Frage...")
            
            'Wenn Auswahl "Nein", dann an dieser Stelle den Code beenden
            If intAbfrage = 7 Then Exit Sub
        Next
    End If
    
    'Variable zurücksetzen
    Set rngSuchbereich = Nothing
End If
End Sub



Wenn Du in einer anderen Spalte als in Spalte B im Blatt „Rohdaten“ Übereinstimmungen suchen möchtest, dann musst Du die Zahl 2 in den Codezeilen

Set rngSuchbereich = Sheets("Rohdaten").Columns(2).Find(What:=Target.Cells, _

Set rngSuchbereich = Sheets("Rohdaten").Columns(2).FindNext(rngSuchbereich)

Sheets("Rohdaten").Cells(CInt(strFindAddressArry(intAddress)), 2).Select

gegen eine andere tauschen. Hierbei gilt, die Zahl 1 ist Spalte A, die Zahl 2 ist Spalte B, Zahl 3 die Spalte C usw.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 2 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.\n\nBei Fragen melde Dich.

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.


Antwort noch nicht bewertet
Antwort 2 von coros-o-Cokkie vom 02.09.2017, 18:38 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hi,

ich nochmal. Bei obigem Code trat ein Fehler auf, wenn es zu dem Suchbegriff keine Gegenstelle gefunden wurde. Daher hier nochmal den geänderte VBA-Code.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rngSuchbereich          As Range

Dim intArrayIndex           As Integer
Dim intAddress              As Integer
Dim intAbfrage              As Integer

Dim strFindAddressArry()    As String
Dim strFirstFindAddress     As String

'Wenn mehr als eine zelle markiert wurde, dann an dieser Stelle den Code beenden
If Target.CountLarge > 1 Or IsError(Target) Then Exit Sub

'Wenn in der markierten Zelle ein Eintrtag vorhanden ist...
If Target.Cells.Value > "" Then
    
    'Im Blatt "Rohdaten" in SPalte B nach Übereinstimmungen suchen
    Set rngSuchbereich = Sheets("Rohdaten").Columns(2).Find(What:=Target.Cells, _
                            LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=True)
                                    
    'Wenn in "rngSuchbereich" etwas zurückgegeben wird
    If Not rngSuchbereich Is Nothing Then
        
        'Die gefundene Adresse in Variable "strFirstFindAddress" schreiben, wird benötigt, wenn man mehrere Ergebnisse zu erwarten hat.
        strFirstFindAddress = rngSuchbereich.Address
    
        Do
            'Zähler um die Zahl 1 erhöhen
            intArrayIndex = intArrayIndex + 1
            
            'Die Arrayvariable neu dimensionieren
            ReDim Preserve strFindAddressArry(1 To intArrayIndex)
            
            'Die Zeilennummer in die Arrayvariable schreiben
            strFindAddressArry(intArrayIndex) = rngSuchbereich.Row
    
            'Nach der nächsten Übereinstimmung suchen
            Set rngSuchbereich = Sheets("Rohdaten").Columns(2).FindNext(rngSuchbereich)
        Loop While Not rngSuchbereich Is Nothing And rngSuchbereich.Address <> strFirstFindAddress
    
    End If
    
    If intArrayIndex > 0 Then
        'Blatt "Rohdaten" aufrufen
        Sheets("Rohdaten").Activate
        
        'Schleife um das eventuell gefüllte Array auszuwerten
        For intAddress = 1 To UBound(strFindAddressArry)
        
            'im Tabellenblatt "Rohdaten" die Zeile aus dem Array in Spalte B markieren
            Sheets("Rohdaten").Cells(CInt(strFindAddressArry(intAddress)), 2).Select
            
            'Wenn mehr als ein Eintrag im Array eine Abfrage anzeigen ob die nächste Übereinstimmung aufgerufen werden soll
            If intAddress < UBound(strFindAddressArry) Then _
                intAbfrage = MsgBox("Nächste Übereinstimmung anzeigen?", vbQuestion + vbYesNo, "Frage...")
            
            'Wenn Auswahl "Nein", dann an dieser Stelle den Code beenden
            If intAbfrage = 7 Then Exit Sub
        Next
    End If
    
    'Variable zurücksetzen
    Set rngSuchbereich = Nothing
End If
End Sub


Alles weitere ist wie in meiner 1. Antwort beschrieben.

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.


Antwort noch nicht bewertet
Antwort 3 von happy1998 vom 07.09.2017, 11:23 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo coros-o-Cokkie,

sorry für die späte Rückmeldung ):
Das Makro habe ich heute erst ausprobieren können & es funktioniert !

Habe lediglich Spalte B in G (2 in 7) in den Rohdaten anpassen!!

Daanke!!

Hätte aber noch eine Frage / Bitte:

Im Tabellenblatt Zusammenfassung funktioniert das Makro durch Auswahl oder klicken der Zelle in Spalte B und C.
Wie lässt sich denn die Funktion für Zellen in C deaktivieren?

Wäre auch ein Doppelklick notwendig?


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 4 von coros-o-Cockies vom 07.09.2017, 20:13 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo happy1998!

Dann sieht der Code wie folgt aus:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngSuchbereich          As Range

Dim intArrayIndex           As Integer
Dim intAddress              As Integer
Dim intAbfrage              As Integer

Dim strFindAddressArry()    As String
Dim strFirstFindAddress     As String

'Wenn mehr als eine zelle markiert wurde, dann an dieser Stelle den Code beenden
If Target.CountLarge > 1 Or IsError(Target) Then Exit Sub

'Wenn ein Doppelklick in einer anderen Spalte als B getätigt wurde Prozdur beenden
If Target.Column <> 2 Then Exit Sub

'Wenn in der markierten Zelle ein Eintrtag vorhanden ist...
If Target.Cells.Value > "" Then
    
    'Im Blatt "Rohdaten" in SPalte B nach Übereinstimmungen suchen
    Set rngSuchbereich = Sheets("Rohdaten").Columns(7).Find(What:=Target.Cells, _
                            LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=True)
                                    
    'Wenn in "rngSuchbereich" etwas zurückgegeben wird
    If Not rngSuchbereich Is Nothing Then
        
        'Die gefundene Adresse in Variable "strFirstFindAddress" schreiben, wird benötigt, wenn man mehrere Ergebnisse zu erwarten hat.
        strFirstFindAddress = rngSuchbereich.Address
    
        Do
            'Zähler um die Zahl 1 erhöhen
            intArrayIndex = intArrayIndex + 1
            
            'Die Arrayvariable neu dimensionieren
            ReDim Preserve strFindAddressArry(1 To intArrayIndex)
            
            'Die Zeilennummer in die Arrayvariable schreiben
            strFindAddressArry(intArrayIndex) = rngSuchbereich.Row
    
            'Nach der nächsten Übereinstimmung suchen
            Set rngSuchbereich = Sheets("Rohdaten").Columns(7).FindNext(rngSuchbereich)
        Loop While Not rngSuchbereich Is Nothing And rngSuchbereich.Address <> strFirstFindAddress
    
    End If
    
    If intArrayIndex > 0 Then
        'Blatt "Rohdaten" aufrufen
        Sheets("Rohdaten").Activate
        
        'Schleife um das eventuell gefüllte Array auszuwerten
        For intAddress = 1 To UBound(strFindAddressArry)
        
            'im Tabellenblatt "Rohdaten" die Zeile aus dem Array in Spalte B markieren
            Sheets("Rohdaten").Cells(CInt(strFindAddressArry(intAddress)), 7).Select
            
            'Wenn mehr als ein Eintrag im Array eine Abfrage anzeigen ob die nächste Übereinstimmung aufgerufen werden soll
            If intAddress < UBound(strFindAddressArry) Then _
                intAbfrage = MsgBox("Nächste Übereinstimmung anzeigen?", vbQuestion + vbYesNo, "Frage...")
            
            'Wenn Auswahl "Nein", dann an dieser Stelle den Code beenden
            If intAbfrage = 7 Then Exit Sub
        Next
    End If
    
    'Variable zurücksetzen
    Set rngSuchbereich = Nothing
End If

End SubOption Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngSuchbereich          As Range

Dim intArrayIndex           As Integer
Dim intAddress              As Integer
Dim intAbfrage              As Integer

Dim strFindAddressArry()    As String
Dim strFirstFindAddress     As String

'Wenn mehr als eine zelle markiert wurde, dann an dieser Stelle den Code beenden
If Target.CountLarge > 1 Or IsError(Target) Then Exit Sub

'Wenn ein Doppelklick in einer anderen Spalte als B getätigt wurde Prozdur beenden
If Target.Column <> 2 Then Exit Sub

'Wenn in der markierten Zelle ein Eintrtag vorhanden ist...
If Target.Cells.Value > "" Then
    
    'Im Blatt "Rohdaten" in SPalte B nach Übereinstimmungen suchen
    Set rngSuchbereich = Sheets("Rohdaten").Columns(7).Find(What:=Target.Cells, _
                            LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=True)
                                    
    'Wenn in "rngSuchbereich" etwas zurückgegeben wird
    If Not rngSuchbereich Is Nothing Then
        
        'Die gefundene Adresse in Variable "strFirstFindAddress" schreiben, wird benötigt, wenn man mehrere Ergebnisse zu erwarten hat.
        strFirstFindAddress = rngSuchbereich.Address
    
        Do
            'Zähler um die Zahl 1 erhöhen
            intArrayIndex = intArrayIndex + 1
            
            'Die Arrayvariable neu dimensionieren
            ReDim Preserve strFindAddressArry(1 To intArrayIndex)
            
            'Die Zeilennummer in die Arrayvariable schreiben
            strFindAddressArry(intArrayIndex) = rngSuchbereich.Row
    
            'Nach der nächsten Übereinstimmung suchen
            Set rngSuchbereich = Sheets("Rohdaten").Columns(7).FindNext(rngSuchbereich)
        Loop While Not rngSuchbereich Is Nothing And rngSuchbereich.Address <> strFirstFindAddress
    
    End If
    
    If intArrayIndex > 0 Then
        'Blatt "Rohdaten" aufrufen
        Sheets("Rohdaten").Activate
        
        'Schleife um das eventuell gefüllte Array auszuwerten
        For intAddress = 1 To UBound(strFindAddressArry)
        
            'im Tabellenblatt "Rohdaten" die Zeile aus dem Array in Spalte B markieren
            Sheets("Rohdaten").Cells(CInt(strFindAddressArry(intAddress)), 7).Select
            
            'Wenn mehr als ein Eintrag im Array eine Abfrage anzeigen ob die nächste Übereinstimmung aufgerufen werden soll
            If intAddress < UBound(strFindAddressArry) Then _
                intAbfrage = MsgBox("Nächste Übereinstimmung anzeigen?", vbQuestion + vbYesNo, "Frage...")
            
            'Wenn Auswahl "Nein", dann an dieser Stelle den Code beenden
            If intAbfrage = 7 Then Exit Sub
        Next
    End If
    
    'Variable zurücksetzen
    Set rngSuchbereich = Nothing
End If

End Sub


Du musst Deinen alten VBA-Code löschen und dann obigen Code einfügen.

Übrigens, auch wenn Du nur unter Deinem Nicknamen hier postest, kannst Du mich ruhig mit meinem Realnamen ansprechen. Der steht immer am Ende eines Posts.

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.


Antwort noch nicht bewertet
Antwort 5 von happy1998 vom 11.09.2017, 10:22 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hi Oliver,

danke für Deine Mühe.

Bei Anwendung des Makros kommt folgende Fehlermeldung: "Mehrdeutiger Name: Worksheet_BeforeDoubleClick"
... und zwar egal auf welche Spalte ich doppelt klicke - in B steht mein Wert.

Eigentlich sollte ein Doppelklick auf andere Spalten unwirksam sein...

VG
Matthias


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 6 von coros-o-Cockies vom 11.09.2017, 10:29 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Matthias!

Wohin hast Du den Code kopiert?

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.


Antwort noch nicht bewertet
Antwort 7 von happy1998 vom 11.09.2017, 12:39 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo

der Code steht in der Tabelle Zusammenfassung; also wie bisher in der Tabelle aus der heraus der Doppelklick erfolget.


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 8 von happy1998 vom 11.09.2017, 13:52 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Oliver,

liegt es vlt. daran, dass ich nur die Hälfte des Codes eingeben soll?

Z.B.
Private Sub Worksheet_BeforeDoubleClick(...
bis
End Sub

und die erste Hälfte weglassen soll?
ab
Option Explicit

bis
End SubOption Explicit

??


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 9 von coros-o-Cockies vom 11.09.2017, 14:08 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Matthias!

Ja, sorry, da habe ich auf versehen 2x den Code kopiert. Du musst den unteren Teil ab "End Sub" weglassen. Also nur:

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim rngSuchbereich          As Range

Dim intArrayIndex           As Integer
Dim intAddress              As Integer
Dim intAbfrage              As Integer

Dim strFindAddressArry()    As String
Dim strFirstFindAddress     As String

'Wenn mehr als eine zelle markiert wurde, dann an dieser Stelle den Code beenden
If Target.CountLarge > 1 Or IsError(Target) Then Exit Sub

'Wenn ein Doppelklick in einer anderen Spalte als B getätigt wurde Prozdur beenden
If Target.Column <> 2 Then Exit Sub

'Wenn in der markierten Zelle ein Eintrtag vorhanden ist...
If Target.Cells.Value > "" Then
    
    'Im Blatt "Rohdaten" in SPalte B nach Übereinstimmungen suchen
    Set rngSuchbereich = Sheets("Rohdaten").Columns(7).Find(What:=Target.Cells, _
                            LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=True)
                                    
    'Wenn in "rngSuchbereich" etwas zurückgegeben wird
    If Not rngSuchbereich Is Nothing Then
        
        'Die gefundene Adresse in Variable "strFirstFindAddress" schreiben, wird benötigt, wenn man mehrere Ergebnisse zu erwarten hat.
        strFirstFindAddress = rngSuchbereich.Address
    
        Do
            'Zähler um die Zahl 1 erhöhen
            intArrayIndex = intArrayIndex + 1
            
            'Die Arrayvariable neu dimensionieren
            ReDim Preserve strFindAddressArry(1 To intArrayIndex)
            
            'Die Zeilennummer in die Arrayvariable schreiben
            strFindAddressArry(intArrayIndex) = rngSuchbereich.Row
    
            'Nach der nächsten Übereinstimmung suchen
            Set rngSuchbereich = Sheets("Rohdaten").Columns(7).FindNext(rngSuchbereich)
        Loop While Not rngSuchbereich Is Nothing And rngSuchbereich.Address <> strFirstFindAddress
    
    End If
    
    If intArrayIndex > 0 Then
        'Blatt "Rohdaten" aufrufen
        Sheets("Rohdaten").Activate
        
        'Schleife um das eventuell gefüllte Array auszuwerten
        For intAddress = 1 To UBound(strFindAddressArry)
        
            'im Tabellenblatt "Rohdaten" die Zeile aus dem Array in Spalte B markieren
            Sheets("Rohdaten").Cells(CInt(strFindAddressArry(intAddress)), 7).Select
            
            'Wenn mehr als ein Eintrag im Array eine Abfrage anzeigen ob die nächste Übereinstimmung aufgerufen werden soll
            If intAddress < UBound(strFindAddressArry) Then _
                intAbfrage = MsgBox("Nächste Übereinstimmung anzeigen?", vbQuestion + vbYesNo, "Frage...")
            
            'Wenn Auswahl "Nein", dann an dieser Stelle den Code beenden
            If intAbfrage = 7 Then Exit Sub
        Next
    End If
    
    'Variable zurücksetzen
    Set rngSuchbereich = Nothing
End If

End Sub


MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.


Antwort noch nicht bewertet
Diese Antwort hat das Problem gelöst!
Antwort 10 von happy1998 vom 11.09.2017, 14:26 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

okay

& Danke :)

hat mir sehr geholfen


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 11 von happy1998 vom 11.09.2017, 15:13 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

@ Oliver,

falls Du noch mal reinschaust. Wie ist denn der Befehlt dafür, dass in der Suchtabelle (Rohdaten) alle Filter gelöscht werden.

Die Suche funktioniert nämlich nur, wenn keine Filter aktiv sind.


Antwort noch nicht bewertet Als gute Antwort bewerten
Antwort 12 von coros-o-Cockies vom 11.09.2017, 16:19 Mißbrauch, Beleidigungen und Blödsinn den Moderatoren melden

Hallo Matthias!

Dann setze am Anfang des VBA-Codes folgende Zeile:

If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False


Dieser deaktiviert den Autofilter.

MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.


Antwort noch nicht bewertet




Antwort schreiben
    Bitte einen 'Nickname' wählen.
Nickname:*
    (eMail-Adresse wird nicht veröffentlicht.)
eMail:
Nachricht: Ich möchte bei Antworten benachrichtigt werden.
    Hilfe zur Beitragsformatierung gibts [hier]
                   
Antwort:*
  Die Nutzungsbedingungen habe ich gelesen und akzeptiert.

MACHEN SIE IHRE WEBSITE ATTRAKTIVER
Sie haben eine eigene Website und wollen Ihre Besucher auf den Supportnet-Service aufmerksam machen? Kopieren Sie einfach den Quellcode in Ihre Seite und jeder Besucher Ihrer Seite kann direkt auf die Supportnet-Datenbank zugreifen.

My Supportnet


SUCHE

Gruppen im Forum
Betriebsysteme
Software
Hardware
Netzwerk
Programmierung
Sonstiges

Impressum © 1997-2015 SupportNet
Version: supportware 1.8.230E / 18.10.2010, Startzeit:Sun Nov 12 22:19:35 2017