Makro für Rechnungserstellung

Werner · 2007-05-18T09:25:00+00:00

Hallo zusammen, zusätzlich zu meiner etwas weiter unten gestellten Frage habe ich noch ein weiteres kleines Problem. Ich suche ein Makro für meine Rechnungserstellung. -Ich habe eine Kundenmappe die im Menü einen neuen Button "Rechnung" bekommen soll. -Klickt man auf diesen Button, soll auf ein Rechnungsformular zugegriffen werden, dass immer automatisch eine neue Rechnungsnummer erstellt. - Dieses Rechnungsformular soll in die Kundenmappe als neues Tabellenblatt eingefügt werden und den Namen Rechnung_2 (dazugehörige Rechnungsnummer) bekommen. Es gibt immer mehrere Kundenmappen. Anbei ein Muster. https://www.herber.de/bbs/user/42546.xls https://www.herber.de/bbs/user/42547.xls https://www.herber.de/bbs/user/42548.xls Es währ super, wenn einer hierfür ein Makro übrig hat:-) Danke im Voraus. Gruß Werner

Hi Werner
So, ich bin fertig:
https://www.herber.de/bbs/user/42566.xls die Kundenmappe
https://www.herber.de/bbs/user/42567.xls das Rechnungsformular
erst mal die Voraussetzungen:
- im Rechnungsformular ist die Zelle K1 reserviert, und darf nicht geändert werden
- der Dateiname vom Rechnungsformular heisst "Rechnungsformular.xls" und darf auch nicht geändert werden
- beide Dateien - Kundenmappe und Rechnungsformular - müssen im selben Verzeichnis gespeichert sein
(oder in deinem Fall: alle Kundenmappen und Rechnungsformular müssen im selben Verzeichnis gespeichert sein)
- die Makros müssen IMMER aktiviert werden
jetzt der Aufbau
Kundenmappe:
anstelle einer eigenen Symbolleiste habe ich in die Kundenmappe einen Button eingebaut, weil...
...ich weiß nicht, wie deine Symbolleiste aufgebaut ist
Du kannst später den Code aus meinem Button (nur 1 Zeile) an deinen Button in der Symbolleiste übergeben und meinen Button löschen.
Aber natürlich musst du den ganzen Code aus dem Klassen- und allgemeinem Modul meiner Kundenmappe in die Module deiner Kundenmappe übertragen.
Rechnungsformular:
Auch hier musst du den ganzen Code in deine Rechnungsformular-Datei übertragen
Oder für beide Dateien gilt:
Übertrage deine Tabellenlayouts und Symbolleiste auf meine Dateien.
Handhabung:
Speicher erst mal beide Dateien in einem eigenen Verzeichnis und benenne sie so um, dass du weißt, welche Datei meine Kundenmappe und welche Datei mein Rechnungsformular ist.
Teste erst mal nur mit meinen Dateien.
Starte die Kundenmappe (mit aktivierten Makros)
Ein Klick auf den Button Rechnung öffnet die zweite Datei Rechnungsformular.xls, und trägt gleich automatisch die neueste Rechnungsnummer ein
Gib nun irgendwelche Daten in irgendwelche Zellen ein - versuch auch mal den Wert in K1 zu ändern
Klick dann auf Speichern oder schließe die Datei
In beiden Fällen wirst du nicht gefragt, ob die Datei gespeichert werden soll. Aber die Rechnung, die du gerad "erstellt" hast, wird automatisches als neues Tabellenblatt in die Kundenmappe eingefügt, in der du zuvor auf den Button Rechnung geklickt hast
das Rechnungsformular wird ungespeichert wieder geschlossen, damit es für die nächste Rechnung wieder leer zur Verfügung steht
Versuch mal, das Rechnungsformular direkt zu öffnen - also nicht über den Button sondern über Datei/Öffnen - die Datei schliesst sich mit einer Meldung automatisch wieder, weil sie nun als "eigenständige" Datei wegen der enthaltenen Makros nicht mehr eingesetzt werden sollte.
Konnte ich helfen?
Ciao
Thorsten

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

Datum	Rechnungsnummer	Kunde	Betrag
01.01.2023	001	Max Mustermann	100,00 €
01.02.2023	002	Maria Musterfrau	200,00 €

Forumthread: Makro für Rechnungserstellung

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Makro für die automatische Rechnungserstellung in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)