Fortlaufende Rechnungsnummer

Hallo Lisa...

ich komme bis zu dem Punkt.

Zwischen diese beiden Zeilen (die Anfang und Ende des Makros festlegen) fügst du den restlichen VBA-Code ein, z. B.:

Order = System.PrivateProfileString("C:\...\Settings.txt", _

"MacroSettings", "Order")

If Order = "" Then

Order = 1

Else

Order = Order + 1

End If

System.PrivateProfileString("C:\...\Settings.txt", "MacroSettings", _

"Order") = Order

ActiveDocument.Bookmarks("Order").Range.InsertBefore "TW" & Format(Order, "0000#")

ActiveDocument.SaveAs FileName:="C:\...\" & "TW" & Format(Order, "0000#")

Denk dran, die Pfadangaben wunschgemäß anzupassen (C:\...).

dann hört es auf und ich habe keine Ahnung mehr.. Ich habe nun einen Bekannten angerufen ggf.

kann der mir dabei helfen. Ich hätte nie gedacht das es so kompliziert sein kann..

Dir danke ich aber für deine tolle Hilfe!!!!

LG Florian

Hallo Florian,

Mittels Editor eine neue Datei erstellen Name Settings.txt und Inhalt: [MacroSettings]

Order=20120 .....das habe ich gemacht und abgespeichert.

die Datei wäre durch das Makro automatisch erstellt worden. Wenn die Nummerierung jedoch nicht mit "1" starten soll oder wenn nach vielen Tests der Startwert zurückgesetzt werden soll, ist ein Editieren der Datei notwendig .

Dann Möchte ich diese Textmarke einsetzen, gehe dazu auf Textmarke und dann will der von mir einen Namen haben?

Richtig. Du willst eine Textmarke vergeben, und zwar "Order" oder "RechnungsNr". Wähle danach "Hinzufügen".

(Ist unter "Datei | Optionen | Erweitert | Dokumentinhalt anzeigen" die Option "Textmarken anzeigen" aktiviert, erkennst du die so erstellten Textmarken im Dokument anhand eines grauen eckigen Klammernpaares oder eines quasi umgekehrt verschmolzenen Klammernpaares,
wie in den Abbildungen 8 und 9 folgenden Artikels zu sehen:
http://www.access-im-unternehmen.de/891).

Je nachdem, ob du dich für "Order" oder "RechnungsNr" als Textmarke entscheidest, musst du natürlich das Makro und die Textdatei entsprechend anpassen. Ursprünglich bezieht sich die Settings.txt auf "Order".

Viele Grüße

Lisa

Hallo Lisa,

danke für den Link, ich verstehe aber nur Bahnhof...trotzdem danke.

Gruß Florian

Hallo Mike,

vielen Dank für deine Antwort. Das Dokument ist als Vorlage und dotx Datei abgespeichert.

Die Rechnungsnummer steht in einem eigenen Textfeld.

Es gibt keinerlei Abhängigkeiten nur die letzte Zahl soll sich, wenn ich das Dokument neu öffne,

automatisch ändern... TW20120...TW20121 usw.

Danke vorab für deine Hilfe

Gruß Florian

Hallo Florian,

ich komme bis zu dem Punkt. [...]

dann hört es auf und ich habe keine Ahnung mehr.

notfalls kannst du mir die Vorlage zusenden, dann pflege ich das Makro ein.

Viele Grüße

Lisa