die im Code gesuchten Blöcke funktionieren alle bis auf die Blöcke 1 und 2. Hier werden die Blöcke 5 und 6 angezeigt. Block 1 und 2 funktionieren aber wenn Block 5 und 6 gelöscht werden. Wo liegt der Fehler?
Private Sub UserForm_Initialize()
With UserForm2
If .Erw = 1 And .Jug = "" And .Frei = "" Then ' Block 1
TextBox7.Value = "Insgesamt " & .Anz & " Eintrittskarte (gewählt: 1, 0, 0)" 'Angezeigt wird: _
Block 5
TextBox9.Value = ""
End If
If .Erw > 1 And .Jug = "" And .Frei = "" Then 'Block 2
TextBox7.Value = "Insgesamt " & .Anz & " Eintrittskarten (gewählt: >1, 0, 0)" 'Angezeigt wird: _
Block 6
TextBox9.Value = ""
End If
If .Erw = 1 And .Jug = "" And .Frei = 1 Then 'Block 3
TextBox7.Value = "Insgesamt " & .Anz & " Eintrittskarten" 'Auswahl _
korrekt
TextBox9.Value = "Hierin enthalten: " & .Frei & " Freikarte, (gewählt: 1, 0, 1)"
End If
If .Erw > 1 And .Jug = "" And .Frei = 1 Then 'Block 4
TextBox7.Value = "Insgesamt " & .Anz & " Eintrittskarten" 'Auswahl _
korrekt
TextBox9.Value = "Hierin enthalten: " & .Frei & " Freikarte, (gewählt: >1, 0, 1)"
End If
If .Erw = 1 And .Jug = "" And .Frei > 1 Then 'Block 5
TextBox7.Value = "Insgesamt " & .Anz & " Eintrittskarten" 'Auswahl _
korrekt
TextBox9.Value = "Hierin enthalten: " & .Frei & " Freikarten (gewählt: 1, 0, >1)"
End If
If .Erw > 1 And .Jug = "" And .Frei > 1 Then 'Block 6
TextBox7.Value = "Insgesamt " & .Anz & " Eintrittskarten" 'Auswahl _
korrekt
TextBox9.Value = "Hierin enthalten: " & .Frei & " Freikarten (gewählt: >1, 0, >1)"
End If
If .Erw = "" And .Jug = "" And .Frei = 1 Then 'Block 7
TextBox7.Value = "Insgesamt " & .Anz & " Freikarte (gewählt: 0, 0, 1)" 'Auswahl _
korrekt
TextBox9.Value = ""
End If
If .Erw = "" And .Jug = "" And .Frei > 1 Then 'Block 8
TextBox7.Value = "Insgesamt " & .Anz & " Freikarten (gewählt: 0, 0, >1)" 'Auswahl _
korrekt
TextBox9.Value = ""
End If
End With
End Sub
Dies ist nur ein Ausschnitt vom Code. Insgesamt sind es 20 Blöcke. Dann wird bei Block 1 und 2 derBlock 18 und 19 angezeigt.
Ich kann keinen Fehler im Code erkennen und bitte um Hilfe.
Vielen Dank
Wolfgang