Laufzeitfehler 9
Artur
ich habe ein Problem mit dem untenstehenden Codeschnipsel. Manchmal läuft dieser Code ohne Probleme durch, und manchmal bleibt er bei "Worksheets...." hängen. Die angesprochene Zelle liegt in einem geschüzten Bereich ist aber ohne Schreibschutz versehen. Das aufheben des Blattschutzes vor "Worksheets..." mittels VBA bringt auch keine Änderung. Der Fehler tritt auch dann auf wenn das Format der "Zeit" nicht gesetzt wird. Das Programm läuft ständig, oft mehrere Tage ohne das es geschlossen wird.
Dim Zeit
Zeit = Format(Now, "dd.mm.yyyy hh.mm.ss")
Worksheets("Bunkerstand").Range("ef1").Value = Zeit
Für eine Idee oder Lösung wäre ich dankbar.
Gruß Artur