Gruppe
Allgemein
Problem
Eine Mehrfachauswahl soll in das Blatt Ziel an identische Stelle kopiert werden.
StandardModule: Modul1
Sub MultipleRanges()
Dim rng As Range
For Each rng In Selection.Areas
Worksheets("Ziel").Range(rng.Address).Value = rng.Value
Next rng
End Sub