sichtbare Zeilen
04.04.2022 15:43:56
Thomas
ich kann mit dem untenstehenden Makro bestimmte Zeilen ausblenden.
Nun versuche ich gerade das Makro so umzuschreiben das nur in den sichtbaren Zeilen gesucht wird.
mit
Set sBereich = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
'sBereich.EntireRow.Hidden = True
klappt es leider nicht.
Ich erhalte zwar keine Fehlermeldung, aber es wird auch nichts gefunden.
Hat jemand einen Rat für mich?
Habt schon mal rechtvielen dank für euer interesse.
mfg thomas
Sub suchen_alles()
Dim sBereich As Range, sZeile As Range, sZelle As Range
Dim such As String
Application.ScreenUpdating = False
such = "***" & LCase(InputBox("Was suchst du?")) & "****"
If such = "**" Then 'wenn nichts eingegeben wird, werden alle Zeilen eingeblendet
Rows.Hidden = False
Exit Sub
End If
Set sBereich = ActiveSheet.UsedRange
'Set sBereich = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible)
sBereich.EntireRow.Hidden = True
sBereich.Range("1:4").EntireRow.Hidden = False 'Zeilen, die immer sichtbar bleiben
For Each sZeile In sBereich.Rows
For Each sZelle In sZeile.Cells
If LCase(sZelle) Like such Then
sZeile.Hidden = False
Exit For
End If
Next sZelle
Next sZeile
'Application.Goto Cells(1, ActiveCell.Column)
Application.Goto ActiveSheet.Range("A1"), True
Application.ScreenUpdating = True
Set sBereich = Nothing
End Sub