Mein Problem besteht darin, dass bei meinem VBA Code knapp eine Minute vergeht bis alle Wert in Mappe 2 kopiert werden und das ich es nicht hinbekomme, dass das Tabellenblatt in Mappe 2 eingefügt wird. Momentan wird das Tabellenblatt nur in der aktiven Mappe 1.xlsx kopiert. Und hier komm ich einfach nicht weiter. Daher meine bitte um Hilfe von einem VBA Experten.
Muss dich also enttäuschen suche niemanden der für mich die ganze Arbeit erledigt.
Hier mal mein Code:
Private Sub CommandButton1_Click()
Dim Quelle As Worksheet
Dim Ziel As Worksheet
Set Quelle = ThisWorkbook.Worksheets("Tabelle1")
Set Ziel = Workbooks("Mappe 2").Worksheets("DB")
Quelle.Range("D4").Copy
Ziel.Range("A" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row + 1).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D6").Copy
Ziel.Range("B" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D8").Copy
Ziel.Range("C" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D10").Copy
Ziel.Range("D" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D12").Copy
Ziel.Range("E" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D14").Copy
Ziel.Range("F" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H4").Copy
Ziel.Range("G" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("L30").Copy
Ziel.Range("H" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("L32").Copy
Ziel.Range("I" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("L34").Copy
Ziel.Range("J" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("L36").Copy
Ziel.Range("K" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("N30").Copy
Ziel.Range("L" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("N32").Copy
Ziel.Range("M" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("N34").Copy
Ziel.Range("N" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D18").Copy
Ziel.Range("O" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D20").Copy
Ziel.Range("P" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D22").Copy
Ziel.Range("Q" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D24").Copy
Ziel.Range("R" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H18").Copy
Ziel.Range("S" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H20").Copy
Ziel.Range("T" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H22").Copy
Ziel.Range("U" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H24").Copy
Ziel.Range("V" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D28").Copy
Ziel.Range("W" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D30").Copy
Ziel.Range("X" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D32").Copy
Ziel.Range("Y" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D34").Copy
Ziel.Range("Z" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H28").Copy
Ziel.Range("AA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H30").Copy
Ziel.Range("AB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D38").Copy
Ziel.Range("AC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D40").Copy
Ziel.Range("AD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D42").Copy
Ziel.Range("AE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D44").Copy
Ziel.Range("AF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("D46").Copy
Ziel.Range("AG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H38").Copy
Ziel.Range("AH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H40").Copy
Ziel.Range("AI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H42").Copy
Ziel.Range("AJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H44").Copy
Ziel.Range("AK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H52").Copy
Ziel.Range("AL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I52").Copy
Ziel.Range("AM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H53").Copy
Ziel.Range("AN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I53").Copy
Ziel.Range("AO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H54").Copy
Ziel.Range("AP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I54").Copy
Ziel.Range("AQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H55").Copy
Ziel.Range("AR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I55").Copy
Ziel.Range("AS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H56").Copy
Ziel.Range("AT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I56").Copy
Ziel.Range("AU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H57").Copy
Ziel.Range("AV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I57").Copy
Ziel.Range("AW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G58").Copy
Ziel.Range("AX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H58").Copy
Ziel.Range("AY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I58").Copy
Ziel.Range("AZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E60").Copy
Ziel.Range("BA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G60").Copy
Ziel.Range("BB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H60").Copy
Ziel.Range("BC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I60").Copy
Ziel.Range("BD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E61").Copy
Ziel.Range("BE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G61").Copy
Ziel.Range("BF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H61").Copy
Ziel.Range("BG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I61").Copy
Ziel.Range("BH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E62").Copy
Ziel.Range("BI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G62").Copy
Ziel.Range("BJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H62").Copy
Ziel.Range("BK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I62").Copy
Ziel.Range("BL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E63").Copy
Ziel.Range("BM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G63").Copy
Ziel.Range("BN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H63").Copy
Ziel.Range("BO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I63").Copy
Ziel.Range("BP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E64").Copy
Ziel.Range("BQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G64").Copy
Ziel.Range("BR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H64").Copy
Ziel.Range("BS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I64").Copy
Ziel.Range("BT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E65").Copy
Ziel.Range("BU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G65").Copy
Ziel.Range("BV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H65").Copy
Ziel.Range("BW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I65").Copy
Ziel.Range("BX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E66").Copy
Ziel.Range("BY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G66").Copy
Ziel.Range("BZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H66").Copy
Ziel.Range("CA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I66").Copy
Ziel.Range("CB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E67").Copy
Ziel.Range("CC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G67").Copy
Ziel.Range("CD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H67").Copy
Ziel.Range("CE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I67").Copy
Ziel.Range("CF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E68").Copy
Ziel.Range("CG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G68").Copy
Ziel.Range("CH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H68").Copy
Ziel.Range("CI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I68").Copy
Ziel.Range("CJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E69").Copy
Ziel.Range("CK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G69").Copy
Ziel.Range("CL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H69").Copy
Ziel.Range("CM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I69").Copy
Ziel.Range("CN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E70").Copy
Ziel.Range("CO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G70").Copy
Ziel.Range("CP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H70").Copy
Ziel.Range("CQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I70").Copy
Ziel.Range("CR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E71").Copy
Ziel.Range("CS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G71").Copy
Ziel.Range("CT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H71").Copy
Ziel.Range("CU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I71").Copy
Ziel.Range("CV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E72").Copy
Ziel.Range("CW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G72").Copy
Ziel.Range("CX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H72").Copy
Ziel.Range("CY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I72").Copy
Ziel.Range("CZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E73").Copy
Ziel.Range("DA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G73").Copy
Ziel.Range("DB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H73").Copy
Ziel.Range("DC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I73").Copy
Ziel.Range("DD" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E74").Copy
Ziel.Range("DE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G74").Copy
Ziel.Range("DF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H74").Copy
Ziel.Range("DG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I74").Copy
Ziel.Range("DH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E75").Copy
Ziel.Range("DI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G75").Copy
Ziel.Range("DJ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H75").Copy
Ziel.Range("DK" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I75").Copy
Ziel.Range("DL" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E76").Copy
Ziel.Range("DM" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G76").Copy
Ziel.Range("DN" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H76").Copy
Ziel.Range("DO" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I76").Copy
Ziel.Range("DP" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("E77").Copy
Ziel.Range("DQ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G77").Copy
Ziel.Range("DR" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H77").Copy
Ziel.Range("DS" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I77").Copy
Ziel.Range("DT" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H78").Copy
Ziel.Range("DU" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I78").Copy
Ziel.Range("DV" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("K75").Copy
Ziel.Range("DW" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("K77").Copy
Ziel.Range("DX" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("K81").Copy
Ziel.Range("DY" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("L81").Copy
Ziel.Range("DZ" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("M81").Copy
Ziel.Range("EA" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H80").Copy
Ziel.Range("EB" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I80").Copy
Ziel.Range("EC" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H81").Copy
Ziel.Range("ED" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I81").Copy
Ziel.Range("EE" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("G83").Copy
Ziel.Range("EF" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("H83").Copy
Ziel.Range("EG" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("I83").Copy
Ziel.Range("EH" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Quelle.Range("B87").Copy
Ziel.Range("EI" & Ziel.Cells(Ziel.Rows.Count, 1).End(xlUp).Row).PasteSpecial _
Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
ActiveSheet.Copy after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = .Range("H4")
End With
End Sub |