Code läuft nach 5-6 x nicht mehr
Benedikt
Nachfolgender Code läuft eigentlich Prima. Jedesmal wenn ein Textblock eingefügt wird, löscht er die Zeilen mit Nullwert in Spalte C. Aber nach 5-6 x oder ca. ab Zeile 120 werden die Nuller nicht mehr berücksichtigt, d.h. die Zeilen werden nicht gelöscht. Habe ich etwas falsch gebastelt?
Da ich nicht so ein spez. in Sachen VBA bin, währe ich froh für ein feedback.
Vielen Dank und schönen Abend.
Function Text_einfügen()
With Workbooks("Tempoff.xlsm").Worksheets("Offerte").Cells(lngRow, Spalte)
.PasteSpecial Paste:=xlValues
End With
Application.CutCopyMode = False
'Leere Zeilen löschen
Dim z As Long, lZ As Long
With Workbooks("Tempoff.xlsm").Worksheets("Offerte")
lZ = Sheets(3).Cells(65536, 3).End(xlUp).Row
For z = lZ To 1 Step -1
If .Cells(z, 3) = "0" Then .Rows(z).Delete
Next
End With
End Function