Leerzeilen in Druckbereich NICHT drucken

Hallo Retter!!!
Folgendes Problem belastet mich schon lange Zeit:
Ein Tabellenblatt mit Eingabefeldern und vielen Berechnungen
daraus wird auf dem selben Tabellenblatt eine Rechnung erstellt
diese Rechnung wird als eigener Druckbereich definiert
da nun immer einige Eingabefelder leer bleiben, sind natürlich auch
viele Zeilen bei der Rechnung selber ohne Text bzw. Berechnung,
es liegen nur Formeln dahinter
nun möchte ich, bevor ich die gesamte Rechnung ausdrucke
(mit vielen Leerzeilen = viele Seiten) die Leerzeilen in dem
definierten Druckbereich ausblenden.
Sollte jemand dafür einen Code bzw. Makro wissen, bitte
ich um diesen und um genaue Angabe wo und wie ich diesen
einsetze, da ich mit VBA noch nicht viel zu tun hatte.
Vielen Dank im voraus an meinen Retter.
Gruß
Gerhard

Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Gerhard,
die nachstehenden Makros kopierst Du in ein normales Standard-Modul.
Starten kannst Du dann die Makros über
- Extras / Makro / Makros ... (Makroname anklicken) / Ausführen
oder über entsprechende Befehls-Schaltflächen, die Du Dir installieren und mit den Makros verknüpfen kannst.


Sub Ausblenden()
Dim Bereich As String, lo As String, ru As String, aC As String
Dim zo As Long, zu As Long, i As Long
Dim sl As Integer, sr As Integer
Application.ScreenUpdating = False
aC = ActiveCell.Address
Application.Goto Reference:="Print_Area"
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1)             'links oben
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
zo = Range(lo).Row                                      'Zeile oben
zu = Range(ru).Row                                      'Zeile unten
sl = Range(lo).Column                                   'Spalte links
sr = Range(ru).Column                                   'Spalte rechts
For i = zo To zu
If WorksheetFunction.CountBlank(Range(Cells(i, sl), Cells(i, sr))) = sr - sl + 1 Then
Rows(i & ":" & i).EntireRow.Hidden = True
End If
Next i
Range(aC).Select
Application.ScreenUpdating = True
End Sub


Sub Einblenden()
Dim Bereich As String, lo As String, ru As String, aC As String
Dim zo As Long, zu As Long
Application.ScreenUpdating = False
aC = ActiveCell.Address
Application.Goto Reference:="Print_Area"
Bereich = Selection.Address(False, False)
lo = Left(Bereich, InStr(Bereich, ":") - 1)             'links oben
ru = Right(Bereich, Len(Bereich) - InStr(Bereich, ":")) 'rechts unten
zo = Range(lo).Row                                      'Zeile oben
zu = Range(ru).Row                                      'Zeile unten
Rows(zo & ":" & zu).EntireRow.Hidden = False
Range(aC).Select
Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.

Beliebteste Forumthreads (12 Monate)

Leerzeilen in Druckbereich NICHT drucken

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Leerzeilen in Druckbereich NICHT drucken

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread