Office: VBA Zeilen Einzeldruck nach Filter

Hi,
so jetzt aber, Danke Euch beiden. Habe die Datei mit Makros jetzt mal hoch geladen. Blattschutz aufhaben mit "test", steht aber auch in der VBA. Die richtige Stelle für die 'Fusszeile' (vor die For...Next Schleife) habe ich nicht gefunden, sorry. Aber, wie Du schon schreibst Karin, der arbeitet deshalb die ganzen Zeilen nochmals ab.
Könnt Ihr bitte auch mal über das Makro GRUPPE schauen, es läuft einwandfrei, aber auf einem anderen Rechner von mir seeehr langsam.

Nach Beendigung der For...Next Schleife wäre eine Säuberung ganz gut, denn sonst bleibt die virtuelle Fusszeile immer noch hängen und ist auf normalem Druck via Seitenansicht zu sehen. Es wird ja immer der Standard Drucker angewählt. Eine Druckerauswahl vor dem Druck auf EINZELN macht eigentlich auch Sinn, damit man evtl. vorher einen Adobe Druck wählen kann und nicht so viel Papier verdruckt.

Bin gespannt auf Eure Ideen
luckybaby

 

Hi,

ich habe jetzt mal eine etwas andere Lösung verwirklicht. Für den Einzeldruck habe ich ein gesondertes Tabellenblatt angelegt - in dieses wird immer der Inhalt der laufenden Zeile eingetragen wenn J <> 0 ist und anschließend gedruckt.

Für den Gruppendruck würde ich den Autofilter verwenden - so wie ich es in dem betreffenden Code geschrieben habe.

Ich würde dir generell empfehlen, nicht das gesamte Tabellenblatt mit einer Füllfarbe und den Rahmen zu versehen, weil dies das Projekt unnötig belastet und langsam macht - ich habe die Farbformatierung zurückgesetzt und die Rahmen auch nur bis Zeile 198 belassen, weil mein Rechner durch die Formatierungen fast in die Knie gegangen ist. Musst du bei dir dann sehen, welche Möglichkeiten du hast.

Bis später,
Karin

 

Boah - ich bin begeistert

Hi Karin,
Dankeschööön, bin gerade am probieren. Das war mir auch nicht so klar, dass die vielen Formatierungen das Ding so ausbremsen. Der Code klappt sehr gut. Ich bin noch etwas am anpassen derart:

Code:

ThisWorkbook.Unprotect Password:="test"
Worksheets("DRUCKEINZEL").Visible = xlSheetVisible
... Dein Makro ...
Worksheets("DRUCKEINZEL").Visible = xlVeryHidden
ThisWorkbook.Protect Password:="test"

Klar, damit wird der Arbeitsmappenschutz aufgehoben, eingeblendet, gedruckt und wieder ausgeblendet und geschützt.
Ist bestimmt eine nicht so häufig gebraute Variante, aber vielleicht nützt es doch mal jemand was.
Vielen Dank Karin