Combobox bleibt leer
Betrifft: Combobox bleibt leer
von: Reservist
Geschrieben am: 14.08.2004 08:54:01
Guten Morgen,
habe mir gestern Abend (Beitrag 22:08)bei diesem Code helfen lassen.
Meine Combobox bleibt aber Leer. Ist noch was falsch? oder setze ich den
Code nicht richtig ein. Hatte ihn erst nur in Tabelle, Danach in Modul + Tabelle. Leider kein erfolg.
Sub ComboBox_Breite_Füllen()
Dim i As Integer
ComboBox_Breite.Clear
For i = 18 To 89
If Cells(i, 14) <> "" Then ComboBox_Breite.AddItem Cells(i, 14).Value
Next i
End Sub
Für Hilfe besten Dank im vorraus
Gruß aus Leipzig
Thorsten
Betrifft: AW: Combobox bleibt leer
von: Annett
Geschrieben am: 14.08.2004 09:02:19
Hallo Thorsten
wodurch / Wie wird das Makro gestartet?
Ist die ComboBox in der Tabelle oder UserForm?
Gruß Annett
Betrifft: AW: Combobox bleibt leer
von: Reservist
Geschrieben am: 14.08.2004 09:11:57
Hallo Annett,
es ist in einer Tabelle. Tja starten sollte es beim öffnen der Datei.
Habe keine Ahnung von VBA. Zuerst hatte ich es mit Eigenschaften "ListFillRange"
probiert. Funktionierte auch. Nur stören die vielen leere Zellen.
Gruß Thorsten
Betrifft: AW: Combobox bleibt leer
von: Annett
Geschrieben am: 14.08.2004 09:25:47
Hallo Thorsten
in VBA unter DieseArbeitsmappe
Private Sub Workbook_Open()
Dim i As Integer
With Worksheets("Tabelle1")
.ComboBox_Breite.Clear
For i = 18 To 89
If .Cells(i, 14) <> "" Then .ComboBox_Breite.AddItem .Cells(i, 14).Value
Next i
End With
End Sub
Gruß Annett
Betrifft: AW: Combobox bleibt leer
von: Reservist
Geschrieben am: 14.08.2004 09:45:28
OK Annett, funktioniert erstmal.
Habe mich aber mit dem "Beim Öffnen" falsch ausgedrückt.
Die Werte in der Spalte N verändern sich in Abhängikeit
von anderen Auswahlfeldern.
Das heißt die Combobox muß bei Auswahl stehts die aktuellen
Werte aus N18:N89 holen.
Für deine Hilfe vielen Dank
Ich weis, es nervt, wenn sich die "Frager" sich nicht klar
ausdrücken.
Drück ein Auge zu und hilf nochmal.
Gruß Thorsten
Betrifft: AW: Combobox bleibt leer
von: Annett
Geschrieben am: 14.08.2004 10:42:34
Hallo Thorsten
Private Sub ComboBox_Breite_DropButtonClick()
Dim i As Integer
ComboBox_Breite.Clear
For i = 18 To 89
If Cells(i, 14) <> "" Then ComboBox_Breite.AddItem Cells(i, 14).Value
Next i
End Sub
Gruß Annett
Betrifft: AW: Combobox bleibt leer
von: Annett
Geschrieben am: 14.08.2004 11:37:18
Hallo Thorsten
oder noch ein wenig verbessert.
Private Sub ComboBox_Breite_DropButtonClick()
Dim Anzahl As Integer
Anzahl = ComboBox_Breite.ListCount
If Anzahl <> WorksheetFunction.CountA(Range("N18:N89")) Then
Dim i As Integer
Worksheets(1).Range("A5") = ComboBox_Breite.Value
ComboBox_Breite.Clear
For i = 18 To 89
If Cells(i, 14) <> "" Then ComboBox_Breite.AddItem Cells(i, 14).Value
Next i
End If
End Sub
Gruß Annett
Beiträge aus den Excel-Beispielen zum Thema "Combobox bleibt leer"