mehrere checkboxen in eine Zelle
10.03.2022 08:59:04
soldblub
Bisher habe ich immer einzelnd den gewünschten Inhalte diverser Checkboxen in unterschiedliche Zelle übernommen.
If Checkbox1.Value = True Then
Tabelle9.Range("B1).Value = "Sonne"
End If
Jetzt möchte ich aber deutlich mehr Checkboxen abfragen und die Caption als Text mit Komma getrennt in eine Zelle schreiben. Außerdem besteht bei eine Checkbox aus einer Kombi mit einem Textfeld als. sog. Freitextfel. Dies müsste im Anschluss, als letztes übertragen werden.
Habe bisher immer Schleifen vermieden, weil ich es meistens nicht hin kriege. Habe versucht meine erfolgreiche Schleife einer Listbox umzubauen, bekomme es aber nicht hin, da ich keine Ahnung habe wie ich die aktive Checkboxen rausfiltern.
Private Sub CheckCheck()
Dim i As Long
Dim txt As String
For i = 0 To 11
If CheckBox.activated(i) Then txt = txt & "; " & vbCrLf & CheckBox(i)
Next
Tabelle9.Range("B59").Value = Mid(txt, 2)
If MsgBox("Daten übertragen, möchten Sie weitermachen? ", vbOKCancel) = vbOK Then
End If
End Sub