Listbox füllen
07.03.2019 09:49:42
Thomas
vor einiger Zeit habe ich die Userform im Netz gefunden. Leider weiss ich nicht mehr wo.
https://www.herber.de/bbs/user/128163.xls
Diese möchte ich nun gern für mich anpassen. Dazu habe ich eine Listbox und ein paar TextBoxen angelegt.
die Listbox2 fülle mit
Sub listbox2_füllen()
Const Cols = 20 'Anzahl der Spalten
Dim Bereich As Range, Feld As Range
Dim rCount&, cCount%, n&
Dim x()
Set Bereich = Range("A4:A1000")
n = Application.WorksheetFunction.CountA(Bereich.SpecialCells(xlCellTypeVisible))
ReDim x(1 To n, 1 To Cols)
For Each Feld In Bereich
If Rows(Feld.Row).Hidden = False Then
If Not IsEmpty(Feld) Then
rCount = rCount + 1
For cCount = 0 To Cols - 1
x(rCount, cCount + 1) = Feld.Offset(0, cCount).Value
'Cols(rCount, cCount + 1) = Format(wksBlatt.Cells(rCount, 4), "hh:mm")
Next
End If
End If
Next
With UserForm1
.ListBox2.BoundColumn = 2
.ListBox2.ColumnCount = Cols
.ListBox2.List = x
'.Show
End With
End Sub
Dies klappt auch richtig gut ( außer die Uhrzeiten bekomme ich noch nicht dargestellt)
Nun versuche per klick in die Listbox, die TextBoxen 2 bis 6 ( es sollen noch mehr hinzukommen)zu füllen, aber ich schaffe es einfach nicht.
Ich habe schon gefühlte 1000 versuche gestartet. Es geht einfach nicht.
Kann mir dabei jemand helfen?
habt schon mal rechtvielen vielen dank dafür.
mfg thomas