ich möchte in einer Tabelle leere Zellen nicht drucken. Per Makro soll der Bereich rng1 (spalte 18-27 sowie zeile 5 bis variables ende, daher cells-anweisung) nach leeren Zellen durchducht werden. Falls nur eine dieser Zellen in dem Bereich leer sein sollte, soll die komplette Zeile versteckt werden.
Anschließend soll dann der Bereich rng (spalte 1-6 sowie zeile 5 bis variables ende, je nach Größe der Tabelle) ausgedruckt werden, wobei hier ja nur die sichtbaren Zellen gedruckt werden sollen, die sich ja nach dem Ergebnis der Prüfung von rng1 richten. Mit meinem Versuch druckt er immer die komplette Tabelle aus, ich weiß nicht woran es liegt.
Bin für jede Anregung dankbar.
Vielen Dank im Voraus.
Gruß Sven
Hier mein Code-Versuch:
Private Sub DruckListe_Click() Dim rng As Range Dim rng1 As Range Dim iRow As Integer Dim iCol As Integer Dim bln As Boolean 'dieser Bereich soll durchsucht werden Set rng1 = Range(Cells(5, 18), Cells(variable größe, 27)) 'dieser Bereich soll gedruckt werden Set rng = Range(Cells(5, 1), Cells(variable größe, 6)) For iRow = 1 To rng1.Rows.Count bln = False For iCol = 1 To rng1.Columns.Count If Cells(iRow, iCol).Value <> "" Then bln = True 'Exit For End If Next iCol If bln = False Then Rows(iRow).Hidden = True End If Next iRow With Worksheets("tabelle1") .PrintOut Rows.Hidden = False End With End Sub