2 InputBoxen nacheinander abarbeiten
04.11.2021 16:57:23
HeinzH
Habe 2 InputBoxen
InputBox 1 schreibt mir den Wert in Sheets("Vorlage") Range B1 Funktioniert wie gewollt.
InputBox 2 hier wird Sheets "Vorlage" kopiert und nach dem neuen Sheets-Namen gefragt.
Hier wird gefragt nach dem neuen Tab.Namen, ABER es kopiert den Sheets schon bevor der neue Sheets-Namen eingetragen wird.
Hier dürfte die Reihenfolge nicht richtig sein.
Könnte mir dazu bitte jemand weiterhelfen?
Wenn ich InputBox abbrechen kommt immer ein Debbufehler "ActiveSheet.Name = NewName"
Danke
Sg, Heinz
Sub NeuesTabBlatt()
Dim NewName As String
Dim Kalenderwoche As Variant
ActiveSheet.Unprotect
Kalenderwoche = Application.InputBox("Bitte geben Sie die Kalenderwoche ein.", "Kalenderwoche Eingabe", , Type:=1)
If Kalenderwoche = False Then
Exit Sub
Else
Sheets("Vorlage").Activate
Range("B1") = Kalenderwoche
End If
'Call Ersetzen ' ersetzt #BEZUG! Vom Makro Fehler_ersetzen
ActiveSheet.Copy Before:=ActiveSheet
NewName = InputBox("Geben Sie einen Tabellenblattnamen ein")
'Exit Sub
ActiveSheet.Name = NewName
Range("A1:I44").Copy
Range("A1:I44").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
ActiveSheet.Buttons("Schaltfläche 3").Delete
ActiveSheet.Range("K5:Q41").ClearContents
Application.DisplayAlerts = False
Worksheets("1").Delete ' Blatt (1) löschen
Application.DisplayAlerts = True
ActiveSheet.Protect
End Sub