Frage Listbox
08.10.2012 22:14:50
Andreas
ich wende mich an Euch, da ich ein Problem mit einer Listbox habe.
Ich habe eine Tabelle mit 11 Spalten und x-Zeilen.
Die Werte aus der Tabelle sollen in eine Listbox gepackt werden.
Bisher habe ich das folgendermaßen gelöst:
Sub ListboxAktualisieren()
Dim x As Double
x = Sheets("daten").UsedRange.Rows.Count
With userFormHome.ListboxAnzeige
.ColumnCount = 11
.ColumnHeads = True
.RowSource = "daten!A2:K" & x
.ColumnWidths = "1cm;6cm;10cm;1,5cm;1,5cm;1,5cm;1,5cm;1,5cm;1,5cm;1,75cm;5cm;"
.ListIndex = 0
End With
End Sub
Klappt soweit wunderbar.
Ich möchte nun dem Benutzer die Möglichkeit geben, die Anzahl der Daten in der Listbox zu "minimieren".
Mit Hilfe des Autofilters soll die Tabelle nach bestimmten Kriterien gefiltert werden und es sollen nur alle sichtbaren Werte bzw. sichtbaren Zeilen in die Listbox geschrieben werden.
Wie muss ich meinen Code dazu abändern?
Kann mir evtl jemand bei meinem Problem helfen ?
Im Voraus VIELEN DANK !
Anzeige