ich filtere meine Listbox1 nach Datum von bis.
Die Listbox zeigt 12 Einträge.
Wenn ich aber mit nachfolgendem Code den Inhalt drucken bzw. Voranschau durchführe,
sind nur 11 Einträge übertragen.
Private Sub CommandButton3_Click()
'''''Drucken
Dim arrList, wsTmp As Worksheet
Dim Loletzte As Long
If ListBox1.ListCount > 0 Then
arrList = ListBox1.List
Set wsTmp = Worksheets.Add(after:=Sheets(Sheets.Count))
With wsTmp
.Cells(1, 1).Resize(UBound(arrList), UBound(arrList, 2)) = arrList
.Columns.AutoFit
' .PrintOut 'Ausdrucken
End With
UserForm3.Hide
' wsTmp.PageSetup.PrintArea = "$A$1:$E$15"
Loletzte = 65536
If Range("E65536") = "" Then Loletzte = Range("E65536").End(xlUp).Row
wsTmp.PageSetup.PrintArea = "$A$1:$E$" & Loletzte
wsTmp.PrintPreview
UserForm4.Show
'' Application.DisplayAlerts = False
'' .Delete
'' Application.DisplayAlerts = True
'' End With
End If
End Sub
Welcher Fehler steckt hier im Code? Gibt es eine andere Möglichkeit den Inhalt der Listbox anzuzeigen bzw. auszudrucken?
Besten Dank für eure Hilfe.
Gruss
Peter