Neues Tabellenblatt wenn noch nicht vorhanden
13.08.2015 11:24:18
worm77
Ich möchte über VBA ein neues Tabellenblatt einfügen, falls noch keines mit einem bestimmten Namen existiert.
Über ein Forum habe ich dann was gefunden und angepasst.
Mein Code sieht wie folgt aus:
#############################################################################
Windows("TimesSeries_Basis.xlsx").Activate
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Sheets
If ws.Name = Master_Sheet_Name Then
GoTo WEITER
Else
GoTo NEUES_BLATT_EINFUEGEN
End If
Next ws
GoTo WEITER
NEUES_BLATT_EINFUEGEN:
Sheets.Add
New_Sheet_Name = ActiveSheet.Name
Sheets(New_Sheet_Name).Name = Master_Sheet_Name
WEITER:>
#############################################################################
Wenn das Blatt noch nicht existiert, funktioniert alles wunderbar, aber wenn
es bereits vorhanden ist, versucht der Code trotzdem, ein neues einzufügen und
umzubenennen. Es geht also in jedem Fall zu der Sprungmarke NEUES_BLATT_EINFUEGEN.
Kann mir da jemand sagen, wie ich das Problem lösen kann?
Besten Dank für eure Hilfe!
Gruss Rolf