Zählen ohne doppelte Werte

Tom · 2018-01-21T23:33:56+00:00

Hallo, ich habe in der Spalte A die Angebotsnummern mit doppelten Einträgen und in der Spalte C die Kriterien Angebot und Bestellung. Mit welchem Formel oder Code lässt sich Spalte mit berücksichtigen der Kriterie zB Angebot aus Spalte C ohne die doppelten Einträge durchzählen? Gruß und Danke 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

Hallo Tom,
wenn Du Deine SVerweis-Formel nur bis zur Zeile der letzten befüllten Zelle der Spalte B in den Tabellen "Protokoll Statuswechsel" und "Protokoll Statuswechsel (2)" erstellen willst, kannst Du nachstehenden Code verwenden:

Sub Sverweis_hinterlegen()
' Sverweis_hinterlegen Makro
Dim LZ As Long
With Sheets("Protokoll Statuswechsel")
LZ = .Cells(.Rows.Count, 2).End(xlUp).Row
.Range("J1").FormulaR1C1 = "SVerweis"
.Range("J2:J" & LZ).FormulaR1C1 = "=VLOOKUP(RC[-8],Angebote!R2C2:R10382C12,10,0)"
End With
With Sheets("Protokoll Statuswechsel (2)")
LZ = .Cells(.Rows.Count, 2).End(xlUp).Row
.Range("J1").FormulaR1C1 = "SVerweis"
.Range("J2:J" & LZ).FormulaR1C1 = "=VLOOKUP(RC[-8],Angebote!R2C2:R10382C12,10,0)"
End With
End Sub

Gruß
Robert

verwendete Formeln
Zelle	Formel	Bereich	N/A
B1	{=SUMME(1/ZÄHLENWENN(A1:A14;A1:A14))}	$B$1

Forumthread: Zählen ohne doppelte Werte

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial