Marko ...doch noch mal anpassen!
07.02.2014 23:31:09
Lemmi
das nachfolgende Makro sollte einen Suchbegriff in der Spalte A suchen und den Mouse-Zeiger um eine Zelle weiter absetzen.
Das Aufgeführte Makro...
Sub SucheBegriff_Haus()
Const Suchbegriff = "Haus"
On Error GoTo ErrFund
Application.Goto Range(Columns("A:A").Find(What:=Suchbegriff, LookAt:=xlWhole, LookIn:= _
xlValues).Offset(1, 0).Address), True
Application.Goto ActiveCell.Offset(-1, 0), True
Application.Goto ActiveCell.Offset(1, 0)
Exit Sub
ErrFund:
MsgBox "Suchbegriff wurde nicht gefunden"
End Sub
....tut dies auch soweit ...aber nur in einem Sheet richtig. Weise ich einem zweiten Blatt das selbe Makro zu, so sprinkt der Zeiger zum ursprünglichen Blatt zurück.Ich möchte idelater weise das Makro so einsetzen, das der Suchbegriff in dem aktuellen Sheet sucht...mehr nicht.
Ein zweiters Sheet hat das selbe Makro zugewiesen bekommen.Das Makro arbeite nur das aktuelle Arebitsblatt ab. und sucht den Begriff Haus.
...könnt Ihr das Makro anpassen?
Gruß Lemmi