Hallo Zusammen,
ich denke ich habe ein recht simples Problem, komme allerdings nicht weiter.
Ich habe 12 Checkboxen die Checkbox1 bis Checkbox12 heißen.
Hinter jeder Checkbox in der Userform "Optionenfestlegen" steht ein Label1-bis Label12 mit einem Text.
Wenn nun z.B. Checkbox1 ein Haken gesetzt wird, soll in der Zelle (14,6+g) den Inhalt von Label1 rein schreiben. Wenn mehrere Haken gesetzt sind, soll er mit dem Spaltenzähler g einfach in die nächste Spalte springen und dort den Inhalt rein schreiben.
Leider funktioniert mein Ansatz nicht:
Private Sub Weiter_Click()
Dim i As Integer
Dim g As Integer
g = 0
Worksheets("VAM Kalk Optionen").Activate
For i = 1 To 12
If ActiveSheets("Checkbox" & i).Object.Value = True Then
Cells(14, 6 + g) = Me.Controls("Label" & i).Caption
End If
Next i
End Sub
Wäre klasse, wenn mir jemand helfen könnte.
Vielen Dank.
|