Ich bin ja eigentlich kein Freund vom Errorhandler ... aber in diesem Fall habe ich mich belehren lassen ...

Wir wollen auch bei diesem Beispielcode ein Worksheet, ein Tabellenblatt, anlegen lassen. Was wir gar nicht wollen sind Rückfragen (existiert das Tabellenblatt? - sage ja oder nein), sondern das Worksheet soll einfach angelegt werden. Auf gut deutsch ... wir provozieren einfach den Fehler - das Tabellenblatt wird angelegt - und wir springen wieder zurück an die Stelle, wo der Fehler aufgetreten ist.

In dem Makro, was ich euch jetzt hier zeige, möchte ich dass jeden Tag ein Tabellenblatt angelegt wird. Hintergrund könnte sein, dass wir von einem Deckblatt unsere Einnahmen in das Worksheet mit dem Namen des aktuellen Datums kopieren wollen. Es wird aber auch im Text aufgezeigt, dass man mit einer Inputbox arbeiten könnte ...

Legt dieses Makro einmal in ein Modul und startet es ...

Sub Tabelle_mit_Name_anlegen()
Dim WSName As String
WSName = Date
'oder
'WSName = InputBox("Bitte Tabellenblattnamen eingeben")
On Error GoTo anlegen
'Bei Fehler gehe nach anlegen:
Sheets(WSName).Select
Exit Sub

anlegen:
    Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = WSName
    Resume
    'Tabellenblatt wird angelegt - Code wird bei Fehlermelder
    'neu gestartet
End Sub