Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Nur ausgefüllte Zeilen drucken

Forumthread: Nur ausgefüllte Zeilen drucken

Nur ausgefüllte Zeilen drucken
08.11.2002 00:25:23
Alfred
Hi together!
Ich habe ein Riesenproblem: Ich möchte eine Tabelle ausdrucken, allerdings nur die Zeilen. die auch Angaben enthalten. Es wird im Moment immer alles bis Zeile 250 ausgedruckt, vermutlich weil ich bis dorthin Formatierungen (Rahmen , Farben u.ä.) vorgenommen habe. Ich möchte jetzt die Formatierungen lassen, aber nur soweit ausdrucken, wie die Zeilen ausgefüllt sind. Geht das??

Gruß aus dem hohen Norden

Werner

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Nur ausgefüllte Zeilen drucken
08.11.2002 00:49:49
Heaven
Hallo Werner,
es geht:
hier ein Beispiel, dass ich gerade geschrieben habe:
Ausblenden der Zeilen ohne Wert:
Range("d5").Select
For i = 5 To 14
If Cells(i, 4).Value = Empty Then
Rows(i).EntireRow.Hidden = True
End If
Next
End Sub

Grüße
Heaven
Range("a1").Select
'Zeilenumbruch, damit das ganze auch gut aussieht
ActiveSheet.PageSetup.Zoom = 100
ActiveSheet.ResetAllPageBreaks
Dim LetzteZelle As Integer
Const Tabellenblattname As String = "Liquiditätsermittlung"
Const LetzteSpalte As String = "G"
With Sheets(Tabellenblattname)
LetzteZelle = .Cells(Cells.Rows.Count, 1).End(xlUp).Row
.PageSetup.PrintArea = "A1:" & LetzteSpalte & LetzteZelle
End With
If ActiveSheet.HPageBreaks.Count = 1 Then
Set ActiveSheet.HPageBreaks(1).Location = Range("a29")
End If
If ActiveSheet.HPageBreaks.Count = 2 Then
Set ActiveSheet.HPageBreaks(1).Location = Range("a29")
Set ActiveSheet.HPageBreaks(2).Location = Range("a67")
End If
'Drucken
ActiveWindow.SelectedSheets.PrintOut Copies:=1
'Zeilen einblenden
Range("a1:A100").Select
Selection.EntireRow.Hidden = False
'Nach oben springen
Range("a1").Select

Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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