Hi,
ich habe ein Userform mit 7 CheckBoxen(CheckBox8, CheckBox9,…CheckBox14).
Ich suche nach einer Lösung, wie man die jeweiligen CheckBoxen in eine Schleife packt…
Sprich wenn, z.B. CheckBox8 ausgewählt wird, dann ändert sich der Wert in der Schleife (in der If- Anweisung und im Jahr „2008“) u.s.w.
Hier der bisherige Code:
Dim n
Dim Summe
Dim Wett_Name As String
Wett_Name = ComboBox4.Text
If CheckBox8.Value Then
For n = 18 To Cells(Rows.Count, 11).End(xlUp).Row
If Cells(n, 11).Value > 0 And Cells(n, 1).Value = Wett_Name And Cells(n, 9).Value <> "Dealer" And Cells(n, 8).Value = "2008" Then
Summe = Summe + Cells(n, 11).Value
End If
Next
End If
Vielen Dank im Voraus für Eure Hilfe.
Micha
|