ich muss euch um Hilfe bitten.
Ich habe unten einen Code bei dem die Fehlerroutine nicht so klappt wie ich es mir vorstelle.
Es muss ein neuer Tabellenblattname eingegeben werden.
Dann wird die tabelle "Regal_leer" kopiert und entsprechend umbenannt.
Gebe ich einen Namen an der schon als Tabellenblatt besteht kommt eine Fehlermeldung und ich werde gefragt ob ich erneut einen Namen eingeben will.
Das klappt auch wunderbar bei der ersten "Falsch" Eingabe.
Gebe ich dann aber noch einmal einen Namen an der schon existiert dann kommt der VBA Fehler und es wird nicht mehr zu "fehler:" gesprungen.
Was mache ich Falsch ?
Vielen Dank an alle im voraus !
gruß Chris
Option Explicit
Sub Regal_anlegen()
Dim Antwort
Dim Neu_Sheet_Name As String
erneute_Eingabe:
Neu_Sheet_Name = InputBox("Bitte Namen für neues Regal eingeben !", "Eingabe")
Sheets("Regal_leer").Copy After:=Worksheets("Daten")
On Error GoTo fehler
ActiveSheet.Name = Neu_Sheet_Name
MsgBox ("Regal erfolgreich angelegt!"), vbInformation, "Info"
Exit Sub
fehler:
On Error GoTo 0
Antwort = MsgBox("Name-> " & Neu_Sheet_Name & "