Listboxformatierung & dynamischer RowSource
11.03.2005 11:01:42
Andre
mit folgendem Code (teilweise ein Tip aus diesem Forum, danke!) wird dem Betrachter vorgegaukelt die Listbox sei sowohl links- als auch rechtsbündig formatiert (nur bei Schriftart "Courier New"!).
Private Sub UserForm_Activate()
With Worksheets("Tabelle1")
'LetzteZeileListe = .Cells(Cells.Rows.Count, 2).End(xlUp).Row
Dim arr(1 To 65536, 2 To 7)
Dim iRow As Integer, iCol As Integer
For iRow = 1 To LetzteZeileListe
For iCol = 2 To 7
If iCol = 4 Then
arr(iRow, iCol) = String(8 - _
Len(Cells(iRow, iCol).Text), " ") & _
Cells(iRow, iCol).Text
Else
arr(iRow, iCol) = Cells(iRow, iCol)
End If
Next iCol
Next iRow
ListBox1.List = arr
ListBox1.ColumnCount = 6
ListBox1.ColumnHeads = False
ListBox1.ColumnWidths = "2,2cm;2cm;6cm;1,8cm;2,2cm;0,2cm"
End With
End Sub
Läuft auch klasse, aber mein Problem ist: nun kann ich die RowSource-Eigenschaft meiner Listbox nicht mehr dynamisch einstellen, da ich die Zeilennummer, die ich durch 'LetzteZeileListe' ermittle nicht an mein Array übergeben kann.
Weiß jemand Rat, wie ich meiner Listbox dennoch beibringen könnte, nur den Bereich bis zur letzten nicht leeren Zeile darzustellen?
Gruß Andre