Druckbereich auf Autofilterergebnis definieren

[StefanGruber_LA]

Den Rest Deiner Codes musst Du dann wieder einfügen. Das habe ich auch nicht getestet.
Es sei mir noch eine Randbemerkung gestattet.
Variablen dimensioniert man immer am Anfang einer Prozedur. Das macht die ganze Geschichte etwas übersichtlicher.

Hallo Du,

vielen Dank für Deinen Vorschlag. Jetzt stoße ich nur leider an Grenzen, was meine VBA Kenntnisse angeht.

Ich habe Deinen Code in meinen Code eingefügt. Allerdings kamen jetzt schon mehrmals "Fehler beim Kompilieren". Für mich heißt das, dass ich Sub etc. rausnehmen, da mein Code ja eine Abfolge von Befehlen ist, die von einem Button aus gestartet werden.

Kannst Du mir den Code noch so umschreiben, dass ich tatsächlich nur copy/paste machen muss.

[Kuwer]

Hallo,

es reicht doch, einfach den Druckbereich gleich dem Autofilterbereich zu setzen:

  With ActiveSheet

   .PageSetup.PrintArea = .Name & "!_FilterDatabase"

 End With

Gedruckt werden ja automatisch nur sichtbare Zellen, das muss nicht extra geprüft/festgelegt werden.

Gruß Uwe

[Jockel]

Hallo,

es reicht doch, einfach den Druckbereich gleich dem Autofilterbereich zu setzen...

Gruß Uwe

Hallo, und dazu braucht man eigentlich auch kein VBA.... Wenn man die Seite fertig bearbeitet hat kann man den Druckbereich doch auch prima per Formel (Bereichsnamen) festlegen...

[StefanGruber_LA]

es reicht doch, einfach den Druckbereich gleich dem Autofilterbereich zu setzen:

  With ActiveSheet

Hallo Uwe,
das funktioniert jetzt schon mal ohne Fehlermeldung. Allerdings werden die Spaltenbreiten verändert. Es sollen die verwendeten Spaltenbreiten verwendet werden.

[Kuwer]

Hallo Stefan,

Allerdings werden die Spaltenbreiten verändert. Es sollen die verwendeten Spaltenbreiten verwendet werden.

aber sicher nicht durch meinen vorgeschlagenen Code.

Gruß Uwe