Private
Sub
CommandButton1_Click()
Dim
Quelle
As
Worksheet
Dim
Ziel
As
Worksheet
Set
Quelle = ThisWorkbook.Worksheets(
"Tabelle1"
)
Set
Ziel = Workbooks(
"Mappe2.xlsx"
).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