ich komme nicht mehr mehr weiter.
Ich möchte in Spalte D nach einem oder mehreren Werten suchen,
dessen Suchbegriff in D2 steht.
Es sollte ganz einfach nur zu dem Wert gesprungen werden und mit einem
Button dann zum nächsten usw.
Im Prinzip genauso, als ob ich mit der Suchen-Funktion arbeiten würde.
Ich habe mir per Makro-Recorder nachfolgenden Code aufgezeichnetund auch schon
ein bisschen bearbeitet (der Wert aus D2 wird automatisch ins Suchfeld übernommen):
Sub suchen_1()
titel = ActiveSheet.Range("D2")
Range("D3").Select
Cells.Find(What:=titel, After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
Cells.FindNext(After:=ActiveCell).Activate
End Sub
Wenn ich diesen Code mit der F8-Taste ausprobiere, funktioniert er eigentlich.
Aber wenn ich das Makro ausführe nicht mehr.
Wo liegt der Fehler, kann mir jemand helfen?
Vielen Dank im voraus.
Schöne Grüße
Erwin