Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CheckBox
BildScreenshot zu CheckBox CheckBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Checkboxen auf Userform auswerten


Betrifft: Checkboxen auf Userform auswerten von: JeJe
Geschrieben am: 23.01.2019 15:32:39

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


  

Betrifft: AW: Checkboxen auf Userform auswerten von: Werner
Geschrieben am: 23.01.2019 15:42:00

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


  

Betrifft: AW: Checkboxen auf Userform auswerten von: ChrisL
Geschrieben am: 23.01.2019 15:43:55

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


  

Betrifft: AW: Checkboxen auf Userform auswerten von: JeJe
Geschrieben am: 29.01.2019 16:51:36

Hi Chris

funktioniert wunderbar! Danke dir!

Gruss
JeJe


Beiträge aus dem Excel-Forum zum Thema "Checkboxen auf Userform auswerten"