ja, es muss ein vba sein, da es teil eines bereits bestehenden skripts sein muss.
und so ähnlich wie deine formeln sind, sind meine if schleifen aufgebaut. ich frag mich aber, ob das Ganze nicht auch mit einer "range" geht und nicht einfach zeile für zeile 2 mal prüfen muss.
zerzeit hab ich folgende Lösung
sub makro1()
dim i as long
for i = 1 to Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 2).Value = Cells(i + 1, 2).Value Then
Cells(i + 1, 1).Value = "0"
End if
Next
Und dann um bei der ersten Abfolge auch noch eine "0" hinzubekommen einfach noch eine Schleife
for i = 1 to Cells(Rows.Count, 2).End(xlUp).Row
If Cells(i, 1).Value = "0" Tehn
Cells(i - 1, 1).Value = "0"
End if
Next
End Sub
Ich frage mich, ob das nicht auch mit einer Range irgendwie einfacher geht.
|