Hallo,
Ich will Daten mit Hilfe von VBA eines Zellbereichs von Blatt A in äquivalenten Zellbereich von Blatt B kopieren.
Das klappt soweit ganz gut, bis ich Blattschutz aktiviere.
Ich nutze dazu:
Beide Excelblätter sollen später mit Blattschutz versehen werden, was ich so mache:
Ich habe mal mit manuellem aktivieren des Blattschutzes gespielt, dabei scheine ich alle Haken setzen zu können, doch das Kopierziel möchte die Daten einfach nicht annehmen. Zumindest das mit dem Copy funktioniert nicht, die Direktzuweisung mit Cells=Cells funktioniert jedoch.
Ich vermute daher, dass es nicht möglich ist mit der Copy-(to)-Destination Methode in ein geschütztes Blatt zu kopieren.
Übersehe ich was, oder gibt es andere Methoden ganze Bereiche in ein geschützte Blatt zu kopieren, oder muss ich mich mit einer Schleife mit einzelnen Cells Zuweisungen begnügen?
[Excel 2010]
Ich will Daten mit Hilfe von VBA eines Zellbereichs von Blatt A in äquivalenten Zellbereich von Blatt B kopieren.
Das klappt soweit ganz gut, bis ich Blattschutz aktiviere.
Ich nutze dazu:
Code:
With BlattB
.Cells(9, 8) = Cells(5, 12)
.Cells(9, 14) = Cells(5, 18)
Range("J11:U2520").Copy .Range("G11:R2520")
End With
Beide Excelblätter sollen später mit Blattschutz versehen werden, was ich so mache:
Code:
Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Protect "Passwort", UserInterfaceOnly:=True, AllowFormattingCells:=True
Next ws
End Sub
Ich habe mal mit manuellem aktivieren des Blattschutzes gespielt, dabei scheine ich alle Haken setzen zu können, doch das Kopierziel möchte die Daten einfach nicht annehmen. Zumindest das mit dem Copy funktioniert nicht, die Direktzuweisung mit Cells=Cells funktioniert jedoch.
Ich vermute daher, dass es nicht möglich ist mit der Copy-(to)-Destination Methode in ein geschütztes Blatt zu kopieren.
Übersehe ich was, oder gibt es andere Methoden ganze Bereiche in ein geschützte Blatt zu kopieren, oder muss ich mich mit einer Schleife mit einzelnen Cells Zuweisungen begnügen?
[Excel 2010]