Sub Makro2()
Cells.Select
Selection.Clear
Workbooks.Open FileName:= _
"C:\WINNT\Profiles\...\Erg_1_Daten.xls"
ActiveSheet.UsedRange.Select
Selection.Copy
Windows("Erg_1.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Selection.AutoFilter
Dim l As Long
Dim Letzte As Long
Letzte = Range("a65536").End(xlUp).Row
For l = Letzte To 1 Step -1
If Not IsEmpty(Cells(l, 1)) Then
If Cells(l, 1).Value = 0 Then Rows(l).Delete
End If
Next
End Sub
Prozedur funktioniert zwar, alles wird kopiert und die Nullen werden gelöscht. Dennoch bekomme ich am Ende in der Zeile "If Cells(l, 1). etc." die Fehlermeldung "Laufzeitfehler '13': Typen unverträglich". Jemand eine Ahnung, wie man das abstellen kann?
Herzlichen Dank im Voraus. Demian