Ganz trivial (die Zellbezüge maschinell umgesetzt) und ungetestet
Sub TestCopy()
Dim X As Long
With Sheets("Tabelle2")
X = .Cells(.Rows.Count, 2).End(xlUp).Row + 1
End With
If X < 4 Then X = 3
Sheets("Tabelle1").Range("AV9").Copy Sheets("Tabelle2").Cells(X, 2)
Sheets("Tabelle1").Range("AV10").Copy Sheets("Tabelle2").Cells(X, 3)
Sheets("Tabelle1").Range("AV11").Copy Sheets("Tabelle2").Cells(X, 4)
Sheets("Tabelle1").Range("AW11").Copy Sheets("Tabelle2").Cells(X, 5)
Sheets("Tabelle1").Range("AX11").Copy Sheets("Tabelle2").Cells(X, 6)
Sheets("Tabelle1").Range("AV12").Copy Sheets("Tabelle2").Cells(X, 7)
Sheets("Tabelle1").Range("AW12").Copy Sheets("Tabelle2").Cells(X, 8)
Sheets("Tabelle1").Range("AX12").Copy Sheets("Tabelle2").Cells(X, 9)
Sheets("Tabelle1").Range("AV13").Copy Sheets("Tabelle2").Cells(X, 10)
Sheets("Tabelle1").Range("AW13").Copy Sheets("Tabelle2").Cells(X, 11)
Sheets("Tabelle1").Range("AX13").Copy Sheets("Tabelle2").Cells(X, 12)
Sheets("Tabelle1").Range("AV14").Copy Sheets("Tabelle2").Cells(X, 13)
Sheets("Tabelle1").Range("AW14").Copy Sheets("Tabelle2").Cells(X, 14)
Sheets("Tabelle1").Range("AX14").Copy Sheets("Tabelle2").Cells(X, 15)
Sheets("Tabelle1").Range("AV15").Copy Sheets("Tabelle2").Cells(X, 16)
Sheets("Tabelle1").Range("AX15").Copy Sheets("Tabelle2").Cells(X, 17)
Sheets("Tabelle1").Range("AV16").Copy Sheets("Tabelle2").Cells(X, 18)
Sheets("Tabelle1").Range("AV17").Copy Sheets("Tabelle2").Cells(X, 19)
Sheets("Tabelle1").Range("AV18").Copy Sheets("Tabelle2").Cells(X, 20)
Sheets("Tabelle1").Range("AV19").Copy Sheets("Tabelle2").Cells(X, 21)
Sheets("Tabelle1").Range("AV20").Copy Sheets("Tabelle2").Cells(X, 6)
Sheets("Tabelle1").Range("AV21").Copy Sheets("Tabelle2").Cells(X, 23)
Sheets("Tabelle1").Range("AV22").Copy Sheets("Tabelle2").Cells(X, 24)
Sheets("Tabelle1").Range("AV23").Copy Sheets("Tabelle2").Cells(X, 25)
Sheets("Tabelle1").Range("AX23").Copy Sheets("Tabelle2").Cells(X, 26)
Sheets("Tabelle1").Range("AV24").Copy Sheets("Tabelle2").Cells(X, 27)
Sheets("Tabelle1").Range("AV25").Copy Sheets("Tabelle2").Cells(X, 28)
Sheets("Tabelle1").Range("AV26").Copy Sheets("Tabelle2").Cells(X, 29)
Sheets("Tabelle1").Range("AV27").Copy Sheets("Tabelle2").Cells(X, 30)
Sheets("Tabelle1").Range("AV28").Copy Sheets("Tabelle2").Cells(X, 31)
Sheets("Tabelle1").Range("AV29").Copy Sheets("Tabelle2").Cells(X, 32)
Sheets("Tabelle1").Range("AV30").Copy Sheets("Tabelle2").Cells(X, 33)
Sheets("Tabelle1").Range("AV31").Copy Sheets("Tabelle2").Cells(X, 34)
Sheets("Tabelle1").Range("AV32").Copy Sheets("Tabelle2").Cells(X, 35)
Sheets("Tabelle1").Range("AV33").Copy Sheets("Tabelle2").Cells(X, 36)
Sheets("Tabelle1").Range("AV34").Copy Sheets("Tabelle2").Cells(X, 37)
Sheets("Tabelle1").Range("AV35").Copy Sheets("Tabelle2").Cells(X, 38)
Sheets("Tabelle1").Range("AV36").Copy Sheets("Tabelle2").Cells(X, 39)
End Sub
|