Laufzeitfehler
05.03.2008 19:02:00
KViertel
Folgendes Problem:
In einem Blatt, dass zur Datenaufnahme benutzt wird, habe möchte ich bei der Neuaufnahme eines Punktes das Blatt in ein Blancoblatt umwandeln. es sollen alle evtl. beschriebenen Zellen auf Null gestellt werden.
Dabei sind Zeilen für Komentare vorgesehen, die aus einer Liste per SVerweis übernommen werden. Da es aber auch möglich ist, dass einmalige Kommentare eingetragen werden, sollen die Formeln in den entsprechenden Zellen erneuert werden.
If n1 = "B26" Then
ws_t.Range(n1).Value = ""
ws_t.Range(n1).FormulaLocal = "=WENN(ZS(-1)>0;SVERWEIS(ZS(-1);Standort;2);"")"
n1 = "A26"
End If
Die entsprechenden Zellen werden aus einer Liste die mit For Each n1 in Selection abgearbeitet.
Die Zeile ws_t.Range(n1).Value = ""wird ordnungsgemäß ausgeführt, aber bei der folgenden Zeile erhalte ich einen Laufzeitfehler'1004'
Ich kann nicht erkennen warum?
Weiss jemand Rat?
MfG. Klaus