Makro Tabellenblatt für jeden Eintrag automatisch
09.03.2015 11:44:16
loader
ich habe ein Tabellenblatt Inhaltsverzeichnis und eine Vorlage. Nun möchte ich, dass für jeden Eintrag im Inhaltsverzeichnis ein neues Tabellenblatt aus der Vorlage erstellt wird, das den Namen aus dem Inhaltsverzeichnis übernimmt. Zudem soll noch ein Hyperlink vom Namen im Inhaltsverzeichnis zum passenden Tabellenblatt erstellt werden.
Mein Makro sieht so aus:
Sub Erstellen()
For Each NeueTabelle In Worksheets("Inhaltsverzeichnis").Range("B4:B1000").Value
If Not IsEmpty(NeueTabelle) Then
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
Application.DisplayAlerts = False
On Error Resume Next: Sheets(NeueTabelle).Delete: On Error GoTo 0
Application.DisplayAlerts = True
Sheets(Sheets.Count).Name = NeueTabelle
Sheets(Sheets.Count).Range("A1").Value = NeueTabelle
End If
Next
End Sub
Ich bräuchte Hilfe beim Hyperlink.
Auch löscht der Makro die bereits erstellten Tabellenblätter bei jeder Aktualisierung, dass
soll natürlich nicht so sein.
Kann mir bitte jemand helfen?