Spalten kopieren mit Schreibschutz
18.06.2016 21:12:07
Markus
wie kann ich, nachdem ich die ausgewählten Spalten in die "Ziel"-Tabelle rüber kopiert habe, einen bestimmten Bereich ( Spalte B bis E) sperren (Schreibschutz)? Die Spalten A und F sollen weiter bearbeitet werden können. Zudem müsste sich dieser Schreibschutz bei jedem Übertragen der Spalten während des Kopiervorgangs aufheben und anschließend wieder aktiv sein.
Sub kopieren ()
Dim StDatei As String
StDatei = "Quelle_" & Format(Date, "dd.mm")
Workbooks(StDatei &".xlsm").Worksheets("Tabelle1").Range("A1:A30").Copy
With Workbooks("Ziel.xlsm").Worksheets("Tabelle1").Range("A1")
.PasteSpecial Paste :=xlValues
.PasteSpecial Paste:=xlFormats
End With
Applications.CutCopyMode=False
Workbooks(StDatei &".xlsm").Worksheets("Tabelle1").Range("B1:E30").Copy
With Workbooks("Ziel.xlsm").Worksheets("Tabelle1").Range("B1")
.PasteSpecial Paste :=xlValues
.PasteSpecial Paste:=xlFormats
End With
Applications.CutCopyMode=False
Workbooks(StDatei &".xlsm").Worksheets("Tabelle1").Range("F1:F30").Copy
With Workbooks("Ziel.xlsm").Worksheets("Tabelle1").Range("F1")
.PasteSpecial Paste :=xlValues
.PasteSpecial Paste:=xlFormats
End With
Applications.CutCopyMode=False
End Sub