Sub test()
Dim rngVersteckt As Range
Dim Zelle As Range
For Each Zelle In Range("A1:A100")
If Zelle.RowHeight = 0 Then
If rngVersteckt Is Nothing Then
Set rngVersteckt = Zelle
Else
Set rngVersteckt = Union(rngVersteckt, Zelle)
End If
End If
Next
If Not rngVersteckt Is Nothing Then Set Zelle = rngVersteckt.Find(what:="xxx")
Debug.Print Zelle.Address
End Sub
Sub in_allen_finden()
Dim rngVersteckt As Range
Dim Zelle As Range
Dim firstAddress
Set rngVersteckt = ActiveSheet.Cells
If Not rngVersteckt Is Nothing Then ' Wenn es ausgeblendete Zeilen gibt suche _
suchbegriff
Set Zelle = rngVersteckt.Find(what:="xxx")
If Not Zelle Is Nothing Then
firstAddress = Zelle.Address
Do
Rows(Zelle.Row).RowHeight = 20
'MsgBox Zelle.Address
Set Zelle = rngVersteckt.FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address firstAddress
End If
End If 'Nichts gefunden !
End Sub
Um in Excel in ausgeblendeten Zeilen zu suchen, kannst du die VBA-Programmiersprache verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne den VBA-Editor:
ALT + F11, um den VBA-Editor zu öffnen.Erstelle ein neues Modul:
Füge den folgenden Code ein:
Sub in_allen_finden()
Dim rngVersteckt As Range
Dim Zelle As Range
Dim firstAddress
Set rngVersteckt = ActiveSheet.Cells
If Not rngVersteckt Is Nothing Then
Set Zelle = rngVersteckt.Find(what:="xxx")
If Not Zelle Is Nothing Then
firstAddress = Zelle.Address
Do
Rows(Zelle.Row).RowHeight = 20
Set Zelle = rngVersteckt.FindNext(Zelle)
Loop While Not Zelle Is Nothing And Zelle.Address <> firstAddress
End If
End If
End SubPasse den Suchbegriff an:
"xxx" im Code durch das Wort, das du suchen möchtest.Führe das Makro aus:
F5 oder gehe zu „Ausführen“ > „Sub/UserForm ausführen“ und wähle dein Makro aus.Fehler: Nichts wird gefunden
Lösung: Überprüfe, ob du den richtigen Suchbegriff angegeben hast. Achte darauf, dass die Schreibweise genau übereinstimmt.
Fehler: Der Code funktioniert nicht für alle Zeilen
Lösung: Stelle sicher, dass deine ausgeblendeten Zeilen tatsächlich die gesuchten Daten enthalten und dass der Suchbereich korrekt definiert ist.
Falls du nicht mit VBA arbeiten möchtest, kannst du folgendes versuchen:
Verwendung von Filter: Aktiviere den Autofilter in Excel und filtere nach den gewünschten Werten. So kannst du schnell die sichtbaren und ausgeblendeten Zeilen prüfen.
Makro zur Zusammenfassung: Schreibe ein Makro, das die ausgeblendeten Zellen in einem neuen Arbeitsblatt zusammenführt, um die Suche zu erleichtern.
Hier sind einige praktische Beispiele, die dir helfen, das Suchen in ausgeblendeten Zeilen zu verstehen:
Beispiel 1: Suche nach einem bestimmten Namen
Ändere den Code, um nach einem Namen in der Spalte A zu suchen:
Set Zelle = rngVersteckt.Find(what:="Max Mustermann")Beispiel 2: Suche in einem spezifischen Bereich
Du kannst den Bereich anpassen:
Set rngVersteckt = Range("A1:A100")FindNext: Wenn du mehrere Treffer erwartest, nutze FindNext, um alle gefundenen Zellen durchzugehen.1. Kann ich auch nach Zahlen in ausgeblendeten Zeilen suchen?
Ja, der Code funktioniert auch mit Zahlen. Ersetze einfach den Suchbegriff durch die gewünschte Zahl.
2. Wie kann ich den Code anpassen, um nur in bestimmten Spalten zu suchen?
Ändere die Zeile Set rngVersteckt = ActiveSheet.Cells in Set rngVersteckt = Range("A:A"), um nur in Spalte A zu suchen.
3. Gibt es eine Möglichkeit, die gefundenen Zellen hervorzuheben?
Ja, du kannst zusätzliche Zeilen im Code hinzufügen, um die Hintergrundfarbe der gefundenen Zellen zu ändern:
Zelle.Interior.Color = RGB(255, 255, 0) ' Gelb4. Ist dieser Code auch in Excel 365 anwendbar?
Ja, der Code funktioniert in allen Versionen von Excel, die VBA unterstützen.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen