InputBox bei Cancel drücken
04.11.2021 17:31:20
Beni
Ich brauche einen Input betreffend untenstehendem Code. Dieser kopiert mir das aktuelle Sheet an den Anfang der Arbeitsmappe und fragt nach einem Namen für das Sheet.
Funktioniert alles wie gewünscht, außer wenn ich bei der Eingabe des Namens auf abbrechen klicke...dann kommt eine Fehlermeldung. Wünschenswert wäre, wenn dann das Sheet nicht kopiert wird.
Habs bereits mit diesem Zusatz probiert,
Do
' shtname = InputBox("Enter Sheet Name", "Sheet Name") -- mit der InputBox von Code unten
If StrPtr(shtname) = 0 Then Exit Sub
Loop Until Len(shtname) > 0
Sub CopySheet()
Dim i As Integer, x As Integer
Dim shtname As Variant
ActiveSheet.Copy Before:=Sheets(1)
shtname = InputBox("Bezeichnung des neuen Blatts eingeben" & vbLf & "(z.B. Typ xy)", "Neues Blatt anlegen")
ActiveSheet.Name = shtname
Call foo 'dort kommen 2 weitere InputBoxen zum Ausfüllen, funktioniert soweit!
End Sub