ich habe eien Frage:
wenn ich Spalte A der Zelleninhalt mehr als 30 Zeichen hat, dann soll diese Zeile gelöscht werden.
Wie mache ich das?
Danke im Voraus...
Liebe Grüße
SELMA
Sub ueber30()
Dim i As Long
For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Len(Cells(i, 1)) > 30 Then Rows(i).Delete
Next i
End Sub
Sub Zeile_weg()
z = Range("A65536").End(xlUp).Row
For i = z To 1 Step -1
If Len(Cells(i, 1)) > 30 Then Rows(i).Delete
Next i
End Sub