Makro läuft nicht !!!! Hilfeeeee !!!
ralle
Hab wieder ein Problem mit meinem Makro:
Folgendes Makro läuft auch nicht untern Excel 97!!
Sub Zeilen_einfügen1()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
ws.Select
Dim lngZeile As Long
Application.ScreenUpdating = False
For lngZeile = Cells(65536, 1).End(xlUp).Row To 1 Step -1
If Cells(lngZeile, 1) = 1000 Or Cells(lngZeile, 1) = 2000 Or Cells(lngZeile, 1) = 3000 Or Cells(lngZeile, 1) = 4000 Or Cells(lngZeile, 1) = 5000 Or Cells(lngZeile, 1) = 6000 Or Cells(lngZeile, 1) = 7000 Or Cells(lngZeile, 1) = 8000 Or Cells(lngZeile, 1) = 9000 Or Cells(lngZeile, 1) = 10000 Then
With Rows(lngZeile + 1)
.Insert Shift:=xlShiftDown
End With
End If
Next
Application.ScreenUpdating = True
Next
End Sub
Hier sollte eigentlich soblad in der Spalte A die Zahl 1000 od. 2000 od. 3000 etc. auftaucht darunter eine Zeile eingefügt werden. Dies funktioniert auch unter Excel 2000 aber nicht unter Excel 97!
Woran kann das liegen, was muss ich ändern ?
Gruß
ralle