Doppelte Zeilen in eine zusammenfassen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Reinhard,
danke für deine Reaktion, ich formuliere dass ganze mal verständlicher:
Ich habe eine Ausgangsdatei.xls, die ich täglich überschreibe. In der datei sind Zeilen mit Kundennamen und jeweils einer Artikelnummer. Es kann sein, dass ein kunde mehrere zeilen hat, wobei der name immer gleich ist, das problem ist dass für jede neue Artikelnummer eines Kunden eine neue zeile angelegt wird.
Ich möchte nun ein Makro oder eine Formel, die das sheet durchsucht nach doppelten namen. Die artikelnummern dieser doppelten einträge sollen in die erste zeile des Kunden kopiert werden. Am besten einfach an das ende in eine neue zelle.
Hat also ein Kunde 3 Artikelnummern und normalerweise einen Range von A1 : B3, dann soll nachher nur noch die Zeile A übrigbleiben. Da aber noch 2 Einträge (die Artikelnummern des 2. + 3. eintrags) hinzugefügt werden, ist der neue range dann A1:D1.
Die überflüssigen (doppelten) zeilen sollen gelöscht werden, damit die nächsten daten deranderen kunden nach oben rutschen. (es darf keine leeren zeilen geben)
Ich hoffe es war verständlich. Danke für Deine Mühe!
Tobi

Hallo Tobi,
erst mal Danke für das Lob - ist aber zu viel. Ein Mangel ist dir sicher auch aufgefallen: Das Makro kümmert sich nicht um Formate, es werden nur Werte übertragen. (Danach sehen z. B. Datumse und Uhrzeiten nicht mehr so aus wie gewohnt und müssen neu formatiert werden.)
"Wie kann ich den Code einsehen?"
Der eigentliche Code ist nicht dem Start-Button zugeordnet, er steht im VBA-Editor in Modul1. Du kannst das Makro ansehen oder bearbeiten mit
Extras - Makro - Makros - "Verdicht" auswählen - Bearbeiten
Wenn du im Projekt-Explorer (meist links im VBA-Editor) mit der rechten Maustaste auf "Tabelle 1 (Ini)" klickst, kannst du dir auch den Code zum Button anzeigen Er tut nicht mehr als "Verdicht" aufzurufen. Hier könntest du das Öffnen der csv-Datei ergänzen und nach dem Verdichten die Weiterverarbeitung (nächster Absatz) vornehmen.
"Gibt es eine Möglichkeit die Artikelnummer sofort mit der Menge zu verknüpfen"
Ja, gibt es sicher, sowohl per Excelformel als auch mit VBA. Ich würde das aber vom Verdichten (das für jede beliebige Tabelle mit einer Schlüsselspalte funzt) trennen.
Mit Excel ginge es so:
neue Spalte B einfügen und in B2 die Formel schreiben:
= C2&"x"&D2 & WENN(ISTLEER(E2);"";" / "&E2&"x"&F2) & WENN(ISTLEER(G2);"";" / "&G2&"x"&H2) & usw.
Mit VBA (ungetestet) etwa so: (für alle Zeilen zz)

zusamm = ""
zusamm = CStr(cells(zz, 2)) & "x" & CStr(cells(zz, 3))
sp=4
while left(cells(1, sp), 7) = "Menge #"
zusamm = zusamm & " / " & CStr(cells(zz, sp)) & "x" & CStr(cells(zz, sp))
sp = sp + 2
wend

Grüße aus Kamp-Lintfort
Erich

Beliebteste Forumthreads (12 Monate)

Doppelte Zeilen in eine zusammenfassen

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

80 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Doppelte Zeilen in eine zusammenfassen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

80 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread