Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1668to1672
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Checkboxen auf Userform auswerten

Checkboxen auf Userform auswerten
23.01.2019 15:32:39
JeJe
Hallo Zusammen
Ich habe eine Userform mit 45 Checkboxen und einer TextBox.
Durch eine Schaltfläche sollen die Eingaben in der Userform jeweils in der understen Zeile des Tabellenblattes 1 gespeichert werden.
Die erste Spalte ist für den eingegeben Wert der TextBox reserviert.
******
Dim lastrow As Integer
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lastrow, 1).Value = txt_CellID.Value
******
Das Funktioniert soweit.
Die weiteren Spalten sollen dann jeweils nur die definierten Werte (.Value) aller aktivierten Checkboxen zeigen. Jeweils pro Feld nur einen Wert!
Wie kann ich dies am einfachsten machen?
Ich danke schon im voraus für eure Hilfe!
Gruss
JeJe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Checkboxen auf Userform auswerten
23.01.2019 15:42:00
Werner
Hallo,
was meinst du mit

nur die definierten Werte 
?
Eine Checkbox ist entweder True (ausgewählt) oder False (nicht ausgewählt).
Sind deine Checkboxen fortlaufend numeriert, von 1 bis 45 ?
Gruß Werner
AW: Checkboxen auf Userform auswerten
23.01.2019 15:43:55
ChrisL
Hi
Ich habe es mal so interpretiert...
Private Sub CommandButton1_Click()
Dim lastrow As Long, i As Integer
lastrow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(lastrow, 1).Value = txt_CellID.Value
For i = 1 To 45
If Controls("CheckBox" & i) Then _
Cells(lastrow, Columns.Count).End(xlToLeft).Offset(0, 1) = Controls("CheckBox" & i).Caption
Next i
End Sub

Die CheckBoxen Namen müssen durchnummeriert sein CheckBox1, CheckBox2 usw.
cu
Chris
Anzeige
AW: Checkboxen auf Userform auswerten
29.01.2019 16:51:36
JeJe
Hi Chris
funktioniert wunderbar! Danke dir!
Gruss
JeJe

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige