|
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
|