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