VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Mehrfachauswahl an auszuwählende Positionen kopieren

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Kopieren