Hallo Sunnybat,

kan je bovenstaande even beter uitleggen?

Een Combobox kan wel meerdere kolommen hebben (in een Userform)
Is het dat wat je bedoeld?

SoftAid              

SunnyBat, wát is dan een kolom in een Userform??? Je laat mooie .jpg'tjes zien, maar niets wat ons opweg kan helpen.

SunnyBat, op een Excel forum vinden de helpers het fijner om een Excel-bijlage te ontvangen ipv een paar plaatjes. Dat 1e helpt namelijk een stuk sneller de vraagsteller op weg. Zet je bestandje hier dan ook even als bijlage.
Maar goed, je hebt het over "kolommen", maar die dingen op een formulier heten "tekstvelden". Dat je die tekstvelden de naam geeft van de kolom waar je ze waarschijnlijk in je sheet wilt wegschrijven, is best wel handig maar heeft verder niets met de sheet-kolommen te maken. Ik begrijp dus dat je de tekstvelden van kleur wilt laten veranderen als er een bepaalde waarde in zo'n veld wordt opgegeven? Dan is het wachten ff op je Excel bijlage.

Hmmm... waarschijnlijk snap ik je niet helemaal, maar jouw stukje code kan je toch gewoon in je textbox_change events plakken?
Dit voor de textbox "KolomB"?
Private Sub KolomB_Change()
    With KolomB
        If .Text = "-" Then
            .BackColor = vbCrimson
        Else
            .BackColor = vbGreen
        End If
    End With
End Sub

Overigens nog even een tip voor je. De 64Bit versie van Excel gaat steeds algemener worden. Een 16Bit zal je bijna niet meer tegenkomen. Jouw code klapte dus op mijn laptop met een 64Bit versie. Ga dus even opzoek naar de afhandeling daarvoor zodat je met alle versie blijft werken.

SunnyBat, ik denk dat het slimmer is om je check op alle velden uit te voeren bij de knop Opslaan oid. Zo kan je ze in 1 procedure langslopen en controleren of je foute waardes ziet of dat die leeg is oid. En dat koppel je terug aan de gebruiker. Dat kan een stuk eenvoudiger zijn dan veld voor veld (dus NIET "cel"  ) deze uitvraging willen doen.

[EDIT] Hierbij een snel voorbeeldje van internet geplukt met code van hoe je dat doet (in dit geval worden de textboxen geleegd, maar jij moet daar jouw ding doen uiteraard)
Private Sub ClearFields_Click()

    Dim ctrl As Control      ' CREATE A CONTROL OBJECT.

    ' LOOP THROUGH EACH CONTROL, CHECK IF THE CONTROL IS A TEXTBOX.
    For Each ctrl In Me.Controls
        If TypeName(ctrl) = "TextBox" Then
            ctrl.Value = ""      CLEAR THE VALUE.
        End If
    Next ctrl
End Sub

Zoals ik het begrijp ben je op zoek naar een manier om visueel lege velden in een formulier te benadrukken zodat ze opvallen.

Heb even met je formulier bewerken gespeeld dus test het even uit.

Open het formulier en typ een waarde in de combobox om het Change-event te triggeren.

Je zal zien dat de lege velden groen gekleurd worden zodat ze opvallen. Van zodra je daar een waarde invult wordt de achtergrond

automatisch terug wit.

Voor het Change-event van de TextBoxen heb ik een Klassemodule toegevoegd omdat je anders dezelfde code 33X moet herhalen.

Bekijk het eens en laat maar iets weten.