Ich hab ein Problem mit folgendem Makro (welches ein Exkollege mal erzeugt hat):
Sub DatenSuchen()
Dim zelle As Range
Dim Blatt As Worksheet
Dim str As String
str = InputBox _
("Bitte geben Sie den Suchbegriff ein!")
If str = "" Then Exit Sub
For Each Blatt In ActiveWorkbook.Sheets
For Each zelle In Blatt.UsedRange
If zelle = str Then
Blatt.Activate
zelle.Select
Erg = MsgBox("Willst Du weiter suchen?", vbYesNoCancel, " Hallo " & Environ("Username"))
If Not Erg = vbYes Then Exit Sub
End If
Next zelle
Next Blatt
MsgBox "Suchbegriff nicht gefunden!"
End Sub
Wenn wir dieses Makro starten, kann man in einem Eingabefeld einen bestimmten Suchbegriff eingeben und dann wenn man auf OK klickt, wird dieser Suchbegriff in der kompletten Datei gesucht! Wenn ein Eintrag gefunden wird, kommt die Abfrage willst Du weitersuchen?
Wenn kein Eintrag gefunden wird mehr, kommt ein blöder Laufzeitfehler '13' mit der Meldung Typen unverträglich. Wenn man dann auf Debuggen klickt ist das "If zelle = str Then" gelb markiert bzw. manchsmal auch "Next Blatt".
Kann man das Makro so ändern, daß wenn kein weiterer Eintrag gefunden wird, das makro automatisch stoppt und nicht der Laufzeitfehler erscheint?
wäre coooooooooooooooooool
danke schon mal für jeden tip!
lg Schnaggi