wenn in Zellen in Spalte A nichts steht oder der Zelleninhalt keine Zahlen beinhaltet, dann sollen diese Zeilen gelöscht werden. Mein Arbeitsblatt hat ca. 35000 Zeilen.
Wie kann ich das per VBA machen?
Vielen Dank im Voraus...
Liebe Grüße
Selma
Sub ZeilenWeg()
Dim intCounter As Integer
For intCounter = UsedRange.Rows.Count To 1 Step -1
If IsEmpty(Range("A" & intCounter)) Then
Rows(intCounter).Delete
End If
Next intCounter
End Sub
Sub Löschen()
On Error Resume Next
With Range("A2:A65000")
.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
.SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
.SpecialCells(xlCellTypeFormulas, 2).EntireRow.Delete
End With
On Error GoTo 0
End Sub