Office: (Office 2016) Drucken über VBA Makro

Hallo zusammen,

ich habe in einem Excel Blatt 10 zugewiesene Druckbereiche.
Drucken möchte ich aber immer nur so viele Druckbereiche wie in meinem Fall Preisschilder erstellt sind. Das alles möchte ich mittels Makro steuern. Jetzt habe ich neben jedem Blatt eine Formel die prüft ob es etwas zu drucken gibt. 0=nein 1=1 Blatt in AX2 steht (=E1+J1+O1+T1+Y1+AD1+AI1+AN1+AS1+AX1) gleich die gesamte Anzahl der zu druckenen Blätter. Nun möchte ich das nur soviel Seiten gedruckt werden wie in AX2 angezeigt werden. Also Seiten 1 bis = AX2
Sheets("Preisschilder")
Range("AX2")

 

Eine Beispieldatei wäre gut.
und wie kannst du ""neben jedem Blatt eine Formel "" neben einem Blatt ne Formel schreiben?
Erster Gedanke "Filter"

 

In diesem Fall steht in AX2 eine 2 für zwei zu druckende Seiten

 

OK, zum probieren kann mein Excel mit dem Bild nichts anfangen.
Eine 0815 Lösung fällt mir dazu nicht ein, ich bin hier raus.
Viel Erfolg

 

Die gesamte Datei möchte ich nicht ins Netz stellen. Vielleicht kann mir jemand mit meinem Befehl helfen.
"To=Sheets" wird so leider nicht ausgeführt!

ActiveWindow.SelectedSheets.PrintOut From:=1, To:=Sheets("Getränkeschilder A5").select Range("AX2").selekt
Value = 1
Sheets("Kalkulation").Select
ActiveWorkbook.Worksheets("Kalkulation").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Kalkulation").AutoFilter.Sort.SortFields.Add Key:= _
Range("F2:F542"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Kalkulation").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
ActiveWorkbook.Worksheets("Kalkulation").AutoFilter.Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Kalkulation").AutoFilter.Sort.SortFields.Add Key:= _
Range("E2:E542"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("Kalkulation").AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("C4:C32").Select
Selection.ClearContents
Range("C4").Select
End Sub

 

kann das so nicht checken, aber

A5").select Range("AX2").selekt

selekt wird mit c geschrieben = select

 

Ich habe die Datei etwas eingekürzt.
Ich hoffe Sie können mir doch noch zur Lösung verhelfen.
Mein Ziel ist es immer nur die benötigten Preisschilder =Seitenanzahl zu drucken.

 

War doch fast fertig.
Probiers mal

 

Die hochgeladene Datei ist leider eine PDF!

 

ups... sorry

 

Funktioniert wir gewünscht.

Vielen Dank

 

Bitte gerne, viel Spass