Hallo,
weiß jetzt nicht genau, ob ich mit meiner Frage hier richtig bin, oder doch besser in Excel, aber hab sie jetzt mal hier rein gesetzt.
Folgendes:
Ich habe ein Word-Dokument, in diesem ist eine Excel-Tabelle eingefügt. In der Excel-Tabelle wird mit der Formel =HEUTE() das aktuelle Tagesdatum angezeigt.
Die Excel-Tabelle bleibt eigentlich immer gleich, darum brauch ich sie auch nicht bei jeder Änderung des Word-Dokuments ändern. Das Problem dabei ist jetzt, daß sich das Tagesdatum in der Excel-Tabelle nur ändert, wenn ich auf die Tabelle doppelklicke.
Kennt einer ne Möglichkeit, das Datum zu ändern, ohne manuell auf die Tabelle zugreifen zu müssen?
Vielen Dank schon mal!
Kerstin
Hallo, Kerstin!
weiß jetzt nicht genau, ob ich mit meiner Frage hier richtig
bin, oder doch besser in Excel, aber hab sie jetzt mal hier
rein gesetzt.
Bist hier richtig, vor allem, weil Du die Excel-Tabelle rausschmeißen kannst:
Kennt einer ne Möglichkeit, das Datum zu ändern, ohne manuell
auf die Tabelle zugreifen zu müssen?
Unter Word: „Einfügen“-„Feld“-„Date“, dann noch das gewünschte Datumsformat und fertig. Ggf. noch einstellen, wann aktualisiert werden soll; i. d. R. wird vorm Ausdruck und beim Öffnen aktualisiert.
Gruß, Manfred
Hallo Manfred,
…weil Du die Excel-Tabelle rausschmeißen kannst:
Leider muß die Excel-Tabelle aufgrund div. Berechnungen drin bleiben.
Unter Word: „Einfügen“-„Feld“-„Date“, dann noch das gewünschte
Datumsformat und fertig. Ggf. noch einstellen, wann
aktualisiert werden soll; i. d. R. wird vorm Ausdruck und beim
Öffnen aktualisiert.
Das ist mir bekannt - nützt in dem Fall aber leider nix.
Grüße,
Kerstin
Hallo Kerstin,
ich nehme an, dass Du mit der Excel-Tabelle eine in Word eingebette Tabelle meinst und nicht eine Verknüpfung zu einem Bereich in einer EXCEL-Datei.
Falls du eine eingebettete Excel-Tabelle hast, dann sollte folgendes Makro beim Öffnen der Word-Datei automatisch gestartet werden:
Private Sub Document\_Open()
'
On Error GoTo ende
Selection.HomeKey Unit:=wdStory 'Zum Dokument-Anfang
ExcelTab = 1 ' Diesen Wert ändern, wenn bei mehreren Excel-Tabellen-Objekten
' im Dokument nicht die 1. Tabelle aktualisiert werden soll
Selection.GoTo What:=wdGoToObject, Which:=wdGoToNext, Count:=ExcelTab, Name:= \_
"Excel.Sheet.8" 'hier Zahl ändern wenn nicht EXCEL97 verwendet wird. Zahl wird
'in Statuszeile angezeigt, wenn Tabelle angeklickt wird
Selection.Find.ClearFormatting
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend 'Objekt markieren
Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary 'Objekt bearbeiten
Application.Browser.Previous 'zurück nach Word-Dokument
ende:
Selection.HomeKey Unit:=wdStory
End Sub
Du muß das Makro im VBA-Editor unter „ThisDocument“ der Datei einfügen.
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Franz,
vielen Dank schon mal.
ich nehme an, dass Du mit der Excel-Tabelle eine in Word
eingebette Tabelle meinst und nicht eine Verknüpfung zu einem
Bereich in einer EXCEL-Datei.
Richtig.
Selection.GoTo What:=wdGoToObject, Which:=wdGoToNext, Count:=ExcelTab, Name:= _
„Excel.Sheet.8“ 'hier Zahl ändern wenn nicht EXCEL97
verwendet wird. Zahl wird
'in Statuszeile angezeigt, wenn Tabelle angeklickt wird
Verwende Excel 2000, aber eine Zahl in der Statusleiste sehe ich nicht. Wird sie angezeigt, wenn die Tabelle angeklickt (einfach) oder zum bearbeiten geöffnet (doppelt angeklickt) ist?
Kerstin
Hallo Kerstin,
die verwendete Excelversion wird in der Statuszeile von Word angezeigt, wenn du einmal auf die Exceltabelle klickst. Excel2000 dürfte die Ziffer 9 haben, bin mir aber nicht ganz sicher.
Gruß
Franz
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Franz,
wenn ich die Excel-Tabelle markiere, erscheint in der Statusleiste der Text: Doppelklicken zum Bearbeiten Microsoft Excel-Arbeitsblatt
Ich habe mittlerweile sämtliche Zahlen von 1-20 ausprobiert und einen Tageswechsel simuliert, indem ich die Systemuhr verstellt habe - es funktioniert nicht. Aber wo liegt der Fehler? Könnte es evtl. am Virenschutzprogramm (Norton) liegen?
Kerstin
Hallo Kerstin,
die verwendete Excelversion wird in der Statuszeile von Word
angezeigt, wenn du einmal auf die Exceltabelle klickst.
Excel2000 dürfte die Ziffer 9 haben, bin mir aber nicht ganz
sicher.
Gruß
Franz
Hallo Franz,
wenn ich die Excel-Tabelle markiere, erscheint in der
Statusleiste der Text: Doppelklicken zum Bearbeiten Microsoft
Excel-Arbeitsblatt
Ich habe mittlerweile sämtliche Zahlen von 1-20 ausprobiert
und einen Tageswechsel simuliert, indem ich die Systemuhr
verstellt habe - es funktioniert nicht. Aber wo liegt der
Fehler? Könnte es evtl. am Virenschutzprogramm (Norton)
liegen?
Kerstin
Hallo Kerstin,
Evtl. muß du auch noch unter EXTRAS - Optionen in Word die Einstellungen für
Makrovirus-Schutz anpassen.
Ob der Norton-Antivirus besondere Einstellungen braucht weiß ich nicht.
Ansonsten zeichne das Makro einfach mal auf mit den Schritten
- + (Cursor springt an den Dokumentanfang)
- Menü Bearbeiten
- Gehezu ...
- unter Element wählst du "Objekt" unter Objektname "Microsoftexeltabelle"
- auf weiter klicken (Cursor springt vor die 1. EXCEL-Tabelle, ggf. mehrmals auf
weiter bis richtige Tabelle angezeigt wird)
- schließen
- + (markiert die Tabelle)
- Menü Bearbeiten
- Tabelle-Objekt
- bearbeiten (Tabelle wird zum bearbeiten angezeigt)
- -Taste (zurück zum Worddokument)
- +
Dann sollte das Makro etwa so aussehen:
Sub Makro5()
'
' Makro5 Makro
' Makro aufgezeichnet am ... von ...
'
Selection.HomeKey Unit:=wdStory
Selection.GoTo What:=wdGoToObject, Which:=wdGoToNext, Count:=1, Name:= \_
"Excel.Sheet.8"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary
Selection.HomeKey Unit:=wdStory
End Sub
Diese Makro veränderst du im VBA-Editor wie folgt:
Fette Texte einfügen und die überflüssige With ... End With Anweisung löschen
Sub Makro5()
'
' Makro5 Makro
' Makro aufgezeichnet am ... von ...
'
**On Error GoTo Ende**
Selection.HomeKey Unit:=wdStory
Selection.GoTo What:=wdGoToObject, Which:=wdGoToNext, Count:=1, Name:= \_
"Excel.Sheet.8"
Selection.Find.ClearFormatting
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
Selection.InlineShapes(1).OLEFormat.DoVerb VerbIndex:=wdOLEVerbPrimary
**Application.Browser.Previous
Ende:**
Selection.HomeKey Unit:=wdStory
End Sub
Dann noch den Makro-Code nach ThisDocument kopieren unter:
Private Sub Document\_Open()
.... hier Makro-Code reinkopieren
End Sub
Hoffe das hilft an dieser Stelle jetzt weiter
Franz
1 „Gefällt mir“
Vielen Dank, jetzt läuft es!