Case/Fehle abfangen
09.11.2004 07:18:34
Michael
Ich wähle anhand einer Combobox (ZugnummercCbo)die einzelnen Tabellenblätter aus. Wie kann ich den Fehler abfangen, falls etwas anderes (als gewünscht)in der Combobox drinnensteht. Wie z.B If ZugnummerCbo = "" then (Damit fange ich den Fehler ab, falls die Combobox leer ist)
Private Sub ZugnummerCbo_Change()
If Zugnummercbo = "" Then
Exit Sub
Select Case ZugnummerCbo
Case "940"
sh = "SWA 1"
Case "14800"
sh = "SWA 2"
Case "14804"
sh = "SWA 3"
Case "14806"
sh = "SWA 4"
Case "14941"
sh = "SWA 5"
Case "14805"
sh = "SWA 6"
Case "14807"
sh = "SWA 7"
Case "14846"
sh = "Fk 1"
Case "246"
sh = "Fk2"
Case "100662"
sh = "Fk3"
Case "15247"
sh = "Fk4"
Case "100663"
sh = "Fk4"
Case "14662"
sh = "IBK1"
Case "14802"
sh = "IBK2"
Case "14803"
sh = "IBK4"
Case "14663"
sh = "IBK3"
Case "14901"
sh = "Vi1"
Case "14931"
sh = "Vi2"
Case "14538"
sh = "Vi3"
Case "630"
sh = "Vi4"
Case "15531"
sh = "Li1"
Case "14530"
sh = "Li2"
Case "544"
sh = "Sbg1"
Case "649"
sh = "Sbg2"
End Select
Sheets(sh).Select
End If
End Sub
Ich hoffe es kann mir irgendjemand helfen
Gruß
Michael
Anzeige