Private Sub CheckBox71_Lage_Click() = hier kommt fehler ist Gelb hinterlegt wenn ich es starte!!!
Dim MyForm As MSFroms.TextBox
Set MyForm = Lagemeldung.TextBox2_Lagemeldung
With MyForm
If CheckBox71_Lage = True Then
.ForeColor = RGB(255, 0, 0) 'Farbe rot, Haken gesetzt
Else
.ForeColor = RGB(0, 0, 0) 'Farbe schwarz, Haken nicht gesetzt
End If
End With
End Sub