|
Hi zusammen,
ich habe folgendes Makro, welches eine Spalte (E) durchgeht bis sie leer ist, einzelne IDs in eine neue Spalte (I) schreibt und die dazugehörigen Länder, welche sich in Spalte (F) befinden, in eine neue Spalte (J,K,L,M..etc.) schreiben
Meine Daten sehen so aus:
ID, Land
1, DE
1, GB
1, RU
2, DE
2, DE
3, GB
4, RU
4, GB
Nach der Verarbeitung habe ich folgende Daten
ID, Land, Land, Land
1, DE, GB, RU
2, DE
3, GB
4, RU, GB
Er schreibt mir also alle Länder auf, egal wie oft sie vorkommen.
Ich möchte nun aber zusätzlich, zu den Ländern wissen, wie oft sie vorkommen.
D. h.:
ID, Land, Land, Land
1, DE(1), GB(1), RU(1)
2, DE(2)
3, GB(1)
4, RU(1), GB(1)
Könnt ihr mir eine kleine Hilfestellung geben? VIELEN DANK!
Anbei mein Script:
Public Sub Kunde()
Z = 2
z2 = 1
Do Until Cells(Z, 5).Value = ""
If Cells(Z, 5).Value <> Kunde_Alt Then
z2 = z2 + 1
Cells(z2, 9).Value = Cells(Z, 5).Value
End If
s = 10
Land = Cells(Z, 6).Value
Gef = False
Do Until Cells(z2, s).Value = ""
If Cells(z2, s).Value = Land Then
Gef = True
Exit Do
End If
s = s + 1
Loop
If Gef = False Then
Cells(z2, s).Value = Land
End If
Kunde_Alt = Cells(Z, 5).Value
Z = Z + 1
Loop
End Sub |