Hilfe bei einem Filter-Druck Makro
29.03.2022 21:42:36
Hans
Zu meinem Problem: Ich habe ein Makro, um Ausdrucke von käufen von "Benutzer" auf ein Blatt zu generieren (also es wird der Benutzer gefiltert und alle käufe werden auf das Blatt generiert) nun möchte ich aber zusätzlich, dass die letzte Zeile mit der Gesammtsumme auch gedruckt wird. Er druckt mir immer nur ganz am Schluss die letzte Zeile und nicht auf jedem Blatt.
Hier der Code:
Sub DruckenTest()
Dim i As Long
Dim rngAnzahl() As Range, rngGesamt As Range, rngTeil As Range
Set rngGesamt = Range("C2:C" & Rows.Count) 'Filterbereich ohne Überschriften
On Error GoTo Raus
Set rngTeil = rngGesamt
ReDim rngAnzahl(0 To 0)
Do
Set rngAnzahl(UBound(rngAnzahl)) = rngTeil.Cells(1)
Set rngTeil = rngTeil.ColumnDifferences(rngTeil.Cells(1))
ReDim Preserve rngAnzahl(UBound(rngAnzahl) + 1)
Loop
Raus:
On Error GoTo 0
If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData
For i = 0 To UBound(rngAnzahl)
rngGesamt.ColumnDifferences(rngAnzahl(i)).EntireRow.Hidden = True
ActiveSheet.PrintPreview 'PrintOut für wirkliches Drucken
rngGesamt.ColumnDifferences(rngAnzahl(i)).EntireRow.Hidden = False
Next i
End Sub
Anzeige