kann mir mal jemand erklären, warum folgender Code nicht die Zeilen in einer Tabelle ab Zeile 9 bzw. 13 löscht?
Private Sub Workbook_BeforePrint(Cancel As Boolean)
' vor dem Druck von KM-Geld werden die Leerzeilen gelöscht
If ActiveSheet.Name = "KM-Geld" Then
lastrow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
For r = lastrow To 9 Step -1
If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End If
' vor dem Druck von Verauslagte Kosten werden Leerzeilen gelöscht
If ActiveSheet.Name = "Verauslagte Kosten" Then
lastrow = ActiveSheet.UsedRange.Row - 1 + ActiveSheet.UsedRange.Rows.Count
For r = lastrow To 13 Step -1
If Application.WorksheetFunction.CountA(Rows(r)) = 0 Then Rows(r).Delete
Next r
End If
End Sub
Es erscheint auch keine Fehlermeldung...
Danke, Sebastian