Thema: Nicht zusammenhängenden Bereich in nächste Zeile kopieren

StandardModule: basMain

Sub MehrFachAuswahl()
   Dim rngAct As Range
   Dim intRow As Integer, intCol As Integer
   With Worksheets("Tabelle2")
      If IsEmpty(.Cells(1, 1)) Then
         intRow = 1
      Else
         intRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
      End If
      For Each rngAct In Range("A1,C2,E5,A6").Cells
         intCol = intCol + 1
         rngAct.Copy .Cells(intRow, intCol)
      Next rngAct
   End With
   Application.CutCopyMode = False
End Sub

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