ich habe folgenden Code:
Sub Listendruck()
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 3).End(x1Up).Row
For iRow = 1 To iRowL
If IsEmpty(Cells(iRow, 3)) Or Cells(iRow, 3).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
End Sub
Sinn dieser Sache ist es, aus einer Tabelle nur die zeilen auszudrucken, in denen auch Daten stehen, bzw. umgekehrt, die nicht leer oder die Null als Inhalt haben !
Hier meldet sich der Debugger: iRowL = Cells(Rows.Count, 3).End(x1Up).Row
Außerdem würde ich gerne statt dem aktiven Blatt ein anderes Blatt (Kundenliste) drucken.
Weiß jemand Rat ?