in VBA nachbauen
20.10.2008 20:27:00
Mike
ich bekomme es einfach nicht hin. Kann mir jemand das nachbauen? Bei mir scheitert es schon an den Variablen... *heul*
1) In Sheet1 die nächste Teilenummer aus Spalte A nehmen dann (Schritt2)
2) Diese Teilenummer in Sheet2 in Spalte A suchen
#
Wenn nicht gefunden, dann nächste Teilenummer (Schritt 1)
#
Wenn erste Übereinstimmung gefunden, dann aus Sheet2 die nebenstehenden Zellen
kopieren und neben der Teilenummer in Sheet1 einfügen (dann Schritt 3)
3) Stück (in Spalte E und Spalte G) subtrahieren
#
Wenn G-E = 0 dann nächste Teilenummer (Schritt 1)
#
Wenn G-E > 0 dann in Sheet2 die Stück (Spalte C) in den Restwert ändern und
nächste Teilenummer (Schritt 1)
#
Wenn G-E einfügen und in Spalte E den Wert E-G eintragen
Dann in Sheet 2 die gerade kopierte Zeile löschen und mit der nächsten (gerade
eingefügten) Teilenummer weitermachen (Schritt 1)
https://www.herber.de/bbs/user/56146.xls
Danke für die Hilfe
Mike