|
Hallo,
Zur Info: Der Beitrag wurde wahrscheinlich mit dem Internet Explorer von Microsoft verfasst. Bei diesem Browser wird der Inhalt nicht korrekt übermittelt. Daher kommt alles in der unleserlichen Form heraus.- Abhilfe: Nimm beim nächsten Mal den Firefox Browser von Mozilla. Dieser Browser überträgt die Angaben korrekt.
Nun zum Anliegen:
Wenn ich es richtig interpretiert habe, ist die Ausgangs-Situation folgende:
In den Spalten E und F befinden sich die Länder mit der ID:
|
ID |
Land |
|
1 |
DE |
|
1 |
GB |
|
1 |
RU |
|
2 |
DE |
|
2 |
DE |
|
3 |
GB |
|
4 |
RU |
|
4 |
GB |
Beim Ausführen des VBA-Codes wird in den Spalten I bis L folgende Ausgabe generiert:
|
1 |
DE |
GB |
RU |
|
2 |
DE |
|
|
|
3 |
GB |
|
|
|
4 |
RU |
GB |
|
Hierei wird folgender VBA-Code verwendet:
Sub Kunde()
Dim Z As Integer, S As Integer
Dim Z2 As Integer
Dim Kunde_Alt As String
Dim Land As String
Dim Gef As Boolean
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
Soweit so gut...
Erkläre bitte nochmals welches Ergebnis jetzt erwartet wird.
LG, BigBen
P.S.: Das Anliegen liest sich in dieser Form schon wesentlich besser, als wenn alles in eine Zeile geklatscht wird, oder?
|