run ?
16.06.2006 17:06:29
Gerald
Ich bin verzweifelt beim Probieren diesen Teil
"crit2 = Cells(lng, 12).Value And _
crit3 = Cells(lng, 5).Value And crit4 = Cells(lng, 27).Value And _
crit5 = Cells(lng, 4).Value Then"
der If Anweisung des untenstehenden Codes variabel, abhängig vom Status mehrerer Checkboxen eines Formulars (die der Anwender aktivieren kann), während der Ausführung zu halten.
Derzeit mache ich das so für jede einzelne Checkbox (die leider nicht fortlaufende Nummern haben können):
If CheckBox333.Value = True Then
crit5 = ComboBox1.Value
Suchbefehlneu = Suchbefehlneu & "crit5 = cells(lng, 4).Value"
End If
' hier der Code der mir die gefunden Datensätze in einer Listbox anzeigen soll
For lng = 3 To ZeileMax
If crit2 = Cells(lng, 12).Value And _
crit3 = Cells(lng, 5).Value And crit4 = Cells(lng, 27).Value And _
crit5 = Cells(lng, 4).Value Then
.ListBox3.AddItem Cells(lng, 1).Value
.ListBox3.Column(0, i) = Cells(lng, 1).Value
.ListBox3.Column(1, i) = Cells(lng, 3).Value
.ListBox3.Column(2, i) = Cells(lng, 4).Value
.ListBox3.Column(3, i) = Cells(lng, 5).Value
.ListBox3.Column(4, i) = Cells(lng, 6).Value
.ListBox3.Column(5, i) = Cells(lng, 7).Row
.ListBox3.Column(6, i) = Cells(lng, 8).Value
.ListBox3.Column(7, i) = Cells(lng, 9).Value
.ListBox3.Column(8, i) = Cells(lng, 10).Value
.ListBox3.Column(9, i) = Cells(lng, 11).Value
i = i + 1
Else
End If
Next lng
Den Wert einer Variablen zuweisen ist natürlich kein Problem, aber wie krieg ich den so in den VBA-Code, damit der Code auch was damit anfangen kann? Mit run? Aber wie genau funktioniert das? Die Variable ist ja bei mir noch ein String.
Ich glaub ich will zu viel des Guten :-)))
Vielen Dank!
mfg
Gerald