Supportnet / Forum / Tabellenkalkulation
Inhalte kopieren - Makro!
Frage
Über folgendes Makro erstelle ich neue Tabellenblätter automatisch und nummeriere diese durch:
Sub tabellen_einfügen()
Dim i As Integer
For i = 1 To 50
Worksheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Worksheets.Count
Next i
End Sub
Nun brauche ich noch einen wichtigen Hinweis:Ich möchte, dass automatisch auf allen Tabellenseiten deselbe Inhalt steht...
z.B. will ich, dass der Inhalt der zellen a1..h35 aus dem 1. Tabellenblatt beim erstellen neuer Tabellenblätter automatisch auch auf diesen erscheint...
Danke schon mal für eure Hilfe!
Antwort 1 von JoeKe
Hallo Feckon,
so:
Sub tabellen_einfügen()
Dim i As Integer
For i = 1 To 50
Sheets("Tabelle1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets.Count
Next i
End Sub
Gruß
JöKe
so:
Sub tabellen_einfügen()
Dim i As Integer
For i = 1 To 50
Sheets("Tabelle1").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = Sheets.Count
Next i
End Sub
Gruß
JöKe