Hallo,
ich habe mal wieder ein neues Problem. Ich habe folgende Suchmaschine erstellt:
strInput = Application.InputBox _
("Bitte den gewünschten Suchbegriff eingeben", _
Default:="Prettl")
i = 1
'Suche starten
Sprungmarke:
Set objFind = ActiveSheet.Columns("B:B").Find(What:=strInput, _
After:=ActiveCell)
If objFind Is Nothing Then
MsgBox "Die gewünschte Firma wurde nicht gefunden"
Exit Sub
Else: MsgBox objFind
End If
Jetzt fehlt nur noch, dass der cursor nicht nur den gefundenen Suchbegriff aktiviert, sondern auch per scroll diesen am Bildschirm anzeigt.
Wer weiss Rat?
Vielen Dank.
Gruss
Kerstin