Mit Unterstützung habe ich ein Makro programmiert, dass mir jeweils ein neues Tabellenblatt erstellt und diese fortlaufend nummeriert (1, 2, 3, 4, 5...). Leider kommen diese Tabellenblätter jeweils leer und sollten gemäss Programmierung den Inhalt aus dem Tabellenblatt "Vorlage" in die nummerierten Blätter reinkopieren.
Kann mir jemand mit dem Makro helfen, damit es funktioniert. Besten Dank.
Sub Tabellenblaetter_einfügen()
Dim wbk As Workbook
Dim wks As Worksheet
Dim zaehler As Integer
Dim Index_letzte_Tabelle As Integer
Dim Name_neue_Tabelle As String
'Anzahl Tabellen ermitteln
For Each wks In ActiveWorkbook.Sheets
If wks.Name <> "" Then
zaehler = zaehler + 1
Index_letzte_Tabelle = wks.Index
End If
Next wks
'Berechnen des neuen Tabellennamens
Name_neue_Tabelle = CStr(zaehler - 1)
'Einfügen der neuen Tabelle
Set wbk = ActiveWorkbook
wbk.Worksheets.Add After:=Worksheets(Index_letzte_Tabelle)
ActiveSheet.Name = Name_neue_Tabelle
'Kopieren des Inhalts von Vorlage nach neue Tabelle
Sheets("Vorlage").Select
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Sheets(Name_neue_Tabelle).Select
Cells.Select
'Anzahl Tabellenblätter in Zelle A1 bei Übersicht schreiben
Sheets("Übersicht").Range("A1").Value = ThisWorkbook.Worksheets.Count
End Sub |