VBA: CheckBox/Caption
28.01.2020 22:39:50
Charly
ich hab da ein Problem mit CheckBoxen u. dessen Captiones.
In meiner UF habe Ich ca. 110 CheckBoxen, aufgeteilt in 3 Frames.
Die CheckBox-Caption wird per Tabelle gefühlt u. über "UserForm_Initialize" beim start der UF ausgeführt.
Werte für die Caption:
'====
Frame1: Tabelle "Bewohner", Spalte "B", Zeile "5-43"
Frame2: Tabelle "Bewohner", Spalte "B", Zeile "45-77"
Frame3: Tabelle "Bewohner", Spalte "B", Zeile "79-117"
Die Frames sind nur Optik halber in der UF somit kein Ausführbares Objekt.
Per Code:
UF2_Tab6_Drucken.CB_001.Caption = Worksheets("Bewohner").Range("B5").Value
UF2_Tab6_Drucken.CB_002.Caption = Worksheets("Bewohner").Range("B6").Value
UF2_Tab6_Drucken.CB_003.Caption = Worksheets("Bewohner").Range("B7").Value
Wie erreiche Ich das wenn in Spalte "B" der Text "Nicht Besetzt" steht das sich dann die jeweilige Caption der CheckBoxen die Schriftfarbe Bsp. in "Rot" ändert.
Per Google habe Ich "CheckBox.Forecolor" gefunden weiß aber nicht wie Ich es einsetzen muss.
Danke für eure Hilfe im voraus!
Gruß Charly