gefilterten Wertebereich auf Listbox v. Userform
23.01.2007 20:44:12
Till
ich lese in einer Listbox einen bereits gefilterten Wertebereich eines Arbeitsblattes ein.
Leider erscheinen hier auch die durch den Filter ausgeblendeten Werte.
Kann man nur die gefilterten Daten anzeigen lassen.
Mein Einlesen (nach der Filterung) geht so:
Sub Einlesen()
Dim Zeile2 As Integer, MyList(2836, 8), r As Integer, wksListe As Worksheet
Set wksListe = Worksheets("Wertetabelle")
Zeile2 = wksListe.Cells(wksListe.Rows.Count, "A").End(xlUp).Row 'letzte Zeile mit Daten
With UserForm1
With .ListBox1
.ColumnHeads = False
.ColumnCount = 8
.ColumnWidths = "70; 105; 70" '75
For r = 4 To Zeile2
If wksListe.Range("E" & r + 1) "" Then
.AddItem wksListe.Range("E" & r + 1) 'Datum
.List(.ListCount - 1, 1) = Format(wksListe.Range("F" & r + 1).Value, "hh:mm:ss") 'Zeit
.List(.ListCount - 1, 2) = wksListe.Range("F1") '("D" & r + 1) 'Straßenname
.List(.ListCount - 1, 3) = wksListe.Range("K" & r + 1) 'Qges
.List(.ListCount - 1, 4) = wksListe.Range("X" & r + 1) 'QLkw
.List(.ListCount - 1, 5) = Format(wksListe.Range("L" & r + 1).Value, "#,##0.00") 'Speed "#.##0"
.List(.ListCount - 1, 6) = Format(wksListe.Range("V" & r + 1).Value, "#,##0.00") 'B
.List(.ListCount - 1, 7) = wksListe.Range("T" & r + 1) 'LOS
End If
Next r
End With
End With
End Sub
Kann mir da jemand weiterhelfen?
Danke schon mal!
Gruß Till