Tabellenblätter nach Liste erstellen
25.09.2019 15:32:14
Ansgar
ich erstelle eine Liste aus Namen auf ein Tabellenblatt "Übersicht". Aus dieser Liste wird wiederum eine Datenliste im Tabellenblatt "Daten" erstellt. Es gibt ein Tabellenblatt mit dem Namen "Vorlage".
Auf Knopfdruck wird nun das Tabellenblatt "Vorlage" sooft kopiert wie es Namen in der Liste gibt und auch gleich mit den Namen versehen.
Nun zu meinem Problem:
Nachdem ich einmal die Tabellenblätter nach der Liste erstellt habe, kann ich nach hinzufügen eines neuen namens diese Funktion nicht mehr nutzen. Es kommt logischerweise eine Fehlermeldung.
Hier mein Code: (Funktioniert soweit ganz gut)
Sub Vorlage_kopieren()
Dim rngZelle As Range, _
rngZelle2 As Range, _
rngBereich As Range, _
rngBereich2 As Range, _
wb As Workbook, _
iIndex As Integer
Set wb = ThisWorkbook
Set rngBereich = wb.Sheets("Daten").Range("H5:H60")
Set rngBereich2 = wb.Sheets("Daten").Range("I5:I60")
iIndex = wb.Sheets("Vorlage").Index
For Each rngZelle In rngBereich
If rngZelle "" Then
wb.Sheets("Vorlage").Copy After:=wb.Sheets(iIndex)
iIndex = iIndex + 1
ActiveSheet.Name = rngZelle.Value
End If
Next rngZelle
MsgBox "Hast Du schön gemacht"
Worksheets("Übersicht").Activate
End Sub
hat einer eine Idee?