Suchfeld/Ausblenden - Erweiterung
29.03.2021 09:41:36
Bernd
kann mir bitte wer dabei helfen, wie man bei folgendem Code von Kuwe eine weitere Bedingung unter bekommt.
Und zwar sollen zusätzliche alle Zeilen eingeblendet bleiben, wenn in Spalte B der Inhalt blank ist.
Vielen Dank vorab, Gruß Bernd
Quelle:
http://www.office-loesung.de/ftopic15431_0_0_asc.php
Sub wegmit()
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
sBereich.EntireRow.Hidden = True
sBereich.Range("1:2").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.ScreenUpdating = True
End Sub