Zu druckende Seitenanzahl aus Zelle auslesen.

[euroandi]

Hallo,

in der Zelle A1 steht die Anzahl der zu druckenden Seiten.

Das Macro soll diesen Wert Abfragen. (Variable)

Nun soll eine Schleife folgendes machen.

Ist Zahl (Variable) größer/gleich 1 dann Drucken Seite 1

Ist Zahl (Variable) größer/gleich 2 dann Drucken Seite 2

Ist Zahl (Variable) größer/gleich 3 dann Drucken Seite 3

und so weiter bis 100.

ist Variable kleiner dann Schleife beenden.

Gruß Andreas

[Karolus]

Hallo Andreas

Bei Michael Dannenhöfer finde ich ein Beispiel : http://www.starbasicfaq.de/WiekannmanDo ... cken..html
das du mal probieren kannst, statt des fixen 'Page-value = "1-3" müsstest du dort die Zählvariable reinschreiben.

Gruß Karo

[euroandi]

Hallo Karo,
danke für Deine Antwort, was mir noch fehlt ist eine Schleife.

Ich habe es in Excel hinbekommen

Code: Alles auswählen

a = Cells(1, 1).Value 


For i = 1 To 100 

    If a < i Then 
        
    Else 
    ActiveWindow.SelectedSheets.PrintOut From:=i, To:=i, Copies:=1, Collate:=True 
    End If 
    
    
Next i 

Gruß Andreas