Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
26.04.2024 10:08:11
Summieren von Zellen mit bedingter Formatierung
26.04.2024 09:08:00
Export alle Tabellenblätter als csv - in bestimmten Ordner
26.04.2024 08:56:40
Über alle Spalten nur €-Werte zählen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
904to908
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
904to908
904to908
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen nach Bedingung ein / ausblenden

Zeilen nach Bedingung ein / ausblenden
07.09.2007 09:39:42
Frank
Hallo!
Ich habe eine Statistik angelegt. Normalerweise ist dies nur eine DIN A4 Seite. Fällt die Woche jedoch auf den Monatswechsel, muss die Wochenstatistik auf die Monate aufgeteilt werden. Dann sind insgesamt drei Seiten zu drucken.
Alle Abrechnungsblätter inkl. der Statistik werden durch ein Makro selbstständig gedruckt.
Im Blatt "Start" stehen in Zelle C5 das Datum vom Montag und in E5 das Datum vom Sonntag der Woche.
Ich möchte nun, dass wenn die Woche auf einen Monatswechsel fällt, also der Tag in E5 kleiner als der in C5 ist, das im Blatt "Statistik" die Zeilen für die Aufteilung eingeblendet werden. Andernfalls sollen sie vor dem Druck ausgeblendet werden. Eine Anweisung wenn... dann drucke Seite 1-1, sonst drucke 1-3 geht natürlich genauso.
Ich hoffe, das war verständlich und jemand kann mir dabei helfen.
Gruß Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen nach Bedingung ein / ausblenden
07.09.2007 10:02:04
Mag
Hi,

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wk As Worksheet
For Each wk In Worksheets
'Abfrage
'Ausblenden
Rows("8:11").EntireRow.Hidden = True 'z.B. Zeile 8 bis 11
Next
End Sub


Gruss

AW: Zeilen nach Bedingung ein / ausblenden
07.09.2007 10:26:16
fcs
Hallo Frank,
wenn das Datum in eine der beiden Zellen manuell eingegeben wird. Dann kannst du mit folgender Prozedur die Zeilen einblenden.
Die Prozedur muss du im VBA-Editor unter der Tabelle "Start" einfügen.
Falls die Werte in den beiden Zellen automatisch durch eine Prozedur eingetragen werden, dann muss du die Zeilen von
With Worksheets("Start")
bis
End With
in deinen vorhandenen Code einbauen.
Gruß
Franz

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$C$5" Or Target.Address = "$E$5" Then
With Worksheets("Start")
If Day(.Range("E5"))


Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige