Office: (Office 2007) Makro für Kohortenanalyse

Hallo zusammen!

Ich versuche momentan aus einem Orderreport eine Kohortenanalyse zu erstellen. Für alle denen das nichts sagt zu kurzen Erläuterung: Bei einer Kohortenanalyse wird jeder Neukunde der Kohorte zugeordnet, in der er das erste mal bestellt. (Beispiel: Kunde A bestellt das erste Mal im Januar, d.h. er gehört zur Januar-Kohorte. Kunde B bestellt zum ersten Mal im Februar, er gehört zur Februar-Kohorte. Kunde A bestellt wieder im März, er gehört immer noch zur Januar-Kohorte, da er das erste Mal im Januar bestellt hat.)
Das alles hat den Zweck, später die Daten für weitere Interpretationen in einer Pivot-Tabelle in Abhängigkeit von Kohorte und Bestelldatum darzustellen.

Ich habe schon ein Makro für diesen Zweck programmiert. Allerdings bin ich mir sicher, dass dies noch deutlich optimiert werden kann, da der Durchlauf ca. eine halbe Stunde dauert (bei 17.000 Zeilen) und nicht 100% zuverlässig arbeitet (es bleiben Kunden ohne zugeordneter Kohorte)

Ich hoffe jemand kann mir dabei helfen!

Vielen Dank und viele Grüße
Mauritz


PS: Dies ist mein bisheriger Code:

Code:

Sub Kohortenzuordnung()

    Range("BY1").Select
    ActiveCell.FormulaR1C1 = "cohort"

lz = Cells(Rows.Count, 2).End(xlUp).Rows.Row

For t = 2 To lz Step 1

    If Cells(t, 76).Value = 1 Then 'In Spalte 76 ist die Prüfzelle, ob die Kunden-E-Mail-Adresse zum ersten Mal in der Datenbank auftaucht (1, falls ja, 0, falls nein)
        Cells(t, 77).Value = Cells(t, 73) & "-Kohorte" 'In Spalte 73 steht das Bestelldatum
    End If
Next t

For u = 2 To lz Step 1
    lx = u - 1
    For v = 2 To lx Step 1
    If Cells(u, 69) Like Cells(v, 69) Then
        Cells(u, 77).Value = Cells(v, 77)
    End If
    Next v
Next u
'Dieser Teil ist denke ich noch deutlich zu verbessern! Mein Gedanke war, dass das Makro wieder von oben beginnend prüft, ob die E-Mail-Adresse schon vorgekommen ist und falls dies der Fall ist, ihr die gleiche Kohorte zuordnet.
End Sub

Vielen Dank nochmal für eure Hilfe!

 

Hallo,
mit einem IF Eintrag = "" schauen ob dem Kunden schon eine Kohorte zugeordnet wurde, wenn ja fällt der gesamte Schleifendurchlauf weg.
Zudem kann man den obene IF in die untere Schleife einbauen weil t und u genau die gleichen Werte ablaufen.
Versteh ich das richtig dass das Datum nur dann kopiert werden soll wenn sich in der Spalte 76 eine "1" befindet?
Dann würde ich die zweite For-Schleife in dieses IF schreiben.

 

Hola,

mal ein Auszug aus den Forenregeln....

2.3: Crossposting - ist grundsätzlich erlaubt, aber nur wenn in dem Beitrag ein eindeutiger Verweis zu dem Thema im anderen Forum vorhanden ist.

Gruß,
steve1da