Office: Hilfe bei Kombinationsfeld

Hallo, kann mir vielleicht jemand sagen, ob ich ein Kombinationsfeld so einstellen kann, dass es solange nichts ausgewählt wurde das Feld eine bestimmte Farbe hat und bei Auswahl dann auf weiss umspringt?

Zweck soll sein, dass ich erkenne welches Feld schon bearbeitet wurde!

Danke schon mal im Voraus für eure Mühe :)

Mfg

 

Hallo!

Wenn es ComboBoxen aus der Symbolleiste "Steuerelemente-Toolbox" sind, dann vielleicht mit einem Calculate-Ereignis?

Code:

Private Sub Worksheet_Calculate()
Dim i As Integer
For i = 1 To 10
With Sheets("Tabelle1").OLEObjects("ComboBox" & i).Object
If .Value = "" Then
.BackColor = 255
Else
.BackColor = &HFFFFFF
End If
End With
Next i
End Sub

Durchläuft ComboBox1 bis ComboBox10 im Blatt "Tabelle1" und alle leeren ComboBoxen werden rot eingefärbt, wenn eine Änderung auch eine Neuberechnung hervorruft.

 

Danke für die schnelle Antwort aber irgendwie funktioniert das bei mir nicht. Ich habe alles eingefügt, aber an der Farbe tut sich nichts! bleibt alles weiß.

 

Hallo!

Wenn's bei dir nicht funktioniert, dann kann das verschiedene Gründe haben:

- die ComboBoxen sind nicht aus der Symbolleiste "Steuerelemente-Toolbox"
- durch das Ändern einer Box wird keine Neuberechnung ausgeführt
- du hast den Code an die falsche Stelle kopiert (er gehört in das Modul des Tabellenblatts)
- deine ComboBoxen heißen nicht "ComboBox1", ComboBox2", usw.