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
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?
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
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
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 ...
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.
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
Hi,
(23.07.2016, 10:37)Geri schrieb: [ -> ]Dim intlz As Integer
ich glaube, Integer ist für diese Variable in den neuen Versionen zu klein!
Hallo,
Zitat: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.
(26.07.2016, 12:38)Käpt schrieb: [ -> ]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"