Listbox mit Überschriften
29.01.2015 15:08:21
Christoph
ich habe folgendes Makro für eine Listbox innerhalb einer userform. Ich habe nun das Problem, dass ich gerne die Überschriften der jeweiligen Spalte auch in der Listbox abbilden würde.
Nachfolgend das Makro:
Private Sub UserForm_Initialize()
Dim lZeile As Long
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
ListBox1.Clear
lZeile = 6
With Me.ListBox1
.ColumnCount = 3
.ColumnWidths = "2,5cm;2,5cm;2,5cm"
Do While Trim(CStr(Tabelle1.Cells(lZeile, 1).Value)) ""
.AddItem
.List(.ListCount - 1, 0) = Trim(CStr(Tabelle1.Cells(lZeile, 1).Value))
.List(.ListCount - 1, 1) = Trim(CStr(Tabelle1.Cells(lZeile, 2).Value))
.List(.ListCount - 1, 2) = Trim(CStr(Tabelle1.Cells(lZeile, 5).Value))
lZeile = lZeile + 1
Loop
End With
End Sub
Den Befehl.ColumnHeads = True kann ich ja leider nur verwenden, wenn ich die Listbox mit .RowSource befülle. Der Bereich ist allerdings nicht variabel sondern wird über die userform auch mit neuen Einträgen erweitert.
Ist in Falle meines Makros (welches ich mit Foren- und Buchhilfe erstellt habe - ich bin mehr Laie als Profi) auch eine andere Lsg. möglich?
Gerne nehme ich Tipps entgegen. Eine vollständige Lsg ist nicht notwendig. Ich möchte meinen Horizont ja erweitern.
Tausend Dank und einen guten Tag.
VG, Christoph