Hallo zusammen,
Ich habe verschiedenste Worksheets und die steuere ich mit einer Dropdownliste (Gültigkeitskontrolle) an. Es kann passieren, dass in der Dropdownliste noch nicht existierende Tabellennamen (Register) aufgelistet sind.
Nun will ich, dass, wenn ein noch nicht existierender Tabellenname (Registername) angeklickt wird, die Msg "Nicht existent" erscheint.
Mein Code funktioniert noch nicht wie gewünscht. Auch bei den bereits existierenden Tabellen taucht die Msg auf...
Könnte mir jemand helfen! Grazie Berni
Sub RegisterWechsel(Target As Range) 'Registerwechsel bei Dropdownauswahl
On Error GoTo TabelleInexistent 'Tabelle existiert gar nicht!
Worksheets(Target.Value).Activate 'Target.Value ist der aktive Inhalt der Dropdownliste-Zelle
On Error GoTo 0
TabelleInexistent:
MsgBox "Das Register " + Chr(13) + Chr(13) + ActiveCell.Value + Chr(13) + Chr(13) + "existiert nicht!"
End Sub
|