Letztes Stückchen läuft auf Fehler
10.05.2016 13:02:06
Rene
bei den Code läuft "fast" alles gut außer, dass er den Wer den er von Spalte U in Spalte R einsetzen soll umformatieren soll. (fett markiert)
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")
WS1.Range("G3:G999").Copy WS2.Range("D3")
WS1.Range("H3:H999").Copy WS2.Range("E3")
WS1.Range("J3:J999").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")
WS1.Range("S3:S999").Copy WS2.Range("P3")
WS1.Range("U3:U999").Copy WS2.Range("R3")
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
WB2.Close savechanges:=True
End Sub