Bräuchte den VBA Code:
Hilfsspalte mit folgender Formel(geschrieben für Zeile 1) =Wenn(A1=A2;"";Zeile())
.FormulaR1C1 = "=if(RC1=R[1]C1,"""",Row())" ' hier für die zweite Zeile weil
'Überschriften vorhanden sind
Besten Dank für eure Antwort.
mfg STeve