Makro überspringt Zeilen!?
markus
ich habe ein Makro das Zeilen löscht wenn in bestimmten Zellen keine Zahlen sonder Text steht.
Das funktioniert auch alles, nur überspringt das Marko zwischendrin Zeilen/Zellen, wodurch ich das ganze immer mehrfach laufen lassen muss.
Da das irgendwie nicht die Endlösung sein kann meine Frage ob jemand weiß warum das passiert.
hier mal das Makro. und die Datei
Sub loeschen()
Dim rngCell As Range
Dim Rows1 As Integer
Dim d As Integer
For d = 0 To 3
Range("e6:g300").Select
For Each rngCell In Selection.Cells
With rngCell
.Select
If ActiveCell.NumberFormat = "@" Then
Rows1 = ActiveCell.Row
Range(Cells(Rows1, 1), Cells(Rows1, 8)).Delete
End If
End With
Next
Next d
End Sub
Danke für Hinweise und Hilfe.
gruß
markus