ComboBox und Tabellenwerte - BG Farbe
30.12.2022 13:35:51
Rag
ich versuche jetzt seit einiger Zeit Werte aus einer in einem Arbeitsblatt erfassten Datenbank in eine Combobox zu ziehen. Der ausgewählte Wert soll in der Datenbank rot hinterlegt werden. wenn ein anderer Wert ausgewählt wird, soll der zuvor ausgewählte wert wieder weiß hinterlegt werden. Also die Zelle.
Private Sub ComboBox1_Change()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Tabelle1")
Dim selectedValue As String
selectedValue = ComboBox1.Value
Dim cell As Range
Set cell = ws.Range("A1:A30").Find(selectedValue)
If Not cell Is Nothing Then
cell.Interior.Color = vbRed
End If
If Not cell Is Nothing Then
For Each c In ws.Range("A1:A30")
If c.Address cell.Address Then
c.Interior.Color = vbWhite
End If
Next c
End If
ComboBox1.Text = selectedValue
End Sub
Für eure Hilfe wäre ich sehr dankbar.
Danke und schöne Grüße