Hi,
ich lösche unter Office Xp Zeilen erfolgreich mit
Sub neues()
Dim InI As Integer
For InI = 171 To 4 Step -1
If Cells(InI, 6) = 0 And Cells(InI, 6) <> "" Then Rows(InI).Delete
Next
End Sub
Unter Office 97 taucht der Laufzeitfehler "13", Typen unverträglich auf.
Was muss ich tun, um es zum Laufen zu kriegen??
Gunnar