Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
780to784
780to784
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

List Box füllen.

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige