Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon fedjo vom 29.08.2022, 18:46 Options
Autofilter, Ergebnis drucken
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
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
Antwort 1 von Hajo_Zi vom 29.08.2022, 18:53 Options
Halo Fedjo,
DU druckst bevor Du den Autofilter setzt.
Gruß Hajo
DU druckst bevor Du den Autofilter setzt.
Gruß Hajo
Antwort 2 von fedjo vom 29.08.2022, 18:59 Options
Hallo Hajo,
der Autofilter wird vorher schon durch eine Combobox gesetzt.
Gruß
fedjo
der Autofilter wird vorher schon durch eine Combobox gesetzt.
Gruß
fedjo
Antwort 3 von Hajo_Zi vom 29.08.2022, 19:07 Options
Hallo Fedjo,
ich schaue nicht auf fremde Rechner. Ich halte mich an das wa im Beitrag steht.
Gruß Hajo
ich schaue nicht auf fremde Rechner. Ich halte mich an das wa im Beitrag steht.
Gruß Hajo
Antwort 4 von coros vom 30.08.2022, 14:12 Options
Hallo fedjo
verrate uns doch mal, was an Deinem Makro nicht so ist, wie Du es Dir vorstellst? Aus Deiner Frage kann ich das nicht ersehen.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
verrate uns doch mal, was an Deinem Makro nicht so ist, wie Du es Dir vorstellst? Aus Deiner Frage kann ich das nicht ersehen.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 5 von fedjo vom 30.08.2022, 16:53 Options
Hallo Oliver,
die Seite ist so aufgebaut:
Zeile 1 und Zeile2 Überschrift
Zeile 3 Autofilter ist ausgeblendet
Spalte D ist auch ausgeblendet
Die Tabelle wird durch die Auswahl in einer ComboBox gefiltert.
Range("A3:F3").AutoFilter Field:=3, Criteria1:=ComboBox2, VisibleDropDown:=False
Fehler: Wenn durch die Filterung auch nur eine Zeile angezeigt wird, werden immer drei Blätter ausgedruckt.
Erstes und zweites Blatt mit Zeile 1+ Zeile 2
Drittes Blatt mit Zeile 1+ Zeile 2 und den gefilterten Daten, wie es sein sollte.
Gruß
fedjo
die Seite ist so aufgebaut:
Zeile 1 und Zeile2 Überschrift
Zeile 3 Autofilter ist ausgeblendet
Spalte D ist auch ausgeblendet
Die Tabelle wird durch die Auswahl in einer ComboBox gefiltert.
Range("A3:F3").AutoFilter Field:=3, Criteria1:=ComboBox2, VisibleDropDown:=False
Fehler: Wenn durch die Filterung auch nur eine Zeile angezeigt wird, werden immer drei Blätter ausgedruckt.
Erstes und zweites Blatt mit Zeile 1+ Zeile 2
Drittes Blatt mit Zeile 1+ Zeile 2 und den gefilterten Daten, wie es sein sollte.
Gruß
fedjo
Antwort 6 von coros vom 30.08.2022, 16:58 Options
Hallo fedjo,
kann ich nicht nachvollziehen, bei mir funktionierts. Daher bitte Deine Datei z.B. bei http://www.file-upload.net hochladen, damit man sich das in Deiner Datei ansehen kann.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
kann ich nicht nachvollziehen, bei mir funktionierts. Daher bitte Deine Datei z.B. bei http://www.file-upload.net hochladen, damit man sich das in Deiner Datei ansehen kann.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 8 von coros vom 31.08.2022, 08:55 Options
Hallo fedjo,
das liegt allem Anschein nach an den Daten, die Du in Spalte O, P, Q und R ausgeblendet hast, die aber dennoch zu den Daten gehören, die sich auf die Druckblätter auswirken. Dann stehen Daten in den Zellen AA3 und AB3, die sich auch auf die Druckblätter auswirken.
Außerdem habe ich mal den Autofilter deaktiviert und wieder vernünftig gesetzt (nicht über Deinen VBA-Code) und dann werden die Daten auch vernünftig auf den Druckblättern angezeigt.
Du solltest Dir also mal den Aufbau usw. Deines Tabellenblatts überlegen, ob man diverse Daten eventuell in einer Art Hilfstabelle unterbringen kann.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
das liegt allem Anschein nach an den Daten, die Du in Spalte O, P, Q und R ausgeblendet hast, die aber dennoch zu den Daten gehören, die sich auf die Druckblätter auswirken. Dann stehen Daten in den Zellen AA3 und AB3, die sich auch auf die Druckblätter auswirken.
Außerdem habe ich mal den Autofilter deaktiviert und wieder vernünftig gesetzt (nicht über Deinen VBA-Code) und dann werden die Daten auch vernünftig auf den Druckblättern angezeigt.
Du solltest Dir also mal den Aufbau usw. Deines Tabellenblatts überlegen, ob man diverse Daten eventuell in einer Art Hilfstabelle unterbringen kann.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Antwort 9 von fedjo vom 31.08.2022, 16:59 Options
Hallo Oliver,
erst mal Danke für deine Unterstützung.
Die Daten in Spalte O, P, Q und R und in den Zellen AA3 und AB3 sind noch Altlasten des Autofilters, die ich schon als Hilfstabelle zum Drucken verwendet habe, einfach vergessen zu Löschen.
Auch nach dem löschen der Daten werden noch drei Druckblätter erzeugt. Ich dachte es wäre möglich das Ergebnis eines Autofilters ohne Hilfstabelle zu Drucken.
Gruß
Fedjo
erst mal Danke für deine Unterstützung.
Die Daten in Spalte O, P, Q und R und in den Zellen AA3 und AB3 sind noch Altlasten des Autofilters, die ich schon als Hilfstabelle zum Drucken verwendet habe, einfach vergessen zu Löschen.
Auch nach dem löschen der Daten werden noch drei Druckblätter erzeugt. Ich dachte es wäre möglich das Ergebnis eines Autofilters ohne Hilfstabelle zu Drucken.
Gruß
Fedjo
Antwort 10 von coros vom 31.08.2022, 19:01 OptionsLösung
Hallo Fedjo,
es kann sein, dass sich in einer der Zellen noch irgendwo ein Leerzeichen oder so vorhanden ist. Das wird so gewertet, dass die Zelle nicht leer ist.
Kopiere doch einfach mal den Bereich A1:G702 und fügen die Daten in ein neues Blatt ein. Setze dann über den Bereich den Autofilter und Du wirst sehen, dass die Druckseiten ordnungsgemäß dargestellt werden. Somit befinden sich in dem alten Tabellenblatt noch irgendwo Daten. Die musst Du schon alleine suchen.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
es kann sein, dass sich in einer der Zellen noch irgendwo ein Leerzeichen oder so vorhanden ist. Das wird so gewertet, dass die Zelle nicht leer ist.
Kopiere doch einfach mal den Bereich A1:G702 und fügen die Daten in ein neues Blatt ein. Setze dann über den Bereich den Autofilter und Du wirst sehen, dass die Druckseiten ordnungsgemäß dargestellt werden. Somit befinden sich in dem alten Tabellenblatt noch irgendwo Daten. Die musst Du schon alleine suchen.
MfG,
Oliver
Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du
ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.
Ähnliche Themen
Autofilter
woher53 29.06.2009 - 200 Hits - 8 Antworten
Excel: AutoFilter und Gültigkeit
snailhouse 10.11.2009 - 385 Hits - 5 Antworten
Makro Autofilter auswählen
darockwider 18.01.2010 - 157 Hits - 2 Antworten
Anzahl Autofilter
ghoul-xtc 13.04.2010 - 184 Hits - 5 Antworten
Autofilter ausblenden
fedjo 14.08.2010 - 89 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
