ich habe folgendes Makro:
Sub newLEG()
' newLEG Makro
' Makro am 05.05.2008 von aufgezeichnet
Range("SCHED").Select
Selection.Copy
Range("EINFUEGEMARKE").Select
Selection.Insert Shift:=xlDown
Range( _
"C28,C30,C31,C32,C33,C34,E35,G35,I35,K35,C36:K36,C37,E37:G37,I37:K37,C38,E38:G38,I38: _
K38,C39:K39" _
).Select
Range("C39").Activate
Application.CutCopyMode = False
Selection.ClearContents
Range("C37").Select
ActiveCell.FormulaR1C1 = "=R[-13]C"
Range("E37:G37").Select
ActiveCell.FormulaR1C1 = "=R[-13]C"
Range("I37:K37").Select
ActiveCell.FormulaR1C1 = "=R[-13]C"
End Sub
Es bewirkt das Kopieren, Einfügen und Bearbeiten von einem ganzen Zellenblock.
Es funktioniert absolut perfekt in einer nicht geschützten Arbeitsmappe. Um die Arbeitsmappe schneller zu machen in der Anwendung, das heißt, ich will nur, dass man mit der Tabulatortaste von einer Zelle zur nächsten springen kann, will ich die Mappe schützen. Erlaubt sei dem Endnutzer NUR das Bearbeiten ungeschützter Zellen (also auf die man mit TAB springen kann). Funktioniert auch einwandfrei. Problem ist aber: wenn ich die Arbeitsmappe / das Blatt wirklich mit Extras --> Schutz schütze, dann bricht das Makro ab! Fehlermeldung:
Laufzeitfehler '1004': Die Insert-Methode des Range-Objektes konnte nicht ausgeführt werden.
Auch das Erlauben von Zeilen einfügen in den Schutzoptionen bringt nix.
Frage: Warum?
mfg Holger