Gruppe
Allgemein
Problem
Über Merfachauswahl selektierte Zeilen sollen in Tabelle1 kopiert werden.
StandardModule: Modul1
Sub CopyRowValues()
Dim wks As Worksheet
Dim rng As Range
Dim iRowT As Integer
Set wks = Worksheets("Tabelle2")
For Each rng In Selection.Areas
If IsEmpty(wks.Cells(1, 1)) Then
iRowT = 1
Else
iRowT = wks.Cells(Rows.Count, 1).End(xlUp).Row + 1
End If
wks.Rows(iRowT & ":" & iRowT + rng.Rows.Count - 1).Value = rng.Value
Next rng
wks.Columns.AutoFit
End Sub