Hallo Ihabe ein Makro, mit dem ich Zeilen löschen will wenn Zelle (i,3) leer.
Das funktioniert auch, wenn auf eine nicht leere nur eine leere folgt. Sobald zwische zwei nicht leeren mehrere leere sind, löscht es offenbar nur eine. Es sollen aber alle leeren gelöscht werden. Wie kriege ich das hin?
Danke für eure Hilfe.
Code:
Public Sub keine_MAC()
'Dim Start As Long
'Dim Ende As Long
'Dim speicher1 As Long
'Dim speicher2 As Long
'speicher1 = ActiveCell.Row
'speicher2 = ActiveCell.Column
'Start = Cells(ActiveCell.Row, ActiveCell.Column)
'Ende = Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
For i = ActiveCell.Row To Sheets(1).UsedRange.SpecialCells(xlCellTypeLastCell).Row
If Cells(i, 3).Value = „“ Then
Rows(i).Delete
End If
Next i
End Sub
Gruss
Walti
P.S. wollte das Excel anhängen. weiss aber nicht wie.