Office: Datum

Hi,
ich erstelle Vollmachten mit Serienbrief. Das Datum wird dabei immer manuell errechnet ( generell plus 2, Donnerstag plus 4 und Freitag plus 3 Tage). Kann man das aktuelle Datum plus x Tage als Makro programmieren :?:
MfG
zaehme

 

Datum berechnen per Makro

Hallo -

Neue Version ...

Siehe weiter unten (6. Mai).

 

Hi Krino,
funzt ja priml. Nur - bei mir steht das Datum meistens irgendwo im Brief, also auf keinen Fall in der Kopf- oder Fußzeile. Muss man beim Makro die Stelle anzeigen oder kann man einfach programmieren, dass immer das aktuelle Datum berechnet werden soll ???? Du siehst , ich habe von Makros gar keine Ahnung.
Vielen Dank schon mal.
Zaehme

 

Hallo Zaehme -

Dadurch wird das Makro einfacher, aber du mußt es dann manuell ausführen. Neue Version:

Code:

Sub Datum()

' Textmarke "Datum" an Cursorposition einfügen
    With ActiveDocument.Bookmarks
        .Add Range:=Selection.Range, Name:="Datum"
        .DefaultSorting = wdSortByName
        .ShowHidden = True
    End With
  
 ' Angepaßtes Datum  einfügen
Dim plus As Integer

plus = 2 'normalerweise
If Weekday(Date) = 5 Then plus = 4 'Donnerstag
If Weekday(Date) = 6 Then plus = 3 'Freitag

ActiveDocument.Bookmarks("Datum").Range.Text = DateAdd("d", plus, Date)

End Sub

So kannst Du dem Dokument das Makro beifügen: Code-Text markieren > Strg + C > Vollmacht-Dokument öffnen > Alt + F11 > falls graue Fläche: ANSICHT > PROJEKTEXPLORER und EINFÜGEN > MODUL. Cursor in die rechte große weiße Fläche setzen, dann Strg + V. Speichern und Dokument schließen.


Makros ausführen auf die umständliche Tour: EXTRAS > MAKRO > MAKROS > Makro auswählen, falls es mehrere gibt > AUSFÜHREN.

Makros ausführen auf die elegante Tour: Symbol oder Tastenkombination.

==== Wenn Du das Makro über einen Symbolklick ausführen möchtest, diese einmaligen Vorbereitungen treffen ====

EXTRAS > ANPASSEN > BEFEHLE > im linken Scroll-Fensterchen MAKROS markieren > bei SPEICHERN IN: Deinen Dokumentnamen wählen > im rechten Scroll-Fensterchen Dein Makro suchen und anklicken > linke Maustaste festhalten und das Ganze nach oben schieben, wo die Symbole sind > loslassen. Dann steht da erst mal eine längere Schaltfläche mit dem Namen des Makros. Darauf rechtsklicken, STANDARD wählen. Nochmal rechtsklicken auf das jetzt kleiner gewordene Symbol, SCHALTFLÄCHENSYMBOL ÄNDERN und ein passendes aussuchen. ANPASSEN-Fenster schließen.

==== Wenn Du das Makro über eine Tastenkombination ausführen möchtest, diese einmaligen Vorbereitungen treffen ====

EXTRAS > ANPASSEN > BEFEHLE > TASTATUR... im linken Scroll-Fensterchen MAKROS markieren > bei SPEICHERN IN: Deinen Dokumentnamen wählen > im rechten Scroll-Fensterchen Dein Makro suchen und anklicken > eine Tastenkombination ausdenken und eingeben > ZUORDNEN > SCHLIESSEN > ANPASSEN-Fenster schließen.

============ BENUTZUNG DES MAKROS ===============

Du setzt den Cursor dorthin, wo das Datum stehen soll, und führst das Makro aus.

Zur Probe kannst Du Dir meinen neuen Upload downloaden. Setze den Cursor an eine beliebige Stelle und drücke Strg + Shift + D.

 

Hi Krino,
hab Dein Makro ausprobiert. Funzt.

So sieht es bei mir aus, nach Ausführen des Makros:

Aktuelles Datumeingefügt mit EINFÜGEN-DATUM und UHRZEIT-)
== >09.05.20077. Mai 2007 (deutsche Schreibweise)

bzw.

Aktuelles Datum: (eingefügt mit EINFÜGEN-DATUM und UHRZEIT-)
09.05.20077 mai 2007 (französischer Schreibweise)

Kann man jetzt noch das "alte" Datum löschen (hier: 7.Mai 2007) und ist es auch möglich das Datumformat (9. Mai 2007 bzw. 9 mai 2007) zu übernehmen??

Vielen Dank für Deine superschnelle Hilfe
Zaehme

 

Moin Zaehme -

Also bei Dir wird das Datum immer zweimal hintereinander in verschiedenen Schreibweisen eingefügt? Das ist mir vorläufig ein Rätsel. Du solltest aber nicht mit EINFÜGEN usw. das Datum einsetzen, sondern nur den Cursor positionieren und das Makro ausführen.

Generell nimmt die DATEADD-Funktion dasjenige Format, das in den Windows-Einstellungen als Kurzformat für Datumsangaben festgelegt ist und das man dort ändern kann (STARTKNOPF > EINSTELLUNGEN > SYSTEMSTEUERUNG > REGIONS- UND SPRACHOPTIONEN > ANPASSEN > DATUM.

Das heißt, wenn Du ein langes Datum haben willst, könntest Du dort das Kurzdatum gleich dem Langdatum einstellen - jedenfalls so lange, bis einer kommt, der uns beiden zeigt, wie es auch mit Makro geht. ;-)

Wenn Du bei denselben Einstellungen von Deutschland auf Frankreich wechselst und wieder Kurzdatum = Langdatum einstellst, produziert das Makro auch ein französisches Datum, z. B mercredi 9 mai 2007. Aber als Dauerzustand ist das ewige Wechseln zwischen Regionaloptionen natürlich nicht so schön (oder im Saarland doch? ;-)).

 

Tach Krino,

erstmals vielen Dank :-D .
Seltsam :cry: ist bei mir nur, das mein WORD-Programm (nach Abspeichern des Makros) dann nur im abgesicherten Modus startet :shock: , also WORD fetzt.
Leider auch in Outlook :?:
Was ist das ??????????

zaehme

 

Hallo Zaehme -

Das tut mir leid, ich kann es mir überhaupt nicht erklären. Natürlich habe ich das Makro bei mir ausprobiert und keine Komplikationen bekommen; sonst hätte ich es nicht rübergeschickt.

Aber schau doch mal in Word bei EXTRAS > MAKRO > SICHERHEIT. Vielleicht ist dort bei Dir "HOCH" eingestellt, dann würde die Ausführung abgelehnt. Bei "MITTEL" bekommst Du eine Makrowarnung und wirst gefragt, ob Du es aktivieren willst. Bei "NIEDRIG" wird es ohne Rückfrage ausgeführt.

Bist Du ganz sicher, daß es an diesem Makro liegt? Du könntest es entfernen und dann schauen, ob die Probleme weiterhin bestehen. Ich habe gerade noch einmal mein Doc vom Forum heruntergeladen; es funktioniert und macht keine Schwierigkeiten.

Mit der ersten Version gab's doch auch kein Problem?? Das würde ja eigentlich für meine Unschuld sprechen ... :-o

Du könntest auch Dein Problem-Dokument hier hochladen, dann probiere ich es aus.

Makros entfernen: Alt + F11 > dann links nach MODULen schauen, RECHTSKLICK > ENTFERNEN wählen.