Checkboxnamen in einer Zelle ausgeben

Hallo liebes Forum,
da ich nur geringe bzw. einfache Kenntnisse von Userformen habe, bitte ich euch um Hilfe. Wie aus der Datei zu entnehmen ist, möchte ich eine Userform aufrufen. Am besten sollen alle Checkboxen bereits mit Haken ausgefüllt sein und der User wählt nur die ab, welche nicht benötigt werden. Wenn dies nicht geht und der User alle benötigten anwählen muss, passt dies auch.
Die Felder, welche nicht angeklickt sind, sollen dann in einer Zelle (Beispiel in E14) durch ein Komma getrennt geschrieben werden. Jede Checkbox hat daher einen eindeutigen Namen (Checkbox1 soll Halle A FS sein, Checkbox2 Halle A SpS, )
Es soll somit die Namen angezeigt werden, welche nicht ausgewählt sind.
https://www.herber.de/bbs/user/138378.xlsm
Grüße Martin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub CommandButton1_Click() Dim ctrl As Object Dim Ziel As Range Set Ziel = ActiveSheet.Cells(15, 5) Ziel.ClearContents For Each ctrl In Me.Controls If Left$(ctrl.Name, 8) = "CheckBox" Then If ctrl.Value Then _ Ziel = Ziel.Text & ctrl.Tag & ", " End If Next ctrl If Len(Ziel.Text) > 0 Then _ Ziel = Left$(Ziel.Text, Len(Ziel.Text) - 2) End Sub

Hallo Nepumuk,
danke für die Hilfe. Es funktioniert so wie ich es mir vorgestellt habe. Ich hätte aber noch ein paar fragen, damit ich mich weiterentwickle und alles auch verstehe.
1. "Sheet1.Range("E14").Value = Left$(strText, Len(strText) - 2)" Was bedeutet in diesem Zusammenhang Left$ und Len(strTxt)-2)?
2. Ich hatte ja ein Update mit den Haken gemacht beim Initialisieren der Userform. Dies ist bei dir nicht. Wie hast du das gelöst? Gibt es das bei den Einstellungen?
3. Du setzt die Namen aus den Labeln zusammen. Hatte mal versucht das in die Checkbox zu ändern. Es kam ein Syntaxerror. Ich wollte gerne die nehmen, weil ich dort Abkürzungen reinschreiben kann. Die Labels sind im Original sehr lang. Anstatt Halle 1 ist es Halle A3 inkl. Spezialanlieferung und FS zb. Frühschicht. Der User soll später die langen Namen sehen, aber in der ganzen Berechnung etc. sollen die Kürzel verwendet werden (A3-Sp-FS)
Grüße Martin

Beliebteste Forumthreads (12 Monate)

Checkboxnamen in einer Zelle ausgeben

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Checkboxnamen in einer Zelle ausgeben

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

326 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread