daten von
tabelle 1 (A2 bis H& letzte beschriebene zeile)
nach
tabelle 2 (B& erste freie zeile bis I?)
zu kopieren
kann mir bitte dabei jemand helfen? ich weiß nicht, wie ich das mit den unbekannten hinkriege?
Sub Unit()
Dim Quelle As Range, Ziel As Range
Set Quelle = Tabelle1.Range(Tabelle1.Cells(2, 1), Tabelle1.Cells(Tabelle1.Rows.Count, 1).End(xlUp).Resize(1, 8))
Set Ziel = Tabelle2.Cells(Tabelle2.Rows.Count, 2).End(xlUp).Offset(1, 0)
Quelle.Copy
Ziel.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Set Quelle = Nothing: Set Ziel = Nothing
End Sub
Gruß Gerd