Fehler im VBA Code
13.01.2006 20:05:39
Josef
Bei nachfolgendem Text sollte nach der auswahl von "Satzart 08" in der ComboBox70 noch eine Abfrage erfolgen:
Teil 1 vor Else
Multipage1.Value = 7 sollte durchgeführt werden.
Teil 2 nach Else
Sollte in der TextBox373 einer dieser Werte stehen so soll in der TextBox372 der am Schluß stehende Satz aufscheinen.
Leider funktioniert dies nicht. Wo könnte hier bitte der Fehler liegen ?
Danke
Josef
If ComboBox70.Text = "Satzart 08" And TextBox373.Text = "51" Or "52" Or "55" Or "63" Or "64" Or "66" Or "72" Or "75" Or "84" Or "85" Or "87" Or "91" Or "99" Then
MultiPage1.Value = 7
TextBox372.Text = ""
Else
If ComboBox70.Text = "Satzart 08" And TextBox373.Text = "01" Or TextBox373.Text = "02" Or TextBox373.Text = "03" Or TextBox373.Text = "04" Or TextBox373.Text = "05" Or TextBox373.Text = "06" Or TextBox373.Text = "07" Or TextBox373.Text = "08" Or TextBox373.Text = "09" Or TextBox373.Text = "10" Or TextBox373.Text = "11" Or TextBox373.Text = "12" Or TextBox373.Text = "13" Or TextBox373.Text = "14" Or TextBox373.Text = "15" Or TextBox373.Text = "16" Or TextBox373.Text = "17" Or TextBox373.Text = "18" Or TextBox373.Text = "19" Or TextBox373.Text = "20" Or TextBox373.Text = "21" Or TextBox373.Text = "22" Or TextBox373.Text = "23" Or TextBox373.Text = "24" Or TextBox373.Text = "25" Or TextBox373.Text = "26" Or TextBox373.Text = "27" Or TextBox373.Text = "28" Or TextBox373.Text = "29" Or TextBox373.Text = "33" Or TextBox373.Text = "34" Or TextBox373.Text = "35" Or TextBox373.Text = "37" Or TextBox373.Text = "38" Or TextBox373.Text = "50" Or TextBox373.Text = "53" Or TextBox373.Text = "59" Or TextBox373 = "62" Then
TextBox372.Text = "Satzart 08 bei diesem Fachgebiet nicht möglich"
Else
