Formular

[Dino L.]

Hallo an die Spezialisten, ich habe unter OpenOffice ein Prüfprotokoll erstellt und in diesem Formular wechsel ich verschiedene Unterschriften per grafischem Kontrollfeld und die dazu gehörenden Namen mit einem Listenfeld. Auch eine fortlaufende, einfache, Seriennummer funktioniert.
Ich benötige jedoch eine Seriennummer wie folgt: YYYYMMMDDxxxxxxaa. xxxxxx steht für eine Nummer und aa für Namenskürzel. Die Führungsnullen müssen erhalten bleiben.
Also Seriennummer müsste dann so aussehen (heutiges Datum): 201504011000021HM. Dann sollen die einzelnen erstellten Formulare im ODF und PDF Format gespeichert, und ohne Abfrage, gedruckt werden.

Kann man evtl. alles per Makro mit einem Menü erschlagen?

1.) erste Seriennummer eingeben (Seriennummer abspeichern)
2.) Datum eingeben (unabhängig von dem Datum in der Seriennummer)
2.) Unterschrift und gleichzeitig Namen wählen (automatisch den Namenskürzel für die Seriennummer erstellen)
3.) Anzahl der zu druckenden Formulare wählen

Ich bin für jede Hilfe dankbar!

Gruss Hartmut

[Dino L.]

Mühsam ernährt sich das Eichhörnchen.....
Bin ein kleines Stück erstmal mit dem Datum (YYYYMMDD) weiter gekommen. Die fortlaufende Seriennummer wird dahinter gehängt. Da gibt es ein kleines Problem, zwischen dem Datum und der Seriennummer besteht eine Lücke. (20150412 1234) Wie kann man dieses verhindern?

Auszug Makro:

Code: Alles auswählen

Sub NeuesDatum 
   sND = Format(Date, "yyyymmdd")
end sub   

TextFeldSchreiben("Neu", sND+sRechNr)