Hallo,
ich würde gern in einer Langen Tabelle in der zweiten Zeile Suchfelder für jede Spalte einfügen, die einen nach der Eingabe eines Suchwortes zu der entsprechenden Zelle in der Spalte bringen.
hierzu habe ich auch schon folgendes Makro gefunden:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zeile, laenge As Integer
If Target.Address = "$C$2" And Len(Target) <> 0 Then
laenge = Len(Target)
For Zeile = 3 To 10000
If Left(Cells(Zeile, 3), laenge) = Target Then
Cells(Zeile, 3).Select
Exit For
End If
Next Zeile
End If
End Sub
Allerdings komme ich hier nur zum ersten Treffer. Kann man dieses Makro noch so anpassen, dass ich gefragt werde ob ich weitersuchen möchte?
Vielen Dank schonmal für die Hilfe.
|