ich habe folgenden Code eingebaut:
Sub Listendruck()
ActiveSheet.Unprotect
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 3).End(xLUp).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
Worksheets("Kundenliste").PrintPreview
Rows.Hidden = False
ActiveSheet.Protect
End Sub
er hat auch wunderbar funktioniert, d.h. alle Zellen, die nicht belegt waren (bzw. mit 0) hat er in dem Tabellenblatt ausgeblendet. Dann hab ich noch eine Spalte eingefügt. Hierzu mußte ich die ausgeblendeten Zeilen einblenden, habe dann Spalte eingefügt und bearbeitet. Danach hat das "Verstecken" nicht mehr funktioniert !! Wo ist der Fehler ?
Ich hab auch das komplette Tabellenblatt nochmals gelöscht und völlig neu angelegt (diesmal ohne die eingefügte Spalte), aber es reagiert immer noch nicht... Ich könnt es mir natürlich einfach machen und einfach nur die Seiten ausdruken, die beschriftet sind, aber das hätte ich ja auch ohne Code machen können.