ich habe in Zelle R3 und S3 jeweils eine Formel stehen.
R3: =WENN(J3=MAX($J$3:$J$19223);WECHSELN(I3;".";",")*1;0))
S3: =WENN(J3=MAX($J$3:$J$19223);K3*1;0)
In VBA (Ausschnitt aus Code) sieht es wie folgt aus:
Range("R3:R" & lngLast).Formula = "=IF(J3=MAX($J$3:$J$" & lngLast & "),SUBSTITUTE(I3,""."","","")*1,0)"
Range("S3:S" & lngLast).Formula = "=IF(J3=MAX($J$3:$J$" & lngLast & "),K3*1,0)"
Das funktioniert soweit sehr gut.
Ich habe in Zelle R3 und S3 die Formel angepasst.
R3: =WENN(E3="CADAPPS";WENN(J3=MAX($J$3:$J$19223);WECHSELN(I3;".";",")*1;0))
S3: =WENN(E3="CADAPPS";WENN(J3=MAX($J$3:$J$19223);K3*1;0)
Was muss ich bitte oben im VBA anpassen?
Beste Grüße,
Dino