MsgBox Weitersuchen
25.02.2004 10:11:35
oliver
ich möchte in eine bestehende Funktion siehe Formel die Option weitersuchen einbauen, wer kann mir die Funktion umschreiben oder helfen?
Sub SuchKunden()
Dim Mldg As Byte
Dim suche
suche = InputBox("bitte den Suchbegriff eingeben", "suche nach ..")
On Error GoTo Fehler
Range("A1").Select
Cells.Find(What:=suche, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Exit Sub
Fehler:
Mldg = MsgBox("Suchbegriff wurde in dieser Arbeitsmappe nicht gefunden", vbInformation, "Suchergebnis")
Exit Sub
End Sub
Anzeige