Checkbox Userform zusammenfassen in eine Zelle

Hallo,
ich habe eine Userform mit vielen Textboxen, Optionsfelder, Comboboxen etc. Nun habe ich auch einen Bereich mit Checkboxen, die zu einer Gruppe zusammengefasst sind. Nun möchte ich gern bei der Übernahme in die Tabelle mit dem Speichern sicherstellen, dass alle Checkbox-Namen die ausgewählt wurden (x von 20) in einer Zelle der Tabelle aufgeführt werden.
z.B.: in Zelle B6 steht dann "CB2; CB3; CB6; CB9; CB11; CB12; CB14" , wobei eben die Namen getrennt werden sollten mit einem Semikolon - um ggf. später wieder in der Tabelle suchen zu können.
Wie lautet der VBA-Code (Ansatz reicht mir schon) um die Namen zu suchen und entsprechend zusammen zu fassen in einer Zelle ?!
Vielen Dank für Eure Unterstützung !
Gruß
Kay

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub CommandButton1_Click() Dim objCheck As Control Dim strText As String For Each objCheck In Me.Controls If TypeName(objCheck) = "CheckBox" Then If objCheck Then strText = strText & objCheck.Name & "; " End If Next objCheck strText = Left(strText, Len(strText) - 2) Sheets("Tabelle1").Range("A1") = strText End Sub

Private Sub CommandButton1_Click() Dim objCheck As Control Dim strText As String Dim iCount As Integer For Each objCheck In Me.Controls If TypeName(objCheck) = "CheckBox" Then If objCheck Then strText = strText & objCheck.Name & "; " iCount = iCount + 1 End If End If Next objCheck strText = Left(strText, Len(strText) - 2) Sheets("Tabelle1").Range("A1") = strText Sheets("Tabelle1").Range("B1") = iCount End Sub

Hallo,
besser ist es zur Sicherheit noch eine Abfrage einzubauen, falls mal keine Checkbox auf True steht.

Private Sub CommandButton1_Click()
Dim objCheck As Control
Dim strText As String
Dim iCount As Integer

For Each objCheck In Me.Controls
 If TypeName(objCheck) = "CheckBox" Then
  If objCheck Then
   strText = strText & objCheck.Name & "; "
   iCount = iCount + 1
  End If
 End If
Next objCheck

If strText <> "" Then
 strText = Left(strText, Len(strText) - 2)
End If

Sheets("Tabelle1").Range("A1") = strText
Sheets("Tabelle1").Range("B1") = iCount

End Sub

Gruß Tino

Beliebteste Forumthreads (12 Monate)

Checkbox Userform zusammenfassen in eine Zelle

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Checkbox Userform zusammenfassen in eine Zelle

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

319 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread