Gruppe
Allgemein
Bereich
Kopieren
Thema
Mehrfachauswahl in ein zweites Blatt kopieren
Problem
Eine Mehrfachauswahl soll in das Blatt Ziel an identische Stelle kopiert werden.
Lösung
Geben Sie den Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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