ich habe mal wieder ein scheinbar einfaches Problem, für das ich bisher einfach keine Lösung gefunden habe.
Ich habe ein neues Arbeitsblatt eingefügt, dass basierend auf dem Inhalt in Zelle C9 in einem anderen Tabellenblatt(umbenannt in poverview) benannt werden soll.
Wenn bereits ein Tabellenblatt mit diesem Namen existiert, soll eine Inputbox ausgegeben werden, in der der User einen neuen Namen eingeben kann - soweit so gut.
Nun möchte ich aber, dass das Makro abgebrochen wird, falls "abbrechen" bei der Inputbox angeklickt wird. Ich habe schon mehrere Ansätze ausprobiert, aber leider ohne Erfolg. Das Makro wird weiter ausgeführt, auch wenn "abbrechen" gewählt wird.
Hier ist mein Code:
On Error Resume Next
ActiveSheet.Name = poverview.Range("C9")
If Err.Number = 1004 Then
ActiveSheet.Name = InputBox("Cost center tab already exists. Please give sheet a new name.")
End If
Ich habe es schon mit den folgenden Codes versucht :
If ActiveSheet.Name = False Then Exit Sub
End if
If ActiveSheet.Name = vbNullString Then
MsgBox ("User canceled!")
End If
If StrPtr(ActiveSheet.Name) = 0 Then
MsgBox "You pressed Cancel!"
End if
Habt ihr vielleicht eine Idee?
Viele Grüße
Judith