Wer kann mir sagen ob und wie das machbach ist. Wenn der Wert im Zellenbereich a2 bis a100 grösser als 1 ist, dann sollte es nachfolgend 5 leere Zeilen einfügen. Ich danke dir. Gruss Ruedi
Sub Gib_mir_5()
Dim z As Long, Zeile As Long
Application.ScreenUpdating = 0
For z = 101 To 3 Step -1
Cells(z, 1).Select
If Cells(z - 1, 1) > 1 Then
For Zeile = 1 To 5
Rows(z).Insert
Next
End If
Next
Application.ScreenUpdating = -1
End Sub
fg Kurt