Wenn ich dich richtig verstanden hab liegt dein Problem in Zeile 34
Set finden = Range("A4:A9999").Find(what:=eingabe)
Da es hier mitunter dazu kommen kann, dass nichts gefunden werden konnte, muss man bei der Find-Methode des Range-Objekts beachten, dass in diesem Fall die Objekt-Variable finden gleich Nothing (= Objekt nicht initialisiert) ist.
Also:
Set finden = Range("A4:A9999").Find(What:=eingabe, LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False)
If Not finden Is Nothing Then
'=> eingabe wurde gefunden
MsgBox "'" & eingabe & "' in Zelle " & finden.Address & " gefunden - Zellenwert = " & finden.Value & ".", "Erfolg."
Else
'=> eingabe wurde nicht gefunden
MsgBox "Code kann nicht gefunden werden!", vbOKOnly Or vbException, "Warnung!"
End If
Ich hoffe das hat dir (ein wenig) weiter geholfen.
PS: Mein Code oben ist blind getippt / nicht getestet (bin auf Arbeit und unter Ubuntu ;o) ).
PPS: Warnmeldungen kann man mit dem MsgBox-Flag vbException ausgeben.
|