AW: List Box füllen.
11.07.2006 17:09:56
fcs
Hallo Swen,
du kannst in der Initilize-Prozedur der Userform festlegen was du in der Listbox angezeigt haben möchtes.
wenn die Datenquelle der Listbox die Spalten A bis G beinhaltet, du aber nur die Spalten A, B und G in der Listbox angezeigt haben möchtets, dann muss du die Breite der nicht sichtbaren Spalten auf 0 cm setzen:
Beispiel:
lb1.ColumnWidths = "4,5cm;3cm;0cm;0cm;0cm;0cm;4cm"
Falls du tatsächlich die Anzeige variabel haben möchtest, dann muss eine kleine Inputbox mit Auswahl in deine Prozedur einbauen.
Beispiel:
Dim Auswahl As String
Auswahl = InputBox("Welche Spalten sollen angezeigt werden?" & vbLf & vbLf & _
"0 = alle" & vbLf & _
"1 = A, B, G" & vbLf & _
"2 = A, B, C" & vbLf & _
"3 = A, B, E", "Auswahl Spalten Listbox1", 1)
Select Case Auswahl
Case "1"
lb1.ColumnWidths = "4,5cm;3cm;0cm;0cm;0cm;0cm;4cm"
Case "2"
lb1.ColumnWidths = "4,5cm;3cm;2cm;0cm;0cm;0cm;0cm"
Case "3"
lb1.ColumnWidths = "4,5cm;3cm;0cm;0cm;4cm;0cm;0cm"
Case Else
'zeigt alle Spalten an
lb1.ColumnWidths = "4,5cm;3cm;2cm;2cm;4cm;2cm;4cm"
End Select
mfg
Franz