Gefilterte Daten drucken

[Geri]

Hi, 
ich möchte gerne in meiner Tabelle nur die gefilterten Datensätze drucken.
Die Daten sind mit Leerzeilen und eingegebenen Daten im Bereich von
A3 bis P500 vorhanden
Vielen Dank im Voraus für eure Mühe
LG Geri

[Peter]

Hallo,

ich verstehe das Problem noch nicht, dann wenn du eine Tabelle mit einem Autofilter versiehst dann werden nur die gefilterten Werte ausgedruckt.

Kannst du dein Vorhaben noch etwas genauer beschreiben?

[Geri]

Hallo Peter,
mache ich gerne. Wenn ich die Daten filtere dann können Zeilen z.B. von 10, 15, 100 usw. gefiltert werden,
wenn ich dann händisch den Druckbereich festlege passt das auch.
Wenn dann am nächsten Tag andere oder mehr Daten gefiltert werden erweitert sich der Druckbereich nicht
automatisch. Habe mal in Google gelesen dass man das mit VBA einen dynamischen Druckbereich erstellen kann
Habe es auch mit einer Formel probiert das klappt aber nicht

Danke für deine Antwort
Geri

[Peter]

Hallo,

ein klein wenig Licht kommt jetzt ins Dunkel.

Also du arbeitest mit Druckbereichen.

Wie definiert sich dein händischer Druckbereich?

Nach unten wahrscheinlich nicht, da du ja die Zeilen filterst, also vermutlich nach rechts und du willst nur bis zu einer bestimmten Spalte drucken.

Stimmt diese Vermutung?

Vielleicht wäre es auch hilfreich eine Beispielsdatei hochzuladen und das Problem anhand dieser Datei zu erläutern (wichtig ist hier der gleiche Tabellenaufbau wie deine Originaldatei).

Hier findest du eine Anleitung zum Hochladen von Dateien:

http://www.clever-excel-forum.de/Thread-...ng-stellen

[schauan]

Hallöchen,

ich glaube, das geht auch ohne Hochladen.

Wandle Deinen Datenbereich zu einer Tabelle.
Markiere die Tabelle,
Öffne im Reiter Formeln den Namensmanager
Klicke auf Neu und gib im Folgenden Dialog den Namen Druckbereich ein


In "Bezieht sich auf" sollte der tabellenbereich stehen, z.. so:
=Tabelle1[#Alle]

Falls es schon einen Druckbereich gibt, bitte zuerst löschen.

Bei Erweiterung der Tabelle erweitert sich der Druckbereich automatisch. Man könnte auch statt mit einer Tabelle mit Formeln arbeiten ...

[shift-del]

Hallo Geri

Mal die ketzerische Frage: Musst du überhaupt einen Druckbereich festlegen?
Wenn nichts weiter im Tabellenblatt steht dann könntest du einfach so drucken.

[Geri]

Danke an alle für die Beiträge.
Ein Freund von mir hatte bereits eine Datei wo er das Problem mit VBA gelöst hat
Lade ihn hier hoch, vielleicht kann ihn jemand gebrauchen
LG Geri

Sub Druckbereich_festlegen()

' Druckbereich festlegen

Dim intlz As Integer

intlz = Cells(Rows.Count, 1).End(xlUp).Row    'letzte Zeile in Spalte A ermitteln (evtl. anpassen)
ActiveSheet.PageSetup.PrintArea = "$A$3:$P$" & intlz
ActiveWindow.SelectedSheets.PrintPreview
End Sub

[Rabe]

Hi,

Dim intlz As Integer

ich glaube, Integer ist für diese Variable in den neuen Versionen zu klein!

[Käpt'n Blaubär]

Hallo,

Dim intlz As Integer

Wie viele Zeilen können es denn werden?

Trotzdem, die Integerzeiten sind eigentlich vorbei.
Benutze besser: Dim intlz As Long

Soviel mir bekannt ist, rechnet Excel intern sowieso Integer in Long um und arbeitet dann weiter.

[Rabe]

Trotzdem, die Integerzeiten sind eigentlich vorbei.
Benutze besser: Dim intlz As Long

und dann eben im Sinne von sprechenden Variablennamen: "Dim loLZ as Long" oder "Dim lngLZ as Long"