Wieviel spalten in einer Listbox? | Herbers Excel-Forum

Private Sub UserForm_Initialize() 'VeListe öffnen, Daten in Listbox einlesen, VeListe close START Dim wbk As Workbook Dim wks As Worksheet Application.ScreenUpdating = False Set wbk = Workbooks.Open("F:\daten\VeListe.xls") Application.ScreenUpdating = False Set wks = wbk.Sheets(2) wks.Select With ListBox1 .List = Range("A1").CurrentRegion.Value If .ListCount > 0 Then .ListIndex = 0 End With wbk.Close SAVECHANGES:=False Set wbk = Nothing Set wks = Nothing 'VeListe öffnen, Daten in Listbox einlesen, VeListe close START Sheets("leer").Select Application.ScreenUpdating = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ray,
ich weise den Bereich meist immer so zu.

Private Sub UserForm_Activate()
Dim rngSource As Object
Dim intColums As Integer
ListBox1.Tag = 1
Set rngSource = Range("A1").CurrentRegion
' Die oberste Zeile enthaelt die Feldnamen.
' Diese brauchen wir nur dort um die Columnheader darzustellen,
' aber nicht fuer die Listboxeintraege.
' Also den Datenbereich um die Erste Zeile reduzieren.
Set rngSource = rngSource.Offset(1, 0).Resize(rngSource.Rows.Count - 1, rngSource.Columns. _
Count)
' Spaltenanzahl des Datenbereichs ermitteln.
intColums = rngSource.Columns.Count
With Me.ListBox1
.ListStyle = fmListStyleOption      ' Auswahlfeld zu Beginn der Zeile
' von Peter Haserodt
' nur eine Auswahl, bei .ListStyle = fmListStyleOption Optionbutton in Listbox
'.MultiSelect = fmMultiSelectSingle
' mehrere können ausgewählt werden,.ListStyle = fmListStyleOption checkboxen in Listbo
.MultiSelect = fmMultiSelectMulti
'.MultiSelect = fmMultiSelectExtended
' gibt eigentlich nur bei Liststyle Plain einen Sinn, funzt aber auch anders.
' Dies bewirkt, dass mit Shift und Strg Tasten  eine Mehrfachauswahl getroffen
' werden kann
.ColumnCount = intColums
.ColumnHeads = True
.RowSource = rngSource.Address
End With
Set rngSource = Nothing
ListBox1.Tag = ""
End Sub

Die meisten sehen Deine Datei nicht.

Private Sub UserForm_Initialize() 'VeListe öffnen, Daten in Listbox einlesen, VeListe close START Dim wbk As Workbook Dim wks As Worksheet Application.ScreenUpdating = False Set wbk = Workbooks.Open("F:\daten\VeListe.xls") 'Application.ScreenUpdating = False Set wks = wbk.Sheets(3) wks.Select With ListBox1 .List = Range("A1").CurrentRegion.Value If .ListCount > 0 Then .ListIndex = 0 'MsgBox Range("A1").CurrentRegion.Address End With wbk.Close SAVECHANGES:=False Set wbk = Nothing Set wks = Nothing 'VeListe öffnen, Daten in Listbox einlesen, VeListe close START Sheets("leer").Select Application.ScreenUpdating = True End Sub

Private Sub UserForm_Initialize() 'VeListe öffnen, Daten in Listbox einlesen, VeListe close START Dim wbk As Workbook Dim wks As Worksheet Dim arr Application.ScreenUpdating = False Set wbk = Workbooks.Open("F:\daten\VeListe.xls") Set wks = wbk.Sheets(2) Application.ScreenUpdating = False arr = wks.Range("A1").CurrentRegion With ListBox1 .ColumnCount = UBound(arr, 2) .List = arr If .ListCount > 0 Then .ListIndex = 0 End With wbk.Close SAVECHANGES:=False Set wbk = Nothing Set wks = Nothing 'VeListe öffnen, Daten in Listbox einlesen, VeListe close START Sheets("leer").Select Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

Wieviel spalten in einer Listbox? | Herbers Excel-Forum

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wieviel spalten in einer Listbox? | Herbers Excel-Forum

25 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

25
Beiträge zum Forumthread

Beiträge zu diesem Forumthread