Problem mit Macro

[elgato2000]

Hallo

anbei zwei Dateien.

1. Source.xls mit Daten.

2. Outputfile mit Macro.

Das Macro zieht Daten aus der Source.xls und trägt sie in die Outputdatei ein.

Problem: Wenn ein Kunde ( in meinem Beispiel Yvonne Hell ) mehrere Artikel bestellt, bleibt die Zelle in Spalte F in der Outputdatei leider leer.

Kann mir hier jemand helfen ?

[schauan]

Hallöchen,

das ist auch korrekt.

Im Code steht

Code:

Lr = Wks.Range("K" & Wks.Rows.Count).End(xlUp).Row
For i = 2 To Lr
    .Range("J" & Rw).Value = "'" & Wks.Name
    .Range("B" & Rw).Value = Wks.Range("C" & i).Value
    .Range("F" & Rw).Value = Wks.Range("M" & i).Value
    ...
Next

Lr ermittelst Du anhand der Spalte mit dem Land. Dort sind die Einträge für die Yvonne nur bis in deren erste Zeile. Du übernimmst also nicht alle ihre Einträge. In dieser Zeile steht nun in Spalte M nix. Einträge kommen erst in der zweiten Zeile von Yvonne, aber da bist Du ja schon aus der Schleife raus.

Wenn Du Lr anhand Spalte L ermitteln würdest, kämen alle Einträge von Yvonne rüber.

[elgato2000]

Wenn Du Lr anhand Spalte L ermitteln würdest, kämen alle Einträge von Yvonne rüber.

Hallo schauan ! Danke für Deinen Tipp ! Ich bin leider im VBA nicht so fit ... wie müsste ich den Code verändern, damit Lr aus Spalte L liest ?

[schauan]

Hallöchen,

Statt "K" nimmst Du "L"