ich habe eine Arbeitsmappe, in der ich über Makros Tabellenblätter einfügen und löschen möchte.
Einfügen-Makro:
Beim Einfügen soll ein bereits bestehendes Tabellenblatt namens "Vorlage" kopiert werden. Hierbei soll über eine InputBox der Name des neuen Tabellenblattes eingetragen werden können.
Diesen Schritt habe ich mit untenstehender Eingabe hinbekommen. Da ich eigentlich keine Ahnung von VBA habe, ist das aber sicherlich nicht der eleganteste Weg ;-)
Wenn ich nun aber in der InputBox auf Abbrechen klicke, weil ich doch kein neues Tabellenblatt einfügen möchte, bekomme ich eine Fehlermeldung. Hat jemand eine Lösung, wie ich diese Fehlermeldung beheben kann?
Zudem würde ich das Tabellenblatt "Vorlage" gerne ausblenden, allerdings funktioniert dann das Makro nicht mehr.
Löschen-Makro
Beim Ausführen dieses Makros soll ein Auswahlfenster angezeigt werden, welches alle existierenden Tabellenblätter auflistet (wenn möglich ohne die ausgeblendeten).
Damit soll auswählt werden, welches Tabellenblatt gelöscht werden soll.
Ich habe es leider nur hinbekommen, das aktive Tabellenblatt zu löschen und keine Idee, wie ich das Auswahlfeld umsetzen kann.
Hier meine aktuelle Eingabe zum Einfügen-Makro
Sub neue_mappe()
Dim x As String
x = InputBox("Name der neuen Kategorie:")
Sheets("Vorlage").Select
Sheets("Vorlage").Copy Before:=Sheets("Vorlage")
Sheets("Vorlage (2)").Name = x
End Sub
Ich hoffe meine Beschreibung ist trotz meiner sehr eingeschränkten Kenntnisse verständlich und ich würde mich sehr über Lösungen oder Ideen freuen.Viele Grüße
Malte