Microsoft Excel

Herbers Excel/VBA-Archiv

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"