Spalten in ListBox oder ComboBox
Rainer
es müsste doch eigentlich möglich sein, nicht nur Zeilen in einer ListBox oder ComboBox einzulesen, sondern auch Spalten.
Allerdings gebe ich im Eigenschaftenfenster einer ComboBox anstelle Range A1:A20 z.B. A1:Z1 ein, wird mir nur A1 angezeigt.
Müsste doch über VBA lösbar sein oder?
Wollte z. B. diesen Code von Franz
Private Sub UserForm_Initialize()
Dim lRow As Long
'Bereich mit Auswahldaten setzen F10:Gxxx
Set wks = ActiveSheet
With Me.Listbox1
.ColumnCount = 4
.ColumnWidths = "0Pt;200Pt;15Pt;20Pt" 'erster Pt = Zeilennummer > 0Pt = ohne Anzeige
'Daten der Listbox zuweisen
For lRow = 10 To wks.Cells(wks.Columns.Count, 6).End(xlUp).Row
If LCase(wks.Cells(lRow, 10)) = "x" Then '"x" in Spalte J
.AddItem lRow 'Zeilennummer
.List(.ListCount - 1, 1) = wks.Cells(lRow, 6).Text 'Spalte F
.List(.ListCount - 1, 2) = wks.Cells(lRow, 7).Text 'Spalte G
If LCase(wks.Cells(lRow, 10)) = True Then
.Selected(.ListCount - 1) = True
End If
Else
wks.Cells(lRow, 10).ClearContents
End If
Next
End With
End Sub
Der Einzeldurchlauf im VBA-Editor brachte keinen Fehler.
Der Aufruf der UserForm klappte dann allerdings nicht.
Gruß Rainer