Public Sub VerschiedeneZellenKopieren()
Const c_strSenke As String = "E:\TestVBA\Hallo.xls"
Dim wksQuelle As Excel.Worksheet
Dim wkbSenke As Excel.Workbook
Dim wksSenke As Excel.Worksheet
Dim arMarkierung As Excel.Areas
Dim rng As Excel.Range
Set wksQuelle = ActiveSheet
Set wkbSenke = Workbooks.Open(c_strSenke)
Set wksSenke = wkbSenke.Worksheets(1)
wksQuelle.Activate
Set arMarkierung = Selection.Areas
For Each rng In arMarkierung
wksSenke.Range(rng.Address).Value = rng.Value
Next rng
Set rng = Nothing
Set arMarkierung = Nothing
Set wksQuelle = Nothing
Set wkbSenke = Nothing
Set wksSenke = Nothing
End Sub