Codeerweiterung fürSuchen
Erwin
aus diesem Forum habe ich nachfolgenden Code für mich angepasst:
Sub Suchen()
Dim Eingabe As String
Dim Feld As Range
Dim Gefunden As Boolean
Dim Antwort As Long
Eingabe = InputBox("Bitte Aktenzeichen als Suckriterium eingeben", "Suchmaschine")
If Eingabe "" Then
For Each Feld In ActiveSheet.UsedRange
If InStr(UCase(CStr(Feld.Value)), UCase(Eingabe)) > 0 Then
Gefunden = True
Feld.Activate
Antwort = MsgBox("Weitersuchen?", vbQuestion + vbYesNo, "Frage")
If Antwort = vbNo Then
Exit For
End If
End If
Next Feld
If Gefunden = False Then
MsgBox "'" & Eingabe & "' nicht gefunden! Bitte Button >> Neuer Eintrag
Das passt eigentlich soweit, aber wenn ich einen Treffer habe und dann weitersuchen lasse und das Programm findet keinen weiteren Treffer, springt der Cursor nur auf A1; es kommt aber keine Meldung wie z. B. "nix mehr gefunden"
Wer kann mir das bitte einbauen?
Und was muss man machen, damit ein Button >> Neuer Eintrag Danke im Voraus
Erwin