Listbox füllen
10.07.2014 11:41:01
Daniel
ich habe ein kleine Frage an Euch:
Ich versuche mit Hilfe der Filterfunktion nach einem Kundennamen
zu filtern und die Ergebnisse mir in einer Listbox in einer
Userform anzeigen zu lassen.
Funktioniert auch schon fast, allerdings "schmiert" mir Excel irgendwann
ohne Grund dabei ab.
-------------------------------------------------------------------------
Private Sub tb1_Change()
Sheets("Kundendaten kurz").Range("$A$1:$D$1").AutoFilter field:=2, Criteria1:="*" & tb1 & "*"
Call fill
End Sub
Sub fill()
Dim Bereich As Range
Dim Zelle As Range
Dim i As Long
With Me.ListBox1
.Clear
.ColumnCount = 3
.Font.Size = 9
.ColumnWidths = "50 Pt;130 Pt;60; 40Pt"
With Worksheets("Kundendaten kurz")
Set Bereich = .Range("A2", .Cells(.Rows.Count, 1).End(xlUp))
End With
For Each Zelle In Bereich.SpecialCells(xlCellTypeVisible)
If Zelle "" Then
.AddItem
.List(i, 0) = Zelle
.List(i, 1) = Zelle.Offset(0, 1)
.List(i, 2) = Zelle.Offset(0, 2)
i = i + 1
End If
Next
End With
End Sub
Private Sub UserForm_Initialize()
Call fill
If ActiveSheet.FilterMode Then
ActiveSheet.ShowAllData
End If
End Sub
Weiß da jemand Rat?
Danke und Gruß
Daniel