AW: Doppelte Zeilen in eine zusammenfassen
21.07.2005 15:39:27
Erich G.
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