Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 16:39:00
ältere VBA Codes automatisch neu strukturieren
20.04.2024 16:36:42
Arbeitsblatt Script auslagern in Modul
20.04.2024 16:28:25
zwei Makro in einem zusammenführen?
20.04.2024 15:30:14
Warum Verweis zeigt Falsch an
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
152to156
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
152to156
152to156
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Nur Blätter mit Einträgen drucken, leere nicht!

Nur Blätter mit Einträgen drucken, leere nicht!
02.09.2002 14:32:23
Alexander S.
Hallo Leute,

es sind etwa 20 Tabellenblätter alle mit der selben Maske, einige werden ausgefühllt andere bleiben leer. So nun möchte ich alles ausdrucken, die leeren Blätter ohne Einträge, sollen nicht gedruckt werden, also nur die beschriebenen. Gibt es eine Möglichkeit eine VBA -Routine zu schreiben die so etwas steuern.
bin für jeden Tipp dankbar, bitte mit VBA Code angeben, bin noch ein Anfänger.

Grüsse Alexander S.


4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Nur Blätter mit Einträgen drucken, leere nicht!
02.09.2002 20:35:08
richi
Hallo Alexander,
gibt es einen eindeutigen Eintrag in den Tabellenblättern ?
Sprich : Wenn Blatt ausgefüllt ist, ist immer Zelle XYZ beschrieben?

gruß
richi

Re: Nur Blätter mit Einträgen drucken, leere nicht!
03.09.2002 09:51:00
Alexander S.
Hallo Richi,
den eindeutigen Eintrag gibt es, es soll nur geprüft werden ob z.B. in Mappe1 im Feld A3 was steht, und das bei allen 20 Mappen. Ist die Zelle A3 gefüllt, darf die Mappe nicht ausgeblendet werden, bzw soll beim Druck auftauchen. Mappen wo dieses Feld gleich Null bzw. leer ist, soll nicht gedruckt werden, bzw soll ausgeblendet werden.
Warum ich das ausblenden anspreche ich habe in einem Forum geselen wie man nur die eingeblenden Mappen drucken kann, darauf ergab sich, dass man die leeren Mappen per Funktion ausbelnden lässt die beschrieben druckt und nacher die Ausgeblendeten wieder einblendet.
WEnn es ginge, dass man beim Drucken prüft ob z.B.
Mappe1!A3=True >> DRUCKEN
Mappe1!A3=False >> nicht drucken weiter zu Mappe2!A3

Danke im Voraus
Grüsse Alexander

Anzeige
Re: Nur Blätter mit Einträgen drucken, leere nicht!
03.09.2002 10:57:03
richi
Hallo Alexander,

folgender Vorschlag:

Sub Blätter_ausblenden
Application.Screenupdating = False
Anzahl = ActiveWorkbook.Sheets.Count
For x = 1 To Anzahl
Sheets(x).Visible = True
Sheets(x).Select
if sheets(x).Range("A3").value="" then
sheets(x).Visible = False
Next x
Applicatin.run "Drucke_eingeblendete_Blätter"
End sub

Jetzt sind alle Blätter in denen in Zelle A3 kein Inhalt vorhanden war ausgeblendet. Danach Deine beschriebene Routine aufrufen "Drucke_eingeblendete_Blätter".

Falls noch Fragen einfach Requesten
gruß
richi

Re: Nur Blätter mit Einträgen drucken, leere nicht!
03.09.2002 14:29:52
Alexander S.
Hallo Richi,

vielen Dank für die Hilfe, in VBA bin ich halt Anfänger.
Dein Code hat funktioniert, es fehlte nur das END IF.

Ich habe den Code noch ergänzt aus anderen Beiträgen.
Der komplette Code hier: Es wird die Zelle "B2" in jeder Mappe geprüft dann ausgeblendet, gedruckt und wieder eingeblendet
*************************************************
Sub Ausblenden_Drucken_Einblenden()
Application.ScreenUpdating = False
Anzahl = ActiveWorkbook.Sheets.Count

For x = 1 To Anzahl
Sheets(x).Visible = True
Sheets(x).Select

If Sheets(x).Range("B1").Value = "" Then
Sheets(x).Visible = False
End If

Next x

Dim wks As Worksheet
For Each wks In Worksheets
If wks.Visible = True Then
wks.PrintOut
End If
Next wks

For Each wks In ThisWorkbook.Worksheets
wks.Visible = True
Next wks

End Sub
*******************************************

Weiter so Richi, wenn wir solche Leute wie du nicht hätten!
Man sieht sich bestimmt wieder.
Grüsse Alexander S.


Anzeige

52 Forumthreads zu ähnlichen Themen

Spalte nicht ausdrucken
Edwin

Hallo,
ich möchte in einem Sheet, dass eine bestimmte Spalte nicht ausgedruckt wird.
Ich weiß, dass ich Spalten ausblenden kann und dass diese dann nicht ausgedruckt werden.
Kann ich aber auch der Spalte die Eigenschaft zuweisen, dass sie nicht ausgedruckt wird?
Gruß
Edwin
05.11.2008 10:42:43
Thread-ID: 1021789
4 Beiträge
Anzeige
Zeilen nicht drucken, wenn Spalte leer oder 0
Berlenbach

Hallo,
ich habe ein Problem mit dem unten angegebenen und hier veröffentlichten Makro:
Sub Drucken() Dim iRowL As Integer, iRow As Integer iRowL = Cells(Rows.Count, 3).End(xlUp).Row For iRow = 1 To iRowL If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then Rows(iRow).Hidden = T...
01.04.2009 09:37:06
Thread-ID: 1065835
8 Beiträge
leere blätter nicht drucken
Michael

hallo
bei folgender prozedur werden nur die zeilen einer mehrseitigen tabelle gedruckt, bei denen kein "WAHR" in Spalte I steht. Problem ist nur, dass zwar die zeilen nicht gedruckt werden aber die eventuell vorhandenen Seiten dazwischen, wenn sich dort nicht zu druckende zeilen befinden. I...
04.01.2010 12:43:59
Thread-ID: 1127017
5 Beiträge
Anzeige
Leere Zeilen nicht drucken. Makro optimieren
chandler

Hallo,
das Makro durchsucht Bereiche und blendet Zeilen aus, wenn in Spalte C die Zellen leer sind um dann das Blatt zu drucken.
Sub print_n() Dim iCol As Integer Dim i As Integer Dim iRow As Integer Dim iRowL As Integer Dim i2 As Integer Dim iRow2 As Integer Dim iRowL2 As Integer iCol...
04.01.2012 14:21:35
Thread-ID: 1244557
10 Beiträge
Excel Diagramm zeigt leere Spalte als 0 an
Maximilian

Hallo,
ich habe ein kleines Problem
Ich habe ein Excel-Diagramm, zu dem jeden Tag ein neuer Wert hinzugefügt wird:

Problem ist, dass der Wert in der Markierten Zelle als 0 angesehen wird, nicht als leer. Daher erscheint dann in dem Diagramm auch ein Strich auf die x-Achse.
...
05.11.2012 14:56:21
Thread-ID: 1285357
4 Beiträge
Seiten nur drucken, wenn Zelle nicht 0
Albert

Hallo liebe Leute,
ich habe eine kleine Vereinsbuchhaltung, die ich mit einer Exceltabelle verwalte.
Jedes Konto ist gleich ein Tabellenblatt. Auf jeder Seite steht für das entsprechende
Konto eine Endsumme. Auf einigen Konten wird nicht jedes Jahr eine Summe gebucht,
so das dor...
19.11.2012 22:48:47
Thread-ID: 1287340
2 Beiträge
Seitenlayout leere Seiten werden gedruckt
Joachim

Hallo,
ich habe eine Datei bekommen, wo alle Tabellenblätter in der Ansicht Seitenlayout stehen. Bei fast allen Tabellenblätter ist nur die erste Seite ausgefüllt, die anderen sind grau mit dem Text 'Klicken Sie hier, um Daten hinzuzufügen'.
Manchmal gibt es aber eine zweite leere Seite...
28.02.2014 09:41:59
Thread-ID: 1351612
9 Beiträge
Leere Zeilen nicht in Grafik anzeigen!
Maria

Hallo.
Ich bin ein Excel-Anfänger und benötige für eine Tabelle für die Arbeit Hilfe.
In eine Zelle soll eine Division zwei anderer Zellen durchgeführt werden. Dazu haben die Kollegen noch die WENN-Formel benutzt.. also wenn in einer der beiden Zellen ein Wert, dann Division.
=WENN(...
30.11.2014 16:53:23
Thread-ID: 1395360
4 Beiträge

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
22
7
4
3
9
3
1
8
3
10
5
3
1
6
12
2
3
7
11
11
7
1
2
1