ComboBox in Tabellenblatt einrichten .....
28.09.2006 12:42:58
proxima05
ich habe ein kleines Problem mit einer ComboBox in einem Tabellenblatt. Mit dem folgenden Code will ich sie befüllen und aktuell halten (falls es im Datenbereich zu Änderungen kommt). Leider werden bei diesem Code die Änderungen nicht nachvollzogen und gewählte Einträge aus der Liste in der Box nicht angezeigt.
******************************
Private Sub ComboBox1_Enter()
ComboboxFuellen ComboBox1, ActiveWorkbook.Worksheets("Cash Flow").Range("AA2:AA16")
End Sub
Private Sub ComboboxFuellen(CBox As ComboBox, Bereich As Range)
'Laden der Daten aus dem Bereich in die ComboBox, leere Zellen werden übersprungen
With CBox
.Clear
For Each Zelle In Bereich
If Zelle.Value <> "" Then
.AddItem (Zelle.Value)
End If
Next Zelle
End With
End Sub
******************************
Was mache ich denn da falsch? ....
Besten Dank für Hilfe
Proxima
PS: In einem UF funktioniert der Code einwandfrei, ...