CheckBox Abfrage
24.05.2005 09:05:35
Nico
möchte n CheckBoxen nach ihrem Zustand (True) abfragen, mittels Schleife!
Habe jedoch das Problem, dass ich den CheckBoxnamen nicht mit n erhöhen kann!
Also die CheckBoxnamen entsprichen L1 bis Ln.
Vielleicht kann mir ja geholfen werden?
Gruß Nico
Private Sub weiter_Click()
Dim LoLetzte As Long
Dim n, m
Sheets("Tabelle1").Select
LoLetzte = IIf(IsEmpty(Range("A65536")), Range("A65536").End(xlUp).Row, 65536)
n = 0
Do While n <= 37
n = n + 1
m = "=CONCATENATE(""L"", [n])"
If m.Value = True Then
Cells(LoLetzte + 1, n + 4) = "x"
Else
Cells(LoLetzte + 1, n + 4) = ""
End If
Loop
End Sub
Anzeige