Ich habe eine tabelle die ich gefiltert habe. ich möchte diese tabelle in ein listfeld das in einer userform ist einlesen wobei aber nur die gefilterten daten sichtbar sein sollen?
Danke
Private Sub UserForm_Initialize()
'Listbox-Daten einlesen aus gefilterter Tabelle
Dim wksListe As Worksheet
Dim Zeile1 As Long, Zeile2 As Long, Spalte1 As Integer, Spalte2 As Integer, Spalte As Integer
Set wksListe = Worksheets("Tabelle1") 'Tabelle mit Daten für Listbox, ggf. Name anpassen
Zeile1 = 2 'Nummer der Zeile nach den Spaltentiteln der gefilterten Liste
Spalte1 = 1 '1. Spalte die in Listbox eingelesen werden soll
Spalte2 = 2 'Letzte Spalte die in Listboxeingelesen werden soll
Zeile2 = wksListe.Cells(wksListe.Rows.Count, "A").End(xlUp).Row 'Letzte Zeile mit Daten
With Me.ListBox1 '###Hier ggf. Namen der Listbox anpassen
'###Eigenschaften der Listbox setzen (kann man hier weglassen und im Eigenschaftenfenster festlegen
.ColumnCount = Spalte2 - Spalte1 + 1
.BoundColumn = 1
.ColumnWidths = "60Pt;40Pt" 'Pro Spalte ein Eintrag
.Width = 120
'###Eigenschaften-Setzen Ende
'Daten in Listbox einlesen
.Clear
For Zeile1 = Zeile1 To Zeile2
If wksListe.Rows(Zeile1).Hidden = False Then
.AddItem
SpalteListe = 0
For Spalte = Spalte1 To Spalte2
.List(.ListCount - 1, SpalteListe) = wksListe.Cells(Zeile1, Spalte).Value
SpalteListe = SpalteListe + 1
Next
End If
Next
End With
End Sub
Private Sub UserForm_Initialize()
Dim zelle As Object
Dim zl As Long
With Sheets("Tabelle1")
zl = .[A65536].End(xlUp).Row
For Each zelle In .Range("A2:A" & zl).SpecialCells(xlVisible)
ListBox1.AddItem zelle
Next
End With
End Sub