Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

alle Blätter drucken bei denen Zelle x ungleich 0

Forumthread: alle Blätter drucken bei denen Zelle x ungleich 0

alle Blätter drucken bei denen Zelle x ungleich 0
12.09.2007 07:28:05
Mexy
Hallo,
wie könnte eine VBA Marko aussehen, welches nur die Blätter druckt in denen eine bestimmte Zelle einen Wert ungleich 0 hat, bzw. nicht leer ist?
Vielen Dank.
Grüsse
Mexy

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: alle Blätter drucken bei denen Zelle x ungleich 0
12.09.2007 07:32:00
gerwas
Hallo
etwa so:

Sub druck_wenn_nicht_null()
For k=1 to Sheets.Count
If Range("A1")0 Then ActiveWorkbook.Sheets(k).PrintOut Copies:=1
Next
End Sub


Gruß gerwas

nur Sheets druckt Diagramme mit !!
12.09.2007 08:23:14
Matthias
Hallo gerwas
Beispiel ohne Drucken nur mit MsgBox:

Option Explicit
Sub druck_wenn_nicht_null()
Dim K As Long
For K = 1 To Worksheets.Count 'bei Sheets werden Diagramme mit ausgedruckt
If Range("A1")  0 Then MsgBox "Drucke Blatt " & K
Next
End Sub


Userbild
Probier's aus. Pack ein Diagramm rein und nimm wieder Sheets.

Anzeige
AW: nur Sheets druckt Diagramme mit !!
12.09.2007 10:27:04
Mexy
Hi,
vielen Dank. Ich werde beide Varianten prüfen.
Ich hatte es versucht mit:

Sub AbforderungenDrucken()
Dim wks As Worksheet
For Each wks In Worksheets
If Range("G11").Value > 0 Then
wks.PrintPreview
End If
Next wks
End Sub


Allerdings druckt er dann einfach alle Seiten. Woran kann es liegen? In der entsprechenden Zeile ist zwar eine Formel hinterlegt, aber nicht überall ist auch ein Wert drinnen.
Gruß
Mexy

Anzeige
AW: nur Sheets druckt Diagramme mit !!
12.09.2007 11:35:00
Mexy
Hi,
vielen Dank. Ich werde beide Varianten prüfen.
Ich hatte es versucht mit:

Sub AbforderungenDrucken()
Dim wks As Worksheet
For Each wks In Worksheets
If Range("G11").Value > 0 Then
wks.PrintPreview
End If
Next wks
End Sub


Allerdings druckt er dann einfach alle Seiten. Woran kann es liegen? In der entsprechenden Zeile ist zwar eine Formel hinterlegt, aber nicht überall ist auch ein Wert drinnen.
Gruß
Mexy

Anzeige
gib dem Range das Tabellenblatt mit !
12.09.2007 16:43:00
Matthias
Hallo

Sub AbforderungenDrucken()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Range("G11").Value > 0 Then
MsgBox "Drucken von " & wks.Name
End If
Next wks
End Sub


Gruß Matthias

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige