Suche dringend ein Makro für mein Rechnungsprogram
11.12.2007 14:14:19
roland
Ich bin nicht der große VBA kenner.Darum wende ich mich vertrauensvoll an die Expertenrunde.
Ich habe ein Rechnungsprogramm erstellt und möchte mir dazu eine Producktpalette anlegen, um nicht ständig die Producktbeschreibung und Preise von Hand einzugeben.
Also die Producktpalette hat 3 Spalten :...Art. Nr. (H) / Producktbezeichnung (I), / Preis (L) / Ca. 100 Produckte untereinander. Durch doppelcklick ( oder Befehlschaltfläche) sollen sich die Produckte nacheinander in das Rechnungsformular einfügen.
Dafür habe ich mir ein Makro aufgezeichnet, was durch klick auf eine Befehlsschaltfläche die entsprechenden 3 Zellen selektiert, Kopiert und in die Zelle B4 einfügt.
Hier das Makro
Range("H4:L4").Select
Selection.Copy
Range("B4").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Das funktioniert auch. Jetzt sollte das Makro erweitert werden.
Es soll erkennen,welche Zellen bereits belegt sind und die nächste freie "B"Zelle unterhalb selektieren . ( Z.B. als nächstes B5 ..danach B6...u.s.w.)
Ich hoffe, das ich mich einigermaßen verständlich machen konnte.
Bis bald... rolaket