ich möchte aus einer Tabelle Werte aus A10:D10;A11:D11;A12:D12 usw bis zur letzten gefüllten Zelle in Spalte A in eine 2.TB in die erste freie Zeile hintereinander kopier.
Wer kann mir helfen?
Tschüß und Danke im voraus Jens
Tschüß und Danke im voraus Jens
Matthias
Sub MehrFachAuswahl()
Application.ScreenUpdating = False
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("A10:D10,A11:D11,A12:D12,A13:D13,A14:D14,...").Cells
intCol = intCol + 1
rngAct.Copy
.Cells(intRow, intCol).PasteSpecial Paste:=xlValues
Next rngAct
End With
Application.ScreenUpdating = True
End Sub
Danke für deine Mühe Jens
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen