Hallo,
folgendes Problem:
Ich möchte in Excel ein Formular erstellen, in dem Einkommensdaten und Schnittberechnungen aufgeführt werden. Dabei werden verschiedene Einkommensarten berücksichtigt. Es werden aber nicht bei jedem Fall alle Einkommensarten benötigt. Nun sollen beim Drucken nur die Einkommensarten ausgegeben werden, in denen auch eine Eintragung gemacht worden ist. Ist das möglich?
MfG
Torsten
Hallo Torsten,
ich bin leider kein Experte, aber du kannst in Excel Zeilen oder Spalten (nur ganze Zeilen oder Spalten keine einzelnen Zellen) markieren und mit Rechtsklick ein- oder ausblenden. Ich hoffe, das hilft dir.
LG
Nurgül
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Nurgül,
danke für die fixe Antwort. Ich möchte aber gerne, dass die entsprechenden Zeilen automatisch ausgeblendet werden wenn in einer Zelle in der Zeile kein Wert steht.
Hallo Torsten,
ich bin leider kein Experte, aber du kannst in Excel Zeilen
oder Spalten (nur ganze Zeilen oder Spalten keine einzelnen
Zellen) markieren und mit Rechtsklick ein- oder ausblenden.
Ich hoffe, das hilft dir.LG
Nurgül
Ich möchte in Excel ein Formular erstellen, in dem
Einkommensdaten und Schnittberechnungen aufgeführt werden.
Dabei werden verschiedene Einkommensarten berücksichtigt. Es
werden aber nicht bei jedem Fall alle Einkommensarten
benötigt. Nun sollen beim Drucken nur die Einkommensarten
ausgegeben werden, in denen auch eine Eintragung gemacht
worden ist. Ist das möglich?
Hi Torsten,
Alt+F11, Doppelklick auf „DieseArbeitsmappe“, Code einfügen, ggfs. anpassen.
Im Beispielcode wird Spalte A überprüft, sind leere Zellen, wird entsprechende Zeile zum Ausdrucken ausgeblendet, danach wieder eingeblendet.
Läuft er bei großen dtaenmengen zu langsam, so kann man ihn noch fein-„tunen“.
Private Sub Workbook\_BeforePrint(Cancel As Boolean)
Cancel = True
Dim Zeile As Long, Letzte As Long
Letzte = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For Zeile = 1 To Letzte
If Cells(Zeile, 1) = "" Then Rows(Zeile).EntireRow.Hidden = True
Next Zeile
Application.EnableEvents = False
ActiveSheet.PrintOut
Application.EnableEvents = True
For Zeile = 1 To Letzte
Rows(Zeile).EntireRow.Hidden = False
Next Zeile
End Sub
Gruß
Reinhard