das nachfolgende Makro, dem Archiv des Forums entnommen, möchte ich wie folgt ändern, bekomme es jedoch nicht hin, da die Makroaufzeichnung das nicht hergibt.
Private Sub CommandButton1_Click()
Rem suchen
such = InputBox("Suchbegriff eingeben")
For Each ws In Worksheets
ws.Select
On Error GoTo errorhandler
Cells.Find(What:=such, After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False).EntireRow.Select
Exit Sub
errorhandler:
Next ws
End Sub
1. Der zuletzt eingegebene Suchbegriff soll erhalten bleiben und somit beim erneuten Aufruf des Makros in der InputBox stehen.
2. Die Funktion Weitersuchen kann ich ebenfalls nicht einbauen.
Vielen Dank schon mal jetzt
Gruß
Klaus