Index/Match mit 2 Kriterien

Hallo liebe Forumsmitglieder,
ich habe ein kleines Problem und bekomme die Lösung einfach nicht hin.
Und zwar habe ich in Tabelle 1: Mitarbeiter (Spalte A), ihre Kunden, mit denen sie im betrachteten Zeitraum Kontakt hatten (Spalte B) und in Spalte C die Anzahl der Kontakte mit diesen Kunden.
In Tabelle 2 habe ich ebenfalls in Spalte A die Namen der Mitarbeiter in Spalte B alle Kunden dieser Mitarbeiter und in Spalte C soll die Anzahl der Kontakte mit den entsprechenden Kunden erscheinen. Bei Kunden, die in Tabelle 1 bei einem Mitarbeiter nicht auftauchen, aber in Tabelle 2 hat im betrachteten Zeitraum demnach kein Treffen stattgefunden. Ich würde gerne eine Formel bzw. gerne auch VBA-Code erstellen, die/der mir die Anzahl der Kontakte eines bestimmten Mitarbeiters auf einem bestimmten Account in Tabelle 2 überträgt.
VBA habe ich erstmal außen vorgelassen, da ich hier noch blutiger Anfänger bin. Wäre aber natürlich die schickere Lösung und soll auch der zukünftige Weg sein.
Ich habe es jetzt erstmal mit einer Excel Formel versucht.
Ich glaube auch schon die richtige gefunden zu haben undzwar "Index(Match)Kombo".
Der Match Befehl gibt mir ja immer eine Zeile zurück.
Für die Index Funktion brauche ich allerdings eine Zeilen und eine Spalten Angabe.
Die Spalte könnte man ja eigentlich auch manuell eintragen (hier Spalte 3)
Aber irgendwie bekomme ich die Syntax mit der ich die beiden Kriterien Kunde und Mitarbeiter in dieser Formel verknüpfe einfach nicht hin.
Wäre super, wenn mir jemand aus dem Forum helfen könnte.
Bei den Themen, die hier sonst so diskutiert werden, bin ich recht zuversichtlich, dass mein "Kindergartenproblem ;-)" keine Herausforderung darstellt.
Danke im Voraus
VG
https://www.herber.de/bbs/user/93401.xlsx
https://www.herber.de/bbs/user/93402.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi
da es sich bei den Ausgewerteten Daten um Zahlen handelt (Anzahl der Gespräche) könntest du hier auch einfach mit SummeWenns arbeiten.
dazu folgende Formel in Tabelle2 Zelle C2 (und dann nach unten kopieren)

=SummeWenns(Tabelle1!C:C;Tabelle1!A:A;A2;Tabelle1!B:B;B2)

als VBA-Lösung würde ich erstmal nur ein Makro schreiben, welches die Formel einträgt und durch ihren Wert ersetzt.
VBA-Fortgeschrittene setzen hier das Dictionary-Objekt ein, um erstmal die Werte aus der Tabelle1 zu lesen und dann in die Tabelle2 einzutragen.
anbei mal für beide Varianten die Makrolösung, passend für deine beiden Bespieldateien:
eintragen der Formel

Sub AnzahlGesprächeFormel()
With Workbooks("93402.xlsx").Sheets(1)
With .Range(.Cells(2, 3), .Cells(1, 1).End(xlDown).Offset(0, 2))
.FormulaR1C1 = _
"=SUMIFS([93401.xlsx]Sheet1!C3,[93401.xlsx]Sheet1!C1,RC1,[93401.xlsx]Sheet1!C2,RC2)"
.Formula = .Value
End With
End With
End Sub

Auswertung über das Dictionary

Sub AnzahlGesprächeDictionay()
Dim arr1
Dim arr2
Dim z As Long
Dim dicNameAccount As Object
Set dicNameAccount = CreateObject("Scripting.Dictionary")
arr1 = Workbooks("93401.xlsx").Sheets(1).Cells(1, 1).CurrentRegion.Value
arr2 = Workbooks("93402.xlsx").Sheets(1).Cells(1, 1).CurrentRegion.Value
For z = 2 To UBound(arr1, 1)
dicNameAccount(arr1(z, 1) & "-" & arr1(z, 2)) = _
dicNameAccount(arr1(z, 1) & "-" & arr1(z, 2)) + arr1(z, 3)
Next
For z = 2 To UBound(arr2, 1)
arr2(z, 3) = dicNameAccount(arr2(z, 1) & "-" & arr2(z, 2))
Next
Workbooks("93402.xlsx").Sheets(1).Cells(1, 1).CurrentRegion.Value = arr2
End Sub

Gruß Daniel

Sub AnzahlGesprächeFormel()'Logischer Weise eigenen Namen wählen With Workbooks("93402.xlsx").Sheets(1)'Meine Datei statt93492.xlsx nehmen und wenn für alle _ Sheets gültig .Sheets (1) weglassen With .Range(.Cells(2, 3), .Cells(1, 1).End(xlDown).Offset(0, 2))'(.Cells(2,3)) heißt _ wahrscheinlich Zeile 2 Spalte 3 (die Stelle, an der die Formel einfügt werden soll.) Den Rest der Zeile kann ich nicht nachvollziehen .FormulaR1C1 = _ 'was bewirkt das? "=SUMIFS([93401.xlsx]Sheet1!C3,[93401.xlsx]Sheet1!C1,RC1,[93401.xlsx]Sheet1!C2, _ RC2)" 'Wie kann ich die logic dieser Formel nachvollziehen? Hat keine Ähnlichkeit mehr mit der Summewenns Formel aus Excel .Formula = .Value 'was sagt das aus? End With End With End Sub

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Index/Match mit 2 Kriterien

17 Beiträge zum Forumthread Beiträge zu diesem Forumthread

317 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

17
Beiträge zum Forumthread

Beiträge zu diesem Forumthread