Herbers Excel/VBA-Archiv

vba drucken wenn

• vba drucken wenn von Norbert Kempf-Störringer vom 15.10.2020 02:49:34
• AW: vba drucken wenn - von UweD am 15.10.2020 14:30:41

Betrifft: vba drucken wenn von: Norbert Kempf-Störringer
Geschrieben am: 15.10.2020 02:49:34

Hallo zusammen

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

  

Betrifft: AW: vba drucken wenn
von: UweD
Geschrieben am: 15.10.2020 14:30:41

Hallo


Was klappt denn nicht?

Bei mit ohne Probleme

Sub drucken()
    With Sheets(2)
        If .Range("a1") <> "" Then .PrintOut From:=1, To:=1, copies:=1
        If .Range("o1") <> "" Then .PrintOut From:=2, To:=2, copies:=1
    End With
End Sub

LG UweD