Warum werden nicht alle...
07.03.2022 14:34:27
wolfgang
habe folgendes Makro unter Hilfe Forum:
Meine Frage, WARUM werden nicht alle Daten angezeigt, es werden 8 weniger Daten angezeigt.
Klicke ich auf sortieren, werden alle Daten angezeigt.
<pre>Public Sub UserForm_Initialize()
With UserForm1
Me.Top = Application.Top
Me.Left = Application.Left
Me.Height = Application.Height
Me.Width = Application.Width
End With
Dim iIndex As Integer
Dim sBlattname As String
Dim letzteA As Long, Z As Long
Dim dic As Object, arr
With Worksheets("Adressen")
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "250;160;160;160;130;100;80;50;60;20;5" '80 =, 50=Datum, auftrags.Nr.
ListBox1.Font.Size = 10
letzteA = .Cells(.Rows.Count, 3).End(xlUp).Row
ListBox1.List = .Range("B3:K" & letzteA).Value
End With
Dim i
For i = 0 To ListBox1.ListCount - 1
ListBox1.List(i, 6) = Format(ListBox1.List(i, 6), "currency") 'damit wird spalt 6 angezeigt
Next i
' ComboBox1.ListIndex = 0 'wenn raus, dann werden die angezeigt zur 1. stelle
arr = ListBox1.List
ComboBox1.Clear
ComboBox1.AddItem "Alle anzeigen", 0
For Z = 0 To UBound(arr, 1)
ComboBox1.AddItem arr(Z, 1)
Next
Label5.Caption = ActiveSheet.Range("b1")
Label9.Caption = Format(ActiveSheet.Range("h2").Value, ("#,##0.00"))
Label11.Caption = ListBox1.ListCount ' anzahl anzeigen
TextBox1 = " "
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub</pre>
mfg wolfgang