Gruppe
Allgemein
Bereich
Kopieren
Thema
Mehrfachauswahl an auszuwählende Positionen kopieren
Problem
Eine Mehrfachauswahl soll in das Blatt Ziel an auszuwählende Stellen 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 colRng As New Collection
Dim rng As Range, rngTarget As Range
Dim iCounter As Integer
Dim sTarget As String
For Each rng In Selection.Areas
colRng.Add rng
Next rng
Worksheets("Ziel").Select
For iCounter = 1 To colRng.Count
Set rngTarget = Application.InputBox("Bitte Zielbereich auswählen", Type:=8)
colRng(iCounter).Copy rngTarget
Next iCounter
Application.CutCopyMode = False
End Sub