Winword 7.0

Excel bietet die sehr nützliche Funktion des automatischen Ausfüllens von Tabellenbereichen. Die Tabellen von Word können mit diesem Service leider nicht aufwarten. Mit dem abgebildeten Makro können Sie Word allerdings dazu bewegen, die gesamte erste Spalte einer Tabelle mit einem fortlaufenden Datum aufzufüllen. Sie bestimmen lediglich das Startdatum und den Rhythmus der Tage, in denen das Datum ausgegeben werden soll. Den Rest erledigt Word für Sie. Das Makro funktioniert allerdings nur, wenn sich der Cursor in einer Zelle der Tabelle befindet. Steht er im normalen Text, erhalten Sie einen entsprechenden Hinweis. Um das Makro einzugeben, wählen Sie in Word aus dem Menü »Extras« den Befehl »Makro« und taufen es unter »Makroname« etwa auf »Datumausfüllen«. Nach einem Klick auf die Schaltfläche »Erstellen« geben Sie den Makrotext ein. Zum Testen des Makros legen Sie in Word mit Hilfe der Schaltfläche »Tabelle einfügen« eine Tabelle in der gewünschten Größe an und setzen den Cursor in eines der Felder. Über »Extras | Makro« starten Sie das Makro mit einem Doppelklick auf seinen Namenseintrag. Das Makro springt automatisch in die erste Zelle der Tabelle und fragt Sie nach dem Datum, mit dem es beginnen soll. Nachdem Sie die Abfrage beantwortet haaben, erkundigt sich das Makro, mit welchem Abstand die Tage gezählt werden sollen und füllt danach die gesamte erste Spalte mit den so festgelegten Daten.
Makrolisting Datumausfüllen
Sub MAIN
If AuswInfo(15) = - 1 Then MsgBox "Damit die Spalte ausgefüllt werden kann, muß sich Y
die Eingabemarke in der Tabelle befinden." : Goto Ende
BeginnTabellenzeile
BeginnSpalte
Anz = AuswInfo(15)
AusgangsDatum$ = InputBox$("Geben Sie bitte das Anfangsdatum ein:", "", "16.11.96")
Einfügen AusgangsDatum$
Datum$ = InputBox$("Geben Sie Anzahl der Tage ein, die jeweils hinzugezählt werden Y
sollen:", "", "30")
For n = 1 To Anz - 1
TabelleZeileMarkieren
DatumText$ = Markierung$()
NeuesDatum$ = Date$(DatumWert(DatumText$) + Val(Datum$))
ZeileUnten 1
Einfügen NeuesDatum$
Next n
Ende:
End Sub