|
Hallo Michael. :)
Auf was für eine Art Hilfe hoffst du denn?
Was das Suchen der Projektnummer in der BESTELLUNGEN-Spalte anbelangt, kann man das z.b. mit der <RangeObject>.Find()-Methode angehen. Damit erhält man - wenn was gefunden wurde - eine Referenz auf die Zelle mit der gesuchten Projektnummer. Anhand dieser zelle kann man anschließend aus den relevanten Spalten - gleichen Zeile - die gewünschten Daten in die MATERIAL-Tabelle kopieren.
Das Prüfen, ob bereits Daten kopiert wurden, kann man mit der selben Methode realisieren.
Um die nächst freie Zeile zu ermitteln kann man unterschiedliche Wege gehen.
Zum einen kann man <RangeObject>.End(xlDown) nutzen, <RangeObject>.SpecialCells(xlCellTypeLastCell), oder man nimmt die letzte Zeile aus <RangeObject>.UsedRange. Egal welche Variante man wählt, jede liefert eine Referenz auf eine Zelle/Bereich. Von dieser kann man die Zeile abrufen und zählt einfach eins weiter, dann hat man die nächst freie Zeile. Bei der zuerst genannten Variante gibt es ggf. noch eine kleine Besonderheit zu bedenken, aber soviel erst mal als Überblick.
Gruß
|