Office: Spaltenüberschrift

Hallo,

ich versuche in Excel 2000 über eine Prozedur eine mehrspaltige Listbox zu füllen. Das Befüllen funktioniert ohne Probleme, allerdings weiß ich nicht, wie ich auch die Spaltenüberschriften befüllen kann. Die sind immer leer und meine eigentlichen Spaltenüberschriften stehen in der 1. Zeile der Listbox.
ListBox1.ColumnHeads = true habe ich gesetzt.
Die Einträge werden über ein Array und Listbox1.List() = MyArray in die ListBox eingetragen.

Was mache ich falsch? Habe das Forum durchsucht, aber leider nichts zu Spaltenüberschriften gefunden.

Würde mich über Hilfe sehr freuen. Danke.

Viele Grüße,

Kai

:)

 

Moin, Kai,

ohne Angabe Deines Codes nur die Nachfrage: Dein Bereich für das Einlesen der Werte für die Listbox beginnt unterhalb der Überschriften?

 

Hallo jinx,

hier der Code. Im Execlblatt stehen in der 1. Zeile die Spaltenüberschriften, in allen folgenden Zeilen die Listeneinträge.

Public Sub UserForm_Activate()
Dim MyArray(10, 8)
Dim spalte As Double, zeile As Double

frm_Versandliste.ListBox1.Clear
frm_Versandliste.ListBox1.ColumnHeads = True
With Worksheets("Tabelle2")
For spalte = 0 To 7
MyArray(0, spalte) = .Cells(1, spalte + 1).Value 'Spaltenüberschriften
For zeile = 1 To 9
MyArray(zeile, spalte) = .Cells(zeile + 1, spalte + 1).Value
Next zeile
Next spalte
frm_Versandliste.ListBox1.List() = MyArray

End With

End Sub

 

Hallo,

versuche mal folgenden Code::

Dim I As Integer


With Userform1.ListBox1
.ColumnCount = 2
.ColumnHeads = True
.RowSource = "Tabelle2!a2:b5"
.ColumnWidths = "3cm;3cm"
End With

Gruß

Usi

 

Hallo Usi,

ich denke immer zu kompliziert.
Vielen Dank, Lösung war so einfach.
Wobei ich immer noch nicht kapiere, warum es mit dem array nicht funktioniert hat.

Danke!

Kai