Anzeige
Archiv - Navigation
176to180
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
176to180
176to180
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige