AW: CheckBox
13.10.2022 18:15:51
Detlef
Hallo Katrin,
meine VBA-Kenntnisse sind leider so schlecht, dass ich Dir das nicht zumuten kann, meine Programmierung zu prüfen.
Hier ist mein Problem.
Private Sub CheckBox12_Click()
Dim MyForm As MSForms.TextBox, MyForm1 As MSForms.TextBox, MyForm2 As MSForms.TextBox
Set MyForm = Entfernung.TextBox110
Set MyForm1 = Entfernung.TextBox210
Set MyForm2 = Entfernung.TextBox310
With MyForm
If CheckBox12 = True Then
.ForeColor = RGB(0, 0, 0) 'Farbe Schwarz, Haken gesetzt, hier werden drei Textboxen mit Schriftfarbe Rot versehen.
Else
.ForeColor = RGB(255, 0, 0) 'Farbe Rot, Haken nicht gesetzt
End If
End With
With MyForm1
If CheckBox12 = True Then
.ForeColor = RGB(0, 0, 0)
Else
.ForeColor = RGB(255, 0, 0)
End If
End With
With MyForm2
If CheckBox12 = True Then
.ForeColor = RGB(0, 0, 0)
Else
.ForeColor = RGB(255, 0, 0)
End If
End With
UserForm_Initialize 'Hier sollten alle TextBoxen aktualisiert werden. Passiert aber nichts.
End Sub
Private Sub UserForm_Initialize()
TextBox339 = Sheets(15).Range("AB25")
End Sub
Das mit der farblichen Veränderung funktioniert super. Aber dann wird die Textbox nicht aktualisiert. Der Wert dazu kommt aus einem Tabellenblatt und dort ist der Wert richtig.
Vielleicht kannst Du hier etwas erkennen und mir helfen. Aber trotzdem vielen Dank für Deine Bemühungen.
Detlef.