Checkbox wenn True BackColor ändern oder ähnliches
18.12.2013 23:30:54
Marc
Ich schreibe z.z einen Kostenstellenplan, lief bisher auch super trotz bescheidener VBA Kenntnisse. Ich habe heute schon zig verschiedene Google anfragen dazu gestellt aber leider keine Lösung gefunden.
Ich habe mir einer Userform erstellt in der man später die einzelen Mitarbeiter rauslöschen kann. Dazu habe ich mir 50 checkboxen angelegt die nur angezeigt werden wenn auch ein Mitarbeiter in der Zelle vorhanden ist. Das klappt auch soweit...
Was ich jetzt erreichen möchte ist, das sobald eine Checkbox ausgewählt ist, das BackColor oder ForeColor sich Rot färbt.
Das ist mein Code bisher:
Dim i As Variant
For i = 1 To 50
Controls("Checkbox" & i).Caption = Sheets("Gesamtübersicht").Cells(8, 5 + i).Value
If Sheets("Gesamtübersicht").Cells(8, 5 + i).Value = "" Then
Me.Controls("CheckBox" & i).Visible = False
Else
Me.Controls("CheckBox" & i).Visible = True
End If
If Me.Controls("CheckBox" & i).Value = True Then
Me.Controls("CheckBox" & i).ForeColor = vbBlack
Else
Me.Controls("CheckBox" & i).ForeColor = vbRed
End If
Next
End Sub
Bin auch gern für andere Lösung offen, wie zb das mir eine MsgBox die Werte der ausgewählten Checkboxen ausgibt. Es sollte nur Klar erkennbar sein, welche Mitarbeiter man gerade löschen will.
Im moment kraust es mich schon vor dem nächsten Code der die entsprechende Bereiche dann auch leeren soll :/... vllt kann mir ja da schon mal jemand ein Tip geben :)
Freu mich auf Hilfe und fände es super wenn ihr mir mein Fehler kurz erklären könntet
danke!!