Gefüllte Spalten sollen nicht überschrieben werden
14.07.2016 13:18:20
Rene
Hallo zusammen,
ich habe ein Code der eine Tabelle in die andere Datei kopiert.
Aber Spalte C und Spalte O sollen nicht mehr überschrieben werden, die schon gefüllt sind. Habt ihr eine Idee?
Private Sub CommandButton7_Click()
' Daten werden kopiert und in eine andere Datei kopiert.
Dim WB1 As Workbook, WB2 As Workbook
Dim WS1 As Worksheet, WS2 As Worksheet
Const Pfad = "L:\VPTA-Zeitmessung\06 Vorbereitung VPTA\"
Const Datei = "151202_LIST_Vorbereitung_Liste_TEST.xlsx"
Set WB1 = ThisWorkbook
Set WB2 = Workbooks.Open(Pfad & Datei)
Set WS1 = WB1.Worksheets("Vorbreitung_VPTA")
Set WS2 = WB2.Worksheets("Tabelle1")
WS1.Range("D3:D999").Copy WS2.Range("A3")
WS1.Range("E3:E999").Copy WS2.Range("B3")
WS1.Range("F3:F999").Copy
WS2.Range("C3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
WS1.Range("G3:G999").Copy WS2.Range("D3")
WS1.Range("H3:H999").Copy WS2.Range("E3")
WS1.Range("I3:I999").Copy WS2.Range("F3")
WS1.Range("J3:J999").Copy WS2.Range("G3")
WS1.Range("K3:K999").Copy WS2.Range("H3")
WS1.Range("L3:L999").Copy WS2.Range("I3")
WS1.Range("M3:M999").Copy WS2.Range("J3")
WS1.Range("Q3:Q999").Copy WS2.Range("N3")
WS1.Range("R3:R999").Copy
WS2.Range("O3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
WS1.Range("S3:S999").Copy WS2.Range("P3")
WS1.Range("U3:U999").Copy
WS2.Range("R3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, _
Transpose:=False
WB2.Close savechanges:=True
End Sub