AW: Zählen ohne doppelte Werte
22.01.2018 15:34:27
Tom
Hallo,
nein, so einfach ist es leider doch nicht. Die Zuordnung selber ob Angebot oder Bestellung verändert sich nicht. Es kommt aber vor das eine Angebotsnummer in Spalte A öfters vorkommt und deswegen filtere ich die Duplikate heraus. Die Formel an sich würde bei meiner Auswertung richtig berechnen, nur kommt mir eine Fehlermeldung weil bei der SVerweis-Formel in der Spalte C irgendwann #NV anfängt. Hier auch noch der Code der den SVerweis hinterlegt. Vielleicht lässt sich der Code auch so darstellen, dass die Formel nur bis zur zuletzt beschriebenen Zeile eingefügt wird!?
Sub Sverweis_hinterlegen()
' Sverweis_hinterlegen Makro
Sheets("Protokoll Statuswechsel").Select
Range("J1").Select
ActiveCell.FormulaR1C1 = "Sverweis"
Range("J2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],Angebote!R2C2:R10382C12,10,0)"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J325"), Type:=xlFillDefault
Range("J2:J325").Select
Sheets("Protokoll Statuswechsel (2)").Select
Range("J1").Select
ActiveCell.FormulaR1C1 = "Sverweis"
Range("J2").Select
Sheets("Protokoll Statuswechsel").Select
Range("J2").Select
Sheets("Protokoll Statuswechsel (2)").Select
Range("J2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-8],Angebote!R2C2:R10382C12,10,0)"
Range("J2").Select
Selection.AutoFill Destination:=Range("J2:J497"), Type:=xlFillDefault
Range("J2:J497").Select
End Sub
Gruß Tom