Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

List Box füllen.

Forumthread: List Box füllen.

List Box füllen.
11.07.2006 14:58:29
Swen
Hallo an alle,
schaut doch bitt mal ob ihr mir hier helfen könnt?
https://www.herber.de/forum/archiv/776to780/t777704.htm
Wie kann ich über ein Userform auswählen welche spalten er in
einer Listbox anzeiegen soll?
Gruß
Swen
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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
Anzeige
AW: List Box füllen.
12.07.2006 07:47:27
Swen
..vielen Dank!
Gruß aus Hamburg
Swen
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige