gibt es ein Makro mit dem es möglich ist Tabellenblatt1 automatisch nach Tabellenblatt2 zu kopieren?
Mario
Sub TB_kopieren()
Sheets("Tabelle1").Select
Sheets("Tabelle1").Copy After:=Sheets(1)
Application.ActiveSheet.Name = "Tabelle " & Application.Worksheets.Count
End Sub
Sub TB_kopieren_2()
Sheets("Tabelle1").Select
Cells.Select
Selection.Copy
Range("A1").Select
Sheets("Tabelle2").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub