komplizierte Schleife
14.12.2008 18:20:23
Mister
In meiner UF sind links 24 CheckBoxen (1 - 24) übereinander, daneben sind 24 TextBoxen (12-35) und daneben sind 24 Comboboxen (1 . 24). Ich möchte folgendes erreichen wenn ich in meiner UF den Optionsbutton1 anklicke:
1. Wenn einige CheckBoxen angeklickt werden, sollen in den entsprechenden ComboBoxen ein Wert eingetragen werden ("Test").
2. Wenn alle Checkboxen leer sind, sollen in den Comboxen auch "Test" eingetragen werden sofern im entsprechenden TextBox nicht "Test" schon steht.
Mein Code sieht so aus:
Private Sub OptionButton1_Click()
Dim i As Integer
Dim x As Integer
Dim Einige As Boolean
For i = 1 To 24
If Me.Controls("CheckBox" & i).Value = True Then
Me.Controls("ComboBox" & i).Value = "Test"
Exit Sub
End If
Next
For i = 1 To 24
If Me.Controls("CheckBox" & i).Value = False Then Einige = True
Next
If Einige Then
For x = 12 To 35
If Me.Controls("TextBox" & i).Value "Test" Then Me.Controls("ComboBox" & i - 11).Value = " _
Test"
Next
End If
End Sub
Teil 1 gelingt mir aber der zweite Teil will einfach nicht. Ich hoffe ich habe mich verständlich ausgedruckt. Wer kann helfen?
Gruß
Martin