Joesef E.! Anpassung der Spalten gescht
Fenja
gestern hast du mir nachfolgenden Code generiert, der auch wunderbar funktioniert. Er beschränkt sich jedoch in der Suche auf die Spalte 4.
Es hat sich als sinnvoll herausgestellt, dass man den Begriff in mehreren Spalten gleichzeitig suchen können sollte.
Ich habe mich mal daran versucht, es selbst hinzubekommen, aber da bin ich mangels VBA -Fähigkeiten gescheitert. Könntest du es so anpassen, dass in Spalten 4 bis 10 gesucht wird und dass man den Suchbegriff nicht abslut identisch schreiben muss. Quasi mit Wildcards vor/hinter des Suchbegriffes arbeiten kann.
Entschuldige, dass ich dich noch mal nerve, aber ich bekomme es nicht hin.
Danke Jo.
Sub Zeilen_ausblenden_die_nicht_gesucht_werden()
Dim lngRow As Long, lngLast As Long
Dim strFind As String, lngDate As Long, strS As String
Dim rngHide As Range
strFind = InputBox("Geben Sie den Suchbegriff oder ein Datum ein", "Suchbegriff", "Auswertung" _
_
_
)
If strFind = "" Then
MsgBox "Abbruch!" & vbLf & "Ungültiger Suchbegriff", vbExclamation, "Fehler"
Exit Sub
End If
If IsDate(strFind) Then
lngDate = CDate(strFind)
strS = ""
Else
lngDate = 99999
strS = strFind
End If
With Sheets("EG aktuell")
lngLast = Application.Max(3, .cells(.Rows.Count, 4).End(xlUp).Row)
.Range(.cells(3, 1), .cells(lngLast, 1)).EntireRow.Hidden = False
For lngRow = 3 To lngLast
If .cells(lngRow, 4).Value Anzeige