Zwei Suchbegriffe
08.03.2016 14:54:14
Burghard
ich habe ein funktionierendes Makro. In die Inputbox kann ich einen Suchbegriff eingeben. Ich würde die Inputbox aber gerne auf zwei Suchbegriffe erweitern. Geht das?
Sub Begriffe_suchen()
Dim ws As Worksheet, strBegriff As String, ze As Long, z As Long
Dim strInhalt As String
Set ws = ActiveWorkbook.ActiveSheet
strBegriff = LCase(InputBox("Suchbegriff:"))
If strBegriff = "" Then Exit Sub
ze = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
For z = 2 To ze
strInhalt = LCase(ws.Cells(z, 3) & " " & ws.Cells(z, 4))
If InStr(strInhalt, strBegriff) = 0 Then
ws.Rows(z).EntireRow.Hidden = True
End If
Next z
End Sub
Hilfe wäre nett.Grüße
Burghard