ich möchte in der Listbox1 nur die Kopfzeile haben.
Scheinbar funktioniert dies nicht.
Danke!
Gruß,Lisa
https://www.herber.de/bbs/user/130027.xlsm
Private Sub UserForm_Initialize()
Dim rngSource As Object
Dim intColums As Integer
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
'With Tabelle1
'' ListBox1.RowSource = .Range("A1").Resize(1, 4).Address(external:=True)
'' ListBox2.RowSource = .Range("A2", .Cells(.Rows.Count, 4).End(xlUp)).Resize(, 4).Address( _
external:=True)
'End With
'With ListBox1
' .ColumnHeads = True
' .Height = 0
' .ZOrder (0)
'End With
End Sub