Hallo,

mir fehlt es etwas an Erfahrung mit vba. Nun habe ich mich an einer Listbox versucht und dazu einige Fragen

1. Ich würde gerne die Ausgabe der Listbox (nachdem sie einen Filter durchlaufen hat) in ein neues Blatt kopieren. Im idalfall durh betätigen eines Buttons. Läst sich das realisieren und wenn ja wie?

2. Ich würde im Filterergebnis gerne einen Teil der zweiten Spalte ausblenden, wie lässt sich das realisieren?

Dazu mal mein bisheriger Code:

Private Sub textBox1_Change()

Dim Zeile As Long

For Zeile = 1 To Formular1.Cells(Row.Count,5).End(x1UP).row

                If InStr(1,LCase(Formular1.Cells(Zeile,5).value

                               MeListBox1.AddItem Liste1.Cells(Zeile,5).Value

                               Me.ListBox1.List(Me.ListBox1.ListCount -1,1) =List1.Cells(Zeile, 2).Value

                 Me.ListBox1.List(Me.ListBox1.ListCount -1,2) =List1.Cells(Zeile, 3).Value

                End IF

Next Zeile

End Sub

Private Sub UserForm_Initialize()

Dim Zeile As Long

For Zeile -1 To Mitarbeiter.Cells(Row.Count,5).End(x1Up).row

                               MeListBox1.AddItem Liste1.Cells(Zeile,5).Value

                               Me.ListBox1.List(Me.ListBox1.ListCount -1,1) =List1.Cells(Zeile, 2).Value

                 Me.ListBox1.List(Me.ListBox1.ListCount -1,2) =List1.Cells(Zeile, 3).Value

                End IF

Next Zeile

Me.ListBox1.Selected(0)=True

End Sub