Gruppe
Allgemein
Bereich
Kopieren
Thema
Nicht zusammenhängenden Bereich in nächste Zeile kopieren
Problem
Wie kann ich einen nicht zusammenhängenden Bereich in die erste freie Zeile eines andere Tabellenblattes kopieren?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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