Prüfung Zellen
08.04.2022 11:07:56
xtian
wäre für etwas Hilfe dankbar. In einer Excel-Liste sind Zahlen ab der Zelle A1 so aufgelistet:
A1: 2015
A2: 2015
A3: 2016
A4: 2016
A5: 2017
A6: 2018
A7: 2018
usw.
Das Makro soll jetzt überprüfen, ob immer eine Zelle tiefer der gleiche Wert steht. Hier im Bsp. ist das bei den Zellen
A1+A2 (und auch bei A3+A4, A6+A7) mit "2015" der Fall. Jetzt soll das Makro in den Zellen B1+B2 "Ok" schreiben.
"2017" aus Zelle A5 gibt es nicht eine Zelle tiefer. Hier soll das Makro dann in Zelle B5 "Fehler" eintragen.
Kann ich das Makro so schreiben. Traue den Braten als VBA-Anfänger nicht so recht...
Sub DoppelteUeberpruefen()
Dim RaZelle As Long
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Rows.Row
For RaZelle = LastRow To 1 Step -1
If Cells(RaZelle, 1).Value = Cells(RaZelle + 1, 1).Value Then
Cells(RaZelle, 1).Offset(0, 1) = "Ok"
Cells(RaZelle + 1, 1).Offset(0, 1) = "Ok"
Else
Cells(RaZelle, 1).Offset(0, 1) = "Fehler"
End If
Next RaZelle
End Sub
xtian