Excel macht mir keine Überschrift rein trotzdem ich ColumnHeads = True drinnen habe.
Und dann möchte ich gerne das er mir die letzten beiden Spalten nach rechts anordnet und und es im Währungsformat ausgibt in der Listbox und nicht in Zahlen.
Wie bekomme ich das bei mir hin? NumberFormat = "#,##0.00 "
Würde mich freuen wenn mir jemand helfen kann :)
Private Sub UserForm_Initialize()
Call ListBox_DetaillierteListeBefüllen
End Sub
Private Sub ListBox_DetaillierteListeBefüllen()
Dim Zeile As Long
'Schleife über alle Zeilen der Tabelle
For Zeile = 12 To DetaillierteEinnahmenAusgaben.Cells(Rows.Count, 4).End(xlUp).Row
Me.ListBox_DetaillierteListe.AddItem DetaillierteEinnahmenAusgaben.Cells(Zeile, 4)
Me.ListBox_DetaillierteListe.List(Me.ListBox_DetaillierteListe.ListCount - 1, 1) = DetaillierteEinnahmenAusgaben.Cells(Zeile, 5)
Me.ListBox_DetaillierteListe.List(Me.ListBox_DetaillierteListe.ListCount - 1, 2) = DetaillierteEinnahmenAusgaben.Cells(Zeile, 6)
Me.ListBox_DetaillierteListe.List(Me.ListBox_DetaillierteListe.ListCount - 1, 3) = DetaillierteEinnahmenAusgaben.Cells(Zeile, 7)
Me.ListBox_DetaillierteListe.List(Me.ListBox_DetaillierteListe.ListCount - 1, 4) = DetaillierteEinnahmenAusgaben.Cells(Zeile, 8)
Me.ListBox_DetaillierteListe.List(Me.ListBox_DetaillierteListe.ListCount - 1, 5) = DetaillierteEinnahmenAusgaben.Cells(Zeile, 9)
Next Zeile
With ListBox_DetaillierteListe
'.RowSource =
.ColumnCount = 6 'Spaltenanzahl festlegen
.ColumnWidths = "100;140;220;150;150;150" 'Spaltenbreite festlegen
.ColumnHeads = True
.ListIndex = .ListCount - 1 'markiert den letzten Eintrag in der ListBox
End With
End Sub
Private Sub TextBox_Suchen_Change()
Dim Zeile As Long
Me.ListBox_DetaillierteListe.Clear
'Schleife über alle Zeilen der Tabelle
For Zeile = 12 To DetaillierteEinnahmenAusgaben.Cells(Rows.Count, 4).End(xlUp).Row
If InStr(1, LCase(DetaillierteEinnahmenAusgaben.Cells(Zeile, 6).Value), LCase(Me.TextBox_Suchen.Value)) > 0 Or _
InStr(1, LCase(DetaillierteEinnahmenAusgaben.Cells(Zeile, 4).Value), LCase(Me.TextBox_Suchen.Value)) > 0 Or _
InStr(1, LCase(DetaillierteEinnahmenAusgaben.Cells(Zeile, 5).Value), LCase(Me.TextBox_Suchen.Value)) > 0 Then
Me.ListBox_DetaillierteListe.AddItem DetaillierteEinnahmenAusgaben.Cells(Zeile, 4)
Me.ListBox_DetaillierteListe.List(Me.ListBox_DetaillierteListe.ListCount - 1, 1) = DetaillierteEinnahmenAusgaben.Cells(Zeile, 5)
Me.ListBox_DetaillierteListe.List(Me.ListBox_DetaillierteListe.ListCount - 1, 2) = DetaillierteEinnahmenAusgaben.Cells(Zeile, 6)
Me.ListBox_DetaillierteListe.List(Me.ListBox_DetaillierteListe.ListCount - 1, 3) = DetaillierteEinnahmenAusgaben.Cells(Zeile, 7)
Me.ListBox_DetaillierteListe.List(Me.ListBox_DetaillierteListe.ListCount - 1, 4) = DetaillierteEinnahmenAusgaben.Cells(Zeile, 8)
Me.ListBox_DetaillierteListe.List(Me.ListBox_DetaillierteListe.ListCount - 1, 5) = DetaillierteEinnahmenAusgaben.Cells(Zeile, 9)
End If
Next Zeile
End Sub