Supportnet / Forum / Tabellenkalkulation
CheckBoxen auf UserForm
Frage
Hallo,
habe eine UserForm mit einigen Controls. Von diesen Controls möchte ich speziell die CheckBoxen auf deren Value abfragen. Mit folgendem Code lese ich die Captions aller "geklickten" (also Value = True) CheckBoxen in Spalte A untereinander ein, indem ich einen Button, der ebenfalls auf dieser UserForm ist, betätige:
[b]
Option Explicit
Private Sub CommandButton1_Click()
Dim I As Integer
For I = 1 To 5
If UserForm1.Controls("CheckBox" & I).Value = True Then
Cells(I, 1).Value = UserForm1.Controls("CheckBox" & I).Caption
End If
Next I
End Sub[/b]
Das klappt soweit auch wunderbar. Nun möchte ich aber die Captions aller geklickten CheckBoxen nicht in eine Spalte einlesen, sondern in einer MsgBox ausgeben. Nur wie geht das ?
Vielleicht kann mir jemand weiter helfen.
Vielen Dank im voraus
MfG
Tom
Antwort 1 von Tom1000
Hab´s selbst gefunden !
Private Sub CommandButton2_Click()
Dim I As Integer
Dim strMsg As String
For I = 1 To 5
If UserForm1.Controls("CheckBox" & I).Value = True Then
strMsg = strMsg & UserForm1.Controls("CheckBox" & I).Caption & vbCrLf
End If
Next I
MsgBox strMsg, vbOKOnly + vbInformation, "Diese wurden geklickt !"
End Sub
Grüsse
Tom
Private Sub CommandButton2_Click()
Dim I As Integer
Dim strMsg As String
For I = 1 To 5
If UserForm1.Controls("CheckBox" & I).Value = True Then
strMsg = strMsg & UserForm1.Controls("CheckBox" & I).Caption & vbCrLf
End If
Next I
MsgBox strMsg, vbOKOnly + vbInformation, "Diese wurden geklickt !"
End Sub
Grüsse
Tom