Private
Sub
btnEins_Click()
Range(
"Bereich1"
).Copy
Sheets(
"Ziel"
).Cells(2, 1).PasteSpecial xlPasteAll
Range(
"Bereich2"
).Copy
Sheets(
"Ziel"
).Cells(6, 1).PasteSpecial xlPasteAll
Sheets(
"Ziel"
).Activate
Sheets(
"Ziel"
).Cells(10, 1).
Select
End
Sub
Private
Sub
btnZwei_Click()
Range(
"Bereich1"
).Copy
Sheets(
"Ziel"
).Cells(2, 1).PasteSpecial xlPasteAll
Range(
"Bereich3"
).Copy
Sheets(
"Ziel"
).Cells(6, 1).PasteSpecial xlPasteAll
Sheets(
"Ziel"
).Activate
Sheets(
"Ziel"
).Cells(10, 1).
Select
End
Sub