Guten Tag Miteinander, ich schreibe gerade ein Makro und brauche bitte etwas Unterstützung. In Reihe A und Reihe B habe ich Messdaten. Reihe C ist einfach eine Numerierung, die ab Zeile 2 beginnt. Reihe D ist die Differenz einer Zahl der Zeile A mit einer Zahl der Zeile A vor zehn Zeilen. Ziel ist es nun alle Zeilen der Reihe D automatisch löschen zu lassen, die kleiner 1 sind. Das habe ich soweit mit folgendem Befehl hinbekommen:
Dim Lastrow As Long
Dim Lrow As Long
Dim CalcMode As Long
With Application
CalcMode = .Calculation
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
With ActiveSheet
'letzte Zeile bestimmen
Lastrow = .UsedRange.Rows(.UsedRange.Rows.Count).Row
'Von unten nach oben durchsuchen
For Lrow = Lastrow To 1 Step -1
If .Cells(Lrow, "D").Value <= "1" or Then .Rows(Lrow).Delete
Next Lrow
End With
With Application
.ScreenUpdating = True
.Calculation = CalcMode
End With
End Sub
MEIN PROBLEM: Mein Befehl löscht auch leider meine erste Zeile, mit den Beschriftungen und ich verstehe nicht ganz wie ich den Befehl nur bis Zeile 2 ausführen kann. Dann würde ich gerne den Vorgang des Numerierens ab der zweiten Zeile in Reihe C und die Differenzierung der Werte in Reihe A sowie deren Ausgabe als Zahl in Reihe D automatisieren. Vielen Dank in die Runde.