Mit VBA daten eine andere Datei Kopieren
06.03.2020 18:19:36
Hris
ich hab ein Problem. Ich habe meine Datei soweit, dass sie Zuverlässig in ein anders Sheet Kopiert, ohne zu überschreiben oder zu meckern. Jetzt möchte ich aber, dass er mir das ganze in ein anderes Workbook kopiert. Bitte nicht mit Dim und so anfangen. ich verkürze das ganze später. zuerst möchte ich ein funktionierendes System haben. Also wenn möglich nicht allzuviel verändern bitte danke.
Sub Zellenansprechen()
Worksheets("Tabelle1").Range("H10").Copy
Worksheets("Tabelle1").Cells.Range("Q2").PasteSpecial Paste:=xlPasteValues
Worksheets("Tabelle1").Range("H11").Copy
Worksheets("Tabelle1").Cells.Range("R2").PasteSpecial Paste:=xlPasteValues
Worksheets("Tabelle1").Range("F14").Copy
Worksheets("Tabelle1").Cells.Range("P2").PasteSpecial Paste:=xlPasteValues
Worksheets("Tabelle1").Range("B4").Copy
Worksheets("Tabelle1").Cells.Range("K2").PasteSpecial Paste:=xlPasteValues
Worksheets("Tabelle1").Range("E5").Copy
Worksheets("Tabelle1").Cells.Range("M2").PasteSpecial Paste:=xlPasteValues
Worksheets("Tabelle1").Range("B3").Copy
Worksheets("Tabelle1").Cells.Range("L2").PasteSpecial Paste:=xlPasteValues
Worksheets("Tabelle1").Range("B7").Copy
Worksheets("Tabelle1").Cells.Range("N2").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Worksheets("Tabelle1").Range("B6").Copy
Worksheets("Tabelle1").Cells.Range("O2").PasteSpecial Paste:=xlPasteValues
Worksheets("Tabelle1").Range("E7").Copy
Worksheets("Tabelle1").Cells.Range("S2").PasteSpecial Paste:=xlPasteValues
If Cells.Range("B4") = "M30" Then
If Cells.Range("B9") = "28" Then
Worksheets("Tabelle1").Range("L2").Copy Destination:=Worksheets("Tabelle2").Range(" _
B2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("K2").Copy Destination:=Worksheets("Tabelle2").Range(" _
A2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("M2").Copy Destination:=Worksheets("Tabelle2").Range(" _
C2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("N2").Copy Destination:=Worksheets("Tabelle2").Range(" _
D2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("O2").Copy Destination:=Worksheets("Tabelle2").Range(" _
E2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("P2").Copy Destination:=Worksheets("Tabelle2").Range(" _
F2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("Q2").Copy Destination:=Worksheets("Tabelle2").Range(" _
G2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("R2").Copy Destination:=Worksheets("Tabelle2").Range(" _
H2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("S2").Copy Destination:=Worksheets("Tabelle2").Range(" _
I2").Cells(65536, 1).End(xlUp).Offset(1, 0)
ElseIf Cells.Range("B9") = "7" Then
Worksheets("Tabelle1").Range("L2").Copy Destination:=Worksheets("Tabelle2").Range(" _
K2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("K2").Copy Destination:=Worksheets("Tabelle2").Range(" _
J2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("M2").Copy Destination:=Worksheets("Tabelle2").Range(" _
L2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("N2").Copy Destination:=Worksheets("Tabelle2").Range(" _
M2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("O2").Copy Destination:=Worksheets("Tabelle2").Range(" _
N2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("P2").Copy Destination:=Worksheets("Tabelle2").Range(" _
O2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("Q2").Copy Destination:=Worksheets("Tabelle2").Range(" _
P2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("R2").Copy Destination:=Worksheets("Tabelle2").Range(" _
Q2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Worksheets("Tabelle1").Range("S2").Copy Destination:=Worksheets("Tabelle2").Range(" _
R2").Cells(65536, 1).End(xlUp).Offset(1, 0)
End If
End If
Worksheets("Tabelle1").Range("K2:S2").Delete
End Sub
Anzeige