Ich hab ein Problem in einer meiner Prozeduren.
Es wird ein neues Tabellenblatt mit dem Wert eines Formularfelds benannt. Dabei soll aber bei falschen Eingaben eine entsprechende Fehlermeldung auftauchen.
1. Möglichkeit Keine Eingabe -> funktioniert
2. Möglichkeit wenn der entsprechende Tabellenname bereits existiert -> funktioniert nicht :-((((
~'Fehlerroutine bei leerem Lehrerkürzel~
If k = "" Then
MsgBox "Das Lehrerkürzel darf nicht leer sein!"
Application.DisplayAlerts = False
Unload Lehrerdaten
ActiveSheet.Delete
Application.DisplayAlerts = True
Sheets("Lehrer").Activate
Lehrer_allgemein_ausblenden
Exit Sub
End If
'Fehlerroutine bei vorhandenem Lehrerkürzel
If Exist Sheets.Name.(k) Then
=> hier spießsts!
MsgBox "Dieses Lehrerkürzel ist schon vorhanden!"
Application.DisplayAlerts = False
Unload Lehrerdaten
ActiveSheet.Delete
Application.DisplayAlerts = True
Sheets("Lehrer").Activate
Lehrer_allgemein_ausblenden
Exit Sub
End If
ActiveSheet.Name = k
~ende~
Ich habs auch schon mit On Error probiert und kam auch auf keinen grünen Zweig.
Danke für eure Hilfe!
j.