Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
488to492
488to492
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Druckenach

Druckenach
23.09.2004 15:28:22
Peter
Hallo Excels,
wo liegt der Fehler in diesem Code.
Nach den Bedingungen sollen 1,2,3 oder 4 Blätter gedruckt werden.

Sub Makro1()
If Range("b73") > 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
ElseIf Range("B126") > 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate _
:=True
ElseIf Range("b179") > 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate _
:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End If
End Sub

Gruss Peter

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Druckenach
Ulf
Elseif berücksichtigt nur immer eine Bedingung, stattdessen 3 mal If und 1 x else.
Ulf
AW: Druckenach
peter
Hi Ulf,
funktioniert nicht.

Sub Makro1()
If Range("b73") > 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
:=True
End If
If Range("B126") > 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate _
:=True
End If
If Range("b179") > 0 Then
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate _
:=True
Else
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
:=True
End If
End Sub

Gruss Peter
Anzeige
AW: Druckenach
Piet
Option Explicit

Sub Makro1()
With ActiveWindow
If [b179] > 0 Then
.SelectedSheets.PrintOut From:=1, To:=4, Copies:=1, Collate:=True
ElseIf [B126] > 0 Then
.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate:=True
ElseIf [b73] > 0 Then
.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate:=True
Else
.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
End If
End With
End Sub

Piet
AW: Druckenach
24.09.2004 06:56:53
peter
Hi Piet,
leider funktioniert auch dein Vorschlag nicht.
Kann es daran liegen das in der Zellen(B73;B126;B179) eine Formeln stehen ?
Gruss
Peter
Anzeige
AW: Druckenach
WernerB.
Hallo Peter,
wie gefällt Dir das (ungetestet)?

Sub Makro1()
Dim Anz As Byte
Anz = 1
If Range("B73").Value > 0 Then Anz = 2
If Range("B126").Value > 0 Then Anz = 3
If Range("B179").Value > 0 Then Anz = 4
ActiveWindow.SelectedSheets.PrintOut _
From:=1, To:=Anz, Copies:=1, Collate:=True
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige