Inputbox mit Abbrechen
Claudia
Wie muss ich meinen Code ändern, damit bei Klick auf den Abbrechen-Button kein Laufzeitfehler kommt sondern das Makro wirklich abbricht?
Habe schon inm Archiv geguckt, aber irgendwie habe ich ein Brett vor dem Kopf.
Private Sub Blattname_aendern(control As IRibbonControl)
ActiveWorkbook.UnProtect "leer"
Dim Blattname As String
Blattname = InputBox("Bitte Namen eingeben", , ActiveSheet.Name)
ActiveSheet.Name = Blattname
ActiveWorkbook.Protect "leer"
End Sub
Gruß Claudia
Anzeige