mehrspaltige listbox
fritz
ich lese mit folgendem code welchen ich vom forum erhalten habe daten in eine listbox welche sich in einer userform befindet ein. ich würde jetzt gerne aber auch noch die spalte e,f,und g einlesen.
kann mir jemand sagen wie ich den code umändern muss?
danke
Dim iRow As Integer
Dim rngCell As Range
Dim arr() As Variant
'.....................................................
'gefilterte listbox
With ListBox1
' Inhalt löschen, ist bei Aufruf eigentlich überflüssig, nicht jedoch bei UF_Activate
.Clear
' Spalten auf 3 setzen
.ColumnCount = 4
' Array redimensionieren und einlesen
End With
With Sheets("Arbeitszeiten")
For Each rngCell In .UsedRange.Columns(1).SpecialCells(xlVisible)
If rngCell.Row > 1 Then
ReDim Preserve arr(0 To 3, 0 To iRow)
arr(0, iRow) = .Cells(rngCell.Row, 1)
arr(1, iRow) = .Cells(rngCell.Row, 2)
arr(2, iRow) = .Cells(rngCell.Row, 3)
arr(3, iRow) = .Cells(rngCell.Row, 4)
iRow = iRow + 1
End If
Next rngCell
End With
' Zuweisen
ListBox1.Column = arr