combobox aktualisieren - beispielmappe

Forumthread: combobox aktualisieren - beispielmappe
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: combobox aktualisieren - beispielmappe

11.08.2005 21:58:12

roland_k

hoi zusammen
habe das problem aus beitrag von gestern geloest denke mal richtig (
mit der antwort von UN1 konnte nicht viel anfangen
in der beispielmappe habe meine frage beschrieben...wie gesagt das mit dem aktualisieren der drei boxen läuft soweit.
kann mir bitte jemand den code ergänzen wie in der mappe beschrieben
https://www.herber.de/bbs/user/25558.xls
danke im voraus
gruss roland_k

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: combobox aktualisieren - beispielmappe

11.08.2005 22:27:47

Kay
sotte ebe fuer jeden wert der box funtionieren

11.08.2005 22:36:01

roland_k
AW: sotte ebe fuer jeden wert der box funtionieren

11.08.2005 22:46:59

Kay

AW: combobox aktualisieren - beispielmappe

11.08.2005 22:27:47

Kay

Hallo roland_k,
vieleicht so:


Private Sub ComboBox1_Change()
For i = 5 To 20
If ComboBox1 = "4" And Cells(i, 11) = "4" Then
Cells(i, 11).Interior.ColorIndex = 3
End If
Next i
End Sub

habe ich jetzt nicht getestet. Und die Farbe musst du noch anpassen.
Gruß
Kay

sotte ebe fuer jeden wert der box funtionieren

11.08.2005 22:36:01

roland_k

hi kay das sollte eben fuer jeden wert gehn....
schautr das noochmal jemand nach ?
danke
gruss roland_k

AW: sotte ebe fuer jeden wert der box funtionieren

11.08.2005 22:46:59

Kay

Hi,
wie wäre es damit:


Private Sub ComboBox1_Change()
For i = 5 To 20
If ComboBox1 = "4" And Cells(i, 11) = "4" Then
Cells(i, 11).Interior.ColorIndex = 3
ElseIf ComboBox1 = "6" And Cells(i, 11) = "6" Then
Cells(i, 11).Interior.ColorIndex = 3
ElseIf ComboBox1 = "8" And Cells(i, 11) = "8" Then
Cells(i, 11).Interior.ColorIndex = 3
Else
Cells(i, 11).Interior.ColorIndex = xlNone
End If
Next i
End Sub

Farben noch anpassen.:-)
Gruß
Kay