folgenden Code verwende ich für das Kopieren eines Tabellenblattes:
Sub BlattKopieren()
Dim NeuerName As String
Dim i As Integer
NeuerName = InputBox("Bitte gebe den neuen Namen des Blattes ein!")
i = Sheets.Count
Sheets("Vorlage").Copy After:=Sheets(i)
ActiveSheet.Name = NeuerName
End Sub
Ich bräuchte etwas Hilfe bei folgenden drei Hürden, da ich mich mit VBA nicht so gut auskenne:
1. Bei der Abfrage nach dem neuen Namen wird trotzdem ein Tabellenblatt erzeugt, auch wenn ich auf "Abbrechen" oder das "X" oben in der Ecke der Meldung klicke.
2. Der Name des neuen Tabellenblatts, den man ja vor dem Kopieren im Meldefeld eingeben kann, soll bereits einen Vorschlag beinhalten. Bspw: "Monat 1"
Ich hatte es mit "Select Case" versucht, leider hat das nicht geklappt.
3. Es sollte überprüft werden, ob der Name bereits so 1:1 vorhanden ist und somit das Kopieren verhindert wird.
Ich wäre Euch super dankbar, wenn das alles umsetzbar wäre!! :)
Beste Grüße
Thomas