ich habe ein kleines Problem. Und zwar hängt sich der nachfolgende Code beim Löschen von Leerzeilen auf. Das stringabhängige Löschen funktioniert.
Sub begriffe_loeschen_michael()
Dim reihe As Integer
For reihe = 1 To 10
If IsEmpty(Cells(reihe, 1)) Then
Rows(reihe).Delete
reihe = reihe - 1
End If
If Cells(reihe, 1).Value Like "*michael*" Then
Rows(reihe).Delete
reihe = reihe - 1
End If
Next reihe
End Sub
Jemand eine Idee?
Cu