Select Case - Fehler
09.02.2003 13:59:39
Josef
Wenn ich nur die Nr. 30410; 32133, 32134, 32222 eingebe so läuft alles reibungslos.
Wenn ich jedoch die Nr. so wie unten eingebe erhalte ich einen Fehler.
Zu jeder dieser Nummern gibt es immer Unterteilungen wie 01, 02, 03 usw.
Gäbe es hier bitte vielleicht einen Trick oder eine Lösung?
z.B.: 30410 (01,02,03,04)
Danke
Josef
Sub Ausführung()
Stammnummer = Val(UserForm1.TextBox1.Value)
Select Case Stammnummer
Case 30410 01
UserForm1.TextBox4.Text = "Baukastensystem"
Case 32133 11, 32134 08, 32222 14
UserForm1.TextBox4.Text = "Bausatz mit individueller Anpassung"