Markierung
Christian
ich habe folgendes Makro zur Markierung von Abweichungen, aber irgendwie funktioniert es nicht, kann mir jemand helfen?
Sub D_Markierung()
'Markierung von Abweichungen grösser 15%
Dim intReihen As Integer
Dim intAnfang As Integer
intReihen = Cells(Rows.Count, 1).End(xlUp).Row
intAnfang = 1 'Startzeile festlegen
Do Until intAnfang > intReihen 'Wenn Anfang grösser Reihen, dann beenden, da Tabelle _
zuende
For z = intAnfang To intReihen
If Cells(z, 6).Value > 15 Or Cells(z, 6).Value < -15 Then Cells(z, 7).Value = "X"
Next
intAnfang = z + 1
Loop
End Sub
In Zelle (z, 6) steht ein Prozentwert, weicht dieser mehr als + oder - 15% nach oben oder unten ab, soll in der Spalte nebendran ein X eingefügt werden.
Ich bekomme keine Fehlermeldung und versteh nicht warum es nicht klappt...
Danke
Christian
Anzeige