Alles was du brauchst ist die letzte Zeile in Tabelle3?
Das geht am einfachsten, wenn du eine Spalte hast, die keine leeren Zellen kennt; sagen wir mal das ist Spalte B.
letzte Zeile in Tabelle3, Spalte B:
Dim rngCell As Excel.Range
With Worksheets("Tabelle3")
Set rngCell = .Cells(.Rows.Count, "B").End(xlUp) 'letzte Zelle mit Inhalt in Spalte B
Set rngCell = .Cells(rngCell.Row + 1, "A") 'eine Zeile tiefer, andere Spalte
End With
Gleiches Prinzip für alle Tabellen in deiner Mappe.
Hast du in Tabelle1 den zu übertragenen Bereich ermittelt, dann kopierst du den z.B. mit:
Dim rngSrc As Excel.Range
Set rngSrc = Worksheets("Tabelle1").Range("A1:C3") 'Beispiel-Bereich
Call rngSrc.Copy(Destination:=rngCell)
Zielort ist also rngCell, welche dem Beispiel oben nach auf eine Zelle in Tabelle3, in Spalte A zeigt. Diese Zelle ist die linke-obere Ecke des Bereichs in den von da an hinein kopiert wird.
Bereiche löschen sollte klar sein.
|