Hallo,
wie kann ich das Ergebnis eines Autofilters (sichtbare Daten) mit einem Makro ausdrucken?
Mein Makro funktioniert so nicht, was muß ich ändern?
Gruß
fedjo
Sub Auswahl_Drucken()
Dim s%, e!, z!
'Spalte A:
s = 1
'Letzte Zeile mit Eintrag suchen:
e = Cells(Rows.Count, s).End(xlUp).Row
'Druckbereich festlegen:
ActiveSheet.PageSetup.PrintArea = "$A$4:$G$" & e
'Drucken:
ActiveSheet.PrintOut
'Druckbereich aufheben:
ActiveSheet.PageSetup.PrintArea = ""
If ActiveSheet.AutoFilterMode = True Then Selection.AutoFilter , Field:=1
Worksheets("V1").ScrollArea = "G4:G1500"
End Sub
