Makro zum Suchen "Enthält"
Larissa
ich habe ein Makro mit dem man Werte in einer Spalte sucht, aber ich hätte es gerne so, dass man auch nach einem Teil des Wertes suchen kann, also "enthält"...
Die Werte in der Spalte sind immer so aufgebaut: 94367-3209. Jetzt soll man auch nach 94367 oder 3209 suchen können. Weiß jemand, wie dieses Makro entsprechend angepasst werden müsste:
Sub suchen_weitersuchen()
Dim Sp5, lZeile2, Such, Frage
Sp5 = 5 '5.Suchspalte
'Ermittlung der absoluten letzten Zeile
lZeile2 = Cells(Rows.Count, 5).SpecialCells(xlLastCell).Row
Such = InputBox("Bitte geben Sie den Suchbegriff ein", "Suche")
If Such = "" Then Exit Sub
If IsNumeric(Such) Then Such = Such * 1
For I = lZeile2 To 1 Step -1
'Vorwärts: For i = 1 to lZeile2
If Cells(I, Sp5) = Such Then
Cells(I, Sp5).Offset(0, -2).Select
Frage = MsgBox("Ist dies der gesuchte Eintrag?", vbYesNo)
If Frage = vbYes Then Exit Sub
End If
Next I
MsgBox "Der gesuchte Eintrag wurde nicht gefunden"
End Sub
Anzeige