Drucken per VBA mit Filteranwendung

[wavemaster]

Hallo zusammen,
habe diese Frage in diesem Forum in einem Fall schonmal abgefragt, aber Ich denke aufgrund der Größe der anderen Fragen  hat es sich keiner mehr angeschaut.

Ich habe folgendes Problem:

sollte es gegen die Regeln verst0ßen aus einer anderen Anfrage etwas auszugliedern, dann bitte Ich um mitteilung
Danke



habe mit dem Makrorecorder ein VBA aufgezeichnet das folgendes machen sollte:

1. den Filter in Zelle H 24 anklicken und alles ausblenden was 0,0 anzeigt.
   
2. dann habe Ich den Druckbereich markiert A7-K64
   
3. Dann bin Ich auf Datei denn Button Drucken gedrückt
   
4. Dann zurück auf das Arbeitsblatt und den Filter in Zelle H24 angeklickt und alles einblenden aktiviert.
   
5. den Makrorecorder beendet.
   

Beim aufzeichen waren alle Felder in der Spalte H25-H51 leer.

Werden jetzt einige Zellen durch die bearbeitung belegt und das Makro gestartet blendet es auch die Zellen über 0,0 aus.

kein Plan wie das geht.... [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
2/22.gif[/img] [img]
Dateiupload bitte im Forum! So geht es: Klick mich!
2/22.gif[/img] 

Sub Drucken()
'
' Drucken Makro
'

'
    ActiveSheet.Range("$A$24:$J$52").AutoFilter Field:=8, Criteria1:="="
    Range("A7:K64").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    ActiveSheet.Range("$A$24:$J$52").AutoFilter Field:=8
    Range("A7").Select
End Sub

das ist das aufgezeichnete Makro

[WillWissen]

Hi,

habe diese Frage in diesem Forum in einem Fall schonmal abgefragt,

du könntest eine Frage, die "untergegangen" ist, mit einem kleinen "Lockbeitrag" wieder nach oben holen.

[MisterBurns]

dann habe Ich den Druckbereich markiert A7-K64

Nö, hast du nicht. Zumindest nicht in deinem Makro. Du hast nur den Bereich A7:K64 markiert, aber den Druckbereich festgelegt hast du damit nicht.
Die Druckeinstellung "nur Auswahl drucken" wird nicht mit aufgezeichnet.

So vielleicht?

Code:

Sub Drucken()
With ActiveSheet
   .Range("$A$24:$J$52").AutoFilter Field:=8, Criteria1:="<>0"
   .PageSetup.PrintArea = "$A$7:$K$64"
   .PrintOut copies:=1
   .ShowAllData
   .Range("A7").Select
End With
End Sub

[MisterBurns]

du könntest eine Frage, die "untergegangen" ist, mit einem kleinen "Lockbeitrag" wieder nach oben holen.

@Günter: Ganz ehrlich - bei einem Thema mit 7 Seiten bzw. 62 Beiträgen schau ich nicht mehr rein, Lockbeitrag hin oder her :)

[WillWissen]

Hi Berni,

ich auch nicht - hab' vor allem den alten Thread jetzt nicht gesucht. Ich habe die Antwort auch nur generell gemeint, da sich der TE nicht sicher war, hier das Richtige getan zu haben. Bei einem derart langen Thread ist es natürlich sinnvoller, den unbeantworteten Teil als neues Thema zu verfassen.

[wavemaster]

Hallo MisterBurns,
war mir so nicht bewußt mit dem Druckbereich.

Das Markro funktioniert einwandfrei.

Wenn man den Blattschutz aktiviert kann man dieses Makro nicht ausführen, kannst du mir ein Marko zusammenstellen mit Blattschutz und ohne ( kombiniert) :19: 

Danke

[MisterBurns]

Wie ist denn bitte "mit und ohne (kombiniert)" zu verstehen? Mit ohne Schnur?

Code:

Sub Drucken()
With ActiveSheet
    .Protect Password:="DeinPasswort", UserInterfaceOnly:=True
    .blablabla

[didi*]

@Günter: Ganz ehrlich - bei einem Thema mit 7 Seiten bzw. 62 Beiträgen schau ich nicht mehr rein, Lockbeitrag hin oder her :)

Ein bisschen Neugier ist manchmal nicht verkehrt.
Ich bin zB sehr dankbar, das Andre in meinen 6 Seiten / 57 Antworten / 2800 Aufrufe Fred geschaut hat.
Manchmal lösen sich Probleme nicht mit 4 Antworten.  :19:

LG

[wavemaster]

Hallo Berni,
ich meinte das der Druck stattfinden sollte mit oder ohne Blattschutz.

Code:

Sub Drucken()
With ActiveSheet
    .Protect Password:="DeinPasswort", UserInterfaceOnly:=True
    .blablabla

wo muß Ich diesen Befehl einfügen  :16:

Danke

[wavemaster]

habs geschaft

Danke nochmals

:18: :18: :18: :18: :18: