Leere Zellen in Spalte B löschen
18.12.2022 10:40:31
Erich
ich habe ein Makro gefunden, dass leere Zellen in der Spalte A löscht. Ich bräuchte aber so ein Makro für die Spalte B.
Sub DeleteRowIfEmptyCell()
Dim intRow As Integer, intLastRow As Integer
intLastRow = Cells.SpecialCells(xlCellTypeLastCell).Row
For intRow = intLastRow To 1 Step -1
If Application.CountA(Rows(intRow)) = 0 Then
intLastRow = intLastRow - 1
Else
Exit For
End If
Next intRow
For intRow = intLastRow To 1 Step -1
If IsEmpty(Cells(intRow, 1)) Then
Rows(intRow).Delete
End If
Next intRow
End Sub
Erich