Moin moin liebes Forum,
ich hoffe ich habe mal eine einfache Frage für euch. Wie bekomme ich es mit dem unten stehenden Makro hin, dass jeweils nach jeder vollen Zeile ein leere Zeile eingefügt wird? Über hilfe würde ich mich sehr freuen!
Liebe Grüße
Sub Drucken()
Dim iRowL As Integer, iRow As Integer
iRowL = Cells(Rows.Count, 1).End(xlUp).Row
For iRow = 4 To iRowL
If IsEmpty(Cells(iRow, 1)) Or Cells(iRow, 1).Value = 0 Then
Rows(iRow).Hidden = True
End If
Next iRow
ActiveSheet.PrintPreview
Rows.Hidden = False
End Sub
|