andere dürfen auch...
19.05.2007 13:58:00
Oberschlumpf
Hi Werner
Pfad zu der Vorlage
Im Makro
Rechnung()
kannst du diese Zeile anpassen:
Workbooks.Open .Path & "\Rechnungsformular.xls"
sie bedeutet:
öffne die Datei "Rechnungsformular.xls" im gleichen Ordner, in dem auch die Kundenmappe gespeichert ist
Wenn du die Datei "Rechnungsformular.xls" z Bsp im Verzeichnis "C:\Vorlagen" gespeichert hast, die Kundenmappen aber in einem anderen Verzeichnis, dann muss die Zeile so lauten:
Workbooks.Open "C:\Vorlagen\Rechnungsformular.xls"
In diesem Fall wird die Rechnungsvorlage also aus dem Verzeichnis "C:\Vorlagen" geöffnet.
Ersetze in der Zeile einfach "C:\Vorlagen" durch dein Verzeichnis (vollständiger Pfad!), in dem die Rechnungsvorlage gespeichert ist.
Bestellung
Hier für gilt eigentich, dass du das schon bestehende Makro Rechnung() komplett kopierst, als neues Makro einfügst, und den nun doppelt vorhandenen Makronamen Rechnung() z Bsp in Bestellung() umbenennst.
Natürlich musst du die oben erwähnte Zeile entsprechend anpassen, dass in diesem Makro nun die Bestellvorlage und nicht die Rechnungsvorlage geöffnet wird.
Damit aber nun auch in aufsteigender Reihenfolge die Bestellungen entsprechend mit Bestellung_1, Bestellung_2, etc in deine Kundenmappe eingepflegt werden, muss der Code, der auch in Bestellung.xls vorhanden sein muss, entsprechend angepasst werden.
Aber hier muss ich leider passen.
Dein Ersteintrag lautet:
"Ich suche ein Makro für meine Rechnungserstellung."
Das hab ich für dich erledigt.
Aber nun brauchst du das Gleiche noch mal für Bestellung, und vllt auch noch für Mahnung...usw
Wie schon erwähnt, müsste nun einiges angepasst werden - vllt auch in der Datei "Rechnungsformular.xls".
Denn ich hatte so programmiert, dass eben NUR auf Rechnung eingegangen wird, weil du Bestellung und vllt weiteres NICHT erwähnt hattest.
Vielleicht findet sich ja noch jemand, der mein funktionierendes Code-Gerüst an deine weitere Wünschen anpassen kann.
Viel Erfolg.
Ciao
Thorsten