Hallo Profis,
ich möchte zellen von meheren Tabellen in eine Tabelle kopieren.
Mein Problem, es kann jeden Monat eine Tabelle dazukommen.
Die Zellen die kopiert werden sollen sind in jeder Tabelle gleich und in der Zieltabelle sollen Sie untereinander stehen.
Ich hab schon mal was probiert.
Sheets.Add.Name = "Abrechnung"
Sheets("Tabelle1").Select
Range("A2:B2").Select
Selection.Copy
Sheets("Abrechnung").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Sheets("Tabelle2").Select
Range("A2:B2").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Abrechnung").Select
Range("A2").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub
Das müsste doch auch mit for next irgednwie gehen?
Danke für die Hilfe
Gruss Christian