suche folgenden Code
wenn in Tabelle 2 die Zelle a1 0 ist drucke Seite von Seite 1 bis 1
wenn in Tabelle 2 die Zelle o1 0 ist drucke Seite von Seite 2 bis 2
mein versuch läuft nicht
Sub drucken()
Sheets(2).Select
If (Sheets(2).Range("a1") "") Then Sheets(2).PrintOut From:=1, To:=1, copies: _
=1
If (Sheets(2).Range("o1") "") Then Sheets(2).PrintOut From:=2, To:=2, copies: _
=1
End Sub
vielenDank im Voraus
Norbert