Makroänderung für Hinweis auf Vorhandenes Blatt
18.10.2016 06:40:25
Bernd
ich verwende nachstehenden Code um mir ein Vorlagentabellenblatt zu kopieren wo ich dann im Eingabefesnter den Namen des neu zu erstellenden Tabellenblattes eingeben kann.
Problem ist jedoch, wenn ein Tabellenblattname bereits vergeben wurde, erhalte ich einen Laufzeitfehler 1004, da der Name ja schon exisitiert.
Das ist mir auch bewusst, jedoch bin ich selbst nicht in der Lage, aufgrund meiner fehelenden VBA Kentnisse, dies zu ändern.
Ich hätte gerne ein Hinweisfenster bzw. eine Mitteilung, dass der Name bereits vergeben wurde und nur ein anderer Zulässig ist.
Könnte mir bitte jemand den Code so umschreiben, das dies so funktioniert?
Hier mal mein bisher verwendetes Makro:
Option Explicit
Public Sub KWAnlegen()
Dim strName As String
strName = InputBox("Name eingeben", "Eingabe", "KW XX")
If strName = "" Then Exit Sub
ThisWorkbook.Worksheets("Vorlage").Copy After:=ThisWorkbook.Sheets(Sheets.Count)
ActiveSheet.Name = strName
End Sub
Anmerkung: Das ist der einzige VBA Code welcher in meiner Mappe verwendet wird. Es gibt nur das Blatt Vorlage und eben Blätter von KW01, KW02, KW03 usw.Denke deshalb, dass eine Beispielmappe nicht von nöten sein wird. Falls doch, werde ich eine hochladen.
Ich danke Allen die mir helfen und wünsche noch einen schönen Tag,
lg Bernd