Vielen Dank für die schnelle Antwort.. deine Notizen habe ich vermerkt, sorry für die falsche Form!
Dann kommt die Fehlermeldung "Laufzeitfehler 91, Objektvariable oder With-Blockvariable nicht festgelegt".
Damit habe ich schon gerechnet.
Wenn Range.Find nichts findet, liefert es Nothing.
Set stelle = .Find(sachnummer, LookIn:=xlValues)
If IsEmpty(stelle) _
Then GoTo s_continue
ersetzen durch
Set stelle = .Find(sachnummer, LookIn:=xlValues)
If stelle Is Nothing _
Then GoTo s_continue
Das gleiche solltest du auch mit woche darüber machen.
PS: Dieses Fenster muss man einmalig mit STRG+G einblenden (Menü: Ansicht - Direktfenster) und man kann damit Befehle ausführen / schnell testen (das Fragezeichen davor sorgt für eine Ausgabe von dem was IsEmpty zurück gibt).
IsEmpty() nutzt man recht selten; nur im Zusammenhang von Variablen vom Typ Variant.
|