Office: FormFields "Datum"

Nabend Gerhard

Ich habe nun deinen Code Testen können, habe auch das Datumformat umgestellt.

BlattNr:
In der ersten Seite des Dokumentes klappt es super, aber ab der zweiten Seite bis zur letzten Seite Wirt mir die BalltNr. "1" angezeigt.
Die Seiten sollten fortlaufen nummeriert werden (1,2,3,4,5,6,7,8,9,10).

Monat/Jahr:
Das Datum bzw. Monat/Jahr im „FormFields (_M_J)“ in der ersten Seite funktioniert Super.
Wenn ich runter Scrolle zur 5 Seite findet dort kein Wechsel des Monats statt.

In deinem Code beziehst du das RafDat aus dem ersten Datum FormFileds(Date1).
Ist es möglich das RefDat aus der jeweiligen Seite zu beziehen siehe Blaumarkierte FormFields,
umso immer den aktuellen Monat in den FormFields(_M_J) der jeweiligen Seite zu erhalten.

Gruß Charly

 

Hallo charly,

bei der Blattnummer kann ich dir nicht folgen. Bei mir beginnt diese Nummer auf der ersten Seite mit 1 und endet auf der letzten mit 10. Das ist ja auch eine ganz einfache Schleife die von j = 1 bis zur Anzahl von Seiten läuft, in diesem Fall halt 10.

Bei Monat / Jahr hab ich allerdings wieder mal nicht aufgepasst. Das geänderte Makro bezieht jetzt wie gewünscht das Datum für den Seitenkopf aus dem Datumsfeld der jeweils ersten Tabelle auf einer Seite.
Es dauert nun etwas länger bis es fertig ist, also Geduld. Dafür kannst du zusehen, wie sich die Seitenkopf-Felder füllen. Man kann vielleicht mittels Application.ScreenUpdating = false / true da noch was drehen, aber vorläufig gehts erst mal drum, dass es korrekt funktioniert.

Ich häng dir dein Word-Dokument noch mal an. Es sollte ja identisch mit deinem sein, aber wer weiß. Vielleicht findest du raus, warum bei dir die Blattnummer nicht funktioniert. Ich musste es zippen, weil es aktuell die erlaubte Dateigröße zum Hochladen überschreitet.
Achtung: Beim Formfield Date_2 musste der Unterstrich raus, damit die Systematik der Feldnamen stimmt.
Hier das geänderte Makro:
Code:

 

Hallo Gerhard

Habe deinen Angepassten Code ebbend getestet.
Jetzt läuft es super durch *Smilie

Habe auch den Fehler gefunden warum die FormFields(BlattNr) nicht funktionierte.

Hier mein Fehler im ersten Modul, hatte ich vorher für alle Blätter angelegt u. nicht aus kommentiert. Wurde nun korigiert.

Doc_BP.FormFields("B2_Name").Result = Doc_BP.FormFields("B1_Name").Result
Doc_BP.FormFields("B2_Zimmer").Result = Doc_BP.FormFields("B1_Zimmer").Result
Doc_BP.FormFields("B2_M_J").Result = Doc_BP.FormFields("B1_M_J").Result
Doc_BP.FormFields("B2_BlattNr").Result = Doc_BP.FormFields("B1_BlattNr").Result

Somit wurde alles ab Seite2 überschreiben mit den Werten aus Seite1.

Werde mich morgen an InputBoxen Versuchen für das Word-Dokument, aus Excel heraus, wenn ich nicht weiter komme mache ich ein neuen Beitrag auf.

Gruß Charly