Fehlermeldung Wenn...
18.01.2013 11:27:18
walter
leider ich nochmal.
Habe dieses Makro auch übers Forum.
Leider kommt Fehlermeldung wenn ich eine Zahl eingebe und
diese nicht vorhanden ist.
laufzeitfehler 91
Objektvariable oder With...
nicht festgelegt.
Public Sub MS_suchen()
Dim Suchbegriff As String
Dim Weiter
Suchbegriff = InputBox(Chr(13) & Chr(13) & Chr(13) & "Suchbegriff: ", "Text oder Ziffer _
eingeben ")
On Error GoTo fehler
Cells.Find(What:=Suchbegriff, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
nochmal:
Weiter = MsgBox("Weitersuchen?", vbYesNo, "Text oder Ziffer eingeben ")
If Weiter = vbYes Then
Cells.FindNext(After:=ActiveCell).Activate
GoTo nochmal
End If
Exit Sub
fehler:
Weiter = MsgBox("Suchbegriff nicht gefunden!", vbInformation, "Ergebnis:")
End Sub