VBA Zeitstempel

Am besten gar nicht, das macht unter div. Umständen viele Probleme.
<br />Private Sub Workbook_Open()
Range("D" & Rows.Count).End(xlUp).Select
ActiveWindow.Zoom = 111
End Sub
<br />

<br />Kannst Du in das Codemodul "DieseArbeitsmappe" kopieren.
<br />Andreas.
<br />

Private Sub Worksheet_Change(ByVal Target As Range)
Set Target = Intersect(Target, Range("D"))
If Target Is Nothing Then Exit Sub
Target.Offset(0, 1).Value = Now
End Sub

<br />

Super danke!
<br />Zweite Frage wäre wie programmiere ich die Excelliste, dass sie mich bei jedem Öffnen automatisch bei 111% Zoom an die letzte gefüllte Zeile der Spalte D bringt?
<br />

Hallo Chrolo,

über VBA ist das möglich:
Zeitstempel in Dokument einfügen über VBA-Script

Wir freuen uns auf deine Rückmeldung!

Beste Grüße, dein Microsoft-Team

Hallo xferryx,

seit wann gibt es blöde Fragen? Und ja es sieht schon etwas nach VBA aus. Doch so wie es dort steht kann ich mir nicht vorstellen, dass überhaupt das erste Dokument geöffnet wurde. Es fehlt nämlich der Anfang und das Ende der Prozedur (Sub und End Sub).

Kopiere dir mal diesen Code in ein Modul, ändere aber nur die Pfadangabe und führe dann den Code im Einzelschrittmodus (F8) aus. Dann kannst du nachvollziehen, was wann gemacht wird. Funktioniert alles, dann baust du noch den Teil zum Öffnen und Drucken
des ersten Dokuments ein.

Option ExplicitSub test()

   Dim wdApp As Object, Pfad As String 'Variablen deklarieren

   

   On Error GoTo WordStarten

   'Word übernehmen, wenn bereits geöffnet

   Set wdApp = GetObject(, "Word.Application")

   GoTo Weiter

   

WordStarten:

   Set wdApp = CreateObject("Word.Application")

   

Weiter:

   On Error GoTo Fehler

   wdApp.Application.Visible = True

   

   'hier den Teil zum Drucken des Dokuments einbauen

   'achte darauf, dass es hier wdApp heißt

   

   'ab hier für Zeitstempel

   Pfad = "C:\...\test.docx"

   wdApp.Application.Documents.Open Pfad   With Selection

      .EndKey wdStory   'zum Ende des Dokuments

      .TypeText (Now)   'Datum + Zeit dd.mm.jjjj hh:mm:ss

      .TypeParagraph    'nächste Zeile einfügen

   End With

   'Dokument schließen und Änderungen speichern

   wdApp.ActiveDocument.Close savechanges:=True

   'Word schließen, wenn kein Dokument mehr geöffnet ist

   If wdApp.Documents.Count = 0 Then wdApp.Application.Quit

Fehler:

   Set wdApp = Nothing

End Sub

Beste Grüße

Mike