2spaltige Listbox füllen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
ListBox


Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: 2spaltige Listbox füllen
von: Christoph Dümmen
Geschrieben am: 15.05.2002 - 10:25:39

Hallo,

kann ich mit AddItem die zweite Spalte einer Listbox füllen?
Es muss leider die AddItem-Methode sein. Das einlesen einer Liste aus einer Tabelle ist nicht möglich.

Christoph


nach oben   nach unten

Re: 2spaltige Listbox füllen
von: Hajo
Geschrieben am: 15.05.2002 - 18:01:12

Hallo Christoph

hier mal ein Teil aus meinem Code für eine 3 spaltrige Listbox, mann sieht aber das rinzip


    LST_Nummer.ColumnCount = 3: Zeile = 0
'   Sortieren nach Auftragsnummer
    With Workbooks("AUFTRAG KALKULATIONEN.XLS").Worksheets("Werte_Auftrag")
        .Range("C2").Sort Key1:=.Range("C2"), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
            MatchCase:=False, Orientation:=xlTopToBottom
        Zähler = 2
        Do
            Set Zelle = .Range("B" & Zähler & ":B" & .Range("B1") - 1).Find(What:=Suche)
            If Not Zelle Is Nothing Then
                LST_Nummer.AddItem .Range("C" & Zelle.Row)
                LST_Nummer.List(Zeile, 1) = .Range("B" & Zelle.Row)
                LST_Nummer.List(Zeile, 2) = .Range("D" & Zelle.Row)
                Zeile = Zeile + 1
                Zähler = Zelle.Row + 1
                If Zähler > .Range("B1") - 1 Then Exit Do
            Else
                Exit Do
            End If
        Loop
    End With

Gruß Hajo

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "2spaltige Listbox füllen"