kann mir mal bitte jemand sagen wo hier der Fehler liegen könnte? Bin am verzweifeln.
Sub Test()
Dim zeile As Integer
zeile = 1
i = 0
For zeile = 1 To 1280
i = i + 1
If i = 1 Then
Tabelle1.Cells(zeile, 1) = "D"
End If
If i = 2 Then
Tabelle1.Cells(zeile, 1) = "x"
End If
If i = 3 Then
Tabelle1.Cells(zeile, 1) = "D"
End If
If i = 4 Then
Tabelle1.Cells(zeile, 1) = "D"
End If
If i = 5 Then
Tabelle1.Cells(zeile, 1) = "D"
End If
If i = 6 Then
Tabelle1.Cells(zeile, 1).Value = "x"
i = 0
End If
Next zeile
Range("A1").Select
Do Until IsEmpty(ActiveCell.Value)
If ActiveCell.Value = "D" Then
Selection.EntireRow.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
End Sub
Vielen lieben DankStefsi