| Von |
MarkusSch |
| eMail |
|
| Am |
10. Juli 2008 um 00:46:14 |
| Frage |
Hallo würde gerne eine Checkbox in der Userform ändern.
Wenn z.B. Range B20 "1" ist soll die Checkbox1 den wert True als vorgabe bekommen.
Hab es wie folgt ProbiertPrivate Sub CommandButton4_Click()
Dim Wagennummer As Integer, usrRange As Integer
If TextBox1 = "" Then
GoTo abbrechenwegenleer
End If
Wagennummer = TextBox1
usrRange = Wagennummer + 2
If Range("B" & usrRange) = 1 Then
CheckBox1.Value = True
End If
If Range("C" & usrRange) = 1 Then
CheckBox2.Value = True
End If
If Range("D" & usrRange) = 1 Then
CheckBox3.Value = True
End If
abbrechenwegenleer:
Unload UserForm1
UserForm1.Show
End Sub leider klappt das so nicht ganz.
hoffe mir kann hier einer weiterhelfen.
|
|
Zum Seitenanfang