Re: Daten übertragen
30.04.2002 22:05:59
WernerB.
Hallo Michael,für den Fall, dass Daten ohne Artikelnummer in die Ziel-Tabelle übertragen werden sollen, muss die erste freie Zeile dafür gefunden werden. Da ich nicht wissen kann (habe keine Glaskugel), in welcher Zeile Deine Summenbildungen stattfinden, ermittle ich eben diese (Variable "laR3"). "lar1" ist die letzte Zeile mit Inhalt in der Spalte A, "laR2" ist die letzte Zeile mit Inhalt in der Spalte B. Der größere der beiden Werte wird dann in "laR3" übernommen.
In der For-Each-Schleife wird dann die erste freie Zeile gesucht; genau genommen wird nur nach der ersten Zeile gesucht, in der eine Zelle der Spalte A und die daneben liegende Zelle in der Spalte B (Offset(0,1)) leer sind.
Der zu durchsuchende Bereich wird vorher festgelegt: Range("A2:A" & laR3); wenn Deine Summenbildung z.B. in Zeile 150 stattfindet, dann also "A2:A150". Durch die die Offset-Anweisung wird die Spalte B auch mit einbezogen, so dass tatsächlich der Bereich "A2:B150" durchsucht wird. Wenn die ersten beiden nebeneinander liegenden leeren Zellen in diesem Bereich gefunden werden (frR = c.Row), wird die For-Each-Schleife abgebrochen und die Werte in dieser Zeile (Spalte A bleibt frei) eingetragen.
Ich hoffe, die Beschreibung ist verständlich; falls nicht, oder noch Fragen offen sind, so melde Dich einfach noch mal.
MfG
WernerB.