Schutz altes Blatt
Snewi
ich lege mit folgendem Syntax ein neues Tabellenblatt an:
'neues Tabellenblatt anlegen
Sub NeuesTabBlatt()
Dim NewName
ActiveSheet.Unprotect Password:=""
NewName = InputBox("Geben Sie einen Tabellenblattnamen ein")
If IsNumeric(NewName) Then
NewName = NewName * 1
If NewName > 2000 And NewName Wie mache ich das?
Gruß
Anzeige