Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1712to1716
1712to1716
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Akt. Datum und Uhrzeit am gedruckten Dokument

Forumthread: Akt. Datum und Uhrzeit am gedruckten Dokument

Akt. Datum und Uhrzeit am gedruckten Dokument
24.09.2019 10:26:21
Helmut
Guten Morgen VBA‘ler
Ich habe eine Excel Datei wo beim drucken des Dokument's in der Kopfzeile das aktuelle Datum und Uhrzeit hinzugefügt werden soll.
Mit folgenden Code funktioniert es aber nur teilweise:
  • 
Private Sub Druck()
'Druckt den Bereich Druckbereich im TB Drucken
Sheets("Drucken").Select                    'Wählt die Tabelle2 aus
Range("a1:m25").Select                      'Definiert den Druckbereich
Selection.PrintOut copies:=1, collate:=True 'Druckoptionen
With ActiveSheet.PageSetup                  'Gestaltet den Kopf- und Fußbereich für den  _
Ausdruck
.Orientation = xlLandscape
.PrintArea = ActiveSheet.UsedRange.Address
.LeftMargin = Application.InchesToPoints(0.1)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(2)
.BottomMargin = Application.InchesToPoints(2)
.LeftHeader = "Bearbeiter: " & Application.UserName
.CenterHeader = "Mängelliste"
.RightHeader = "Gedruckt: " & Format(Now, "DD.MMMM.YYYY HH:MM:SS")
.LeftFooter = "Nur für internen Gebrauch"
.CenterFooter = ""
.RightFooter = "Seite &P von &N"
End With
Sheets("Drucken").Select                    'Wählt TB Drucken aus
Range("a2:n25").Select                      'Markiert den Bereich a2:n20 in TB Drucken
Selection.Clear                             'Löscht den markierten Bereich
End Sub


    • es wird mir das Datum und die Uhrzeit der letzten Speicherung in der Kopfzeile hinzugefügt.
    Ist es nicht möglich, das aktuellste Datum und Uhrzeit (Jetztzeit-Gegenwart) in die Kopfzeile einzufügen?
    Besten Dank im Voraus, lg Helmut
    Anzeige

    14
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    24.09.2019 10:48:53
    Daniel
    Hi
    du müsstest die Kürzel für das automatische Einfügen von Datum und Zeit verwenden, dh &D und &T (analog den automatischen Seitenzahlen &P und &N)
    wenn du so wie hier Datum und Zeit als festen Text angibst, dann müsste das Makro vor jedem Ausdruck neu gestartet werten.
    Das passiert automatisch, wenn du den Code dafür ins Eventmakro "BeforePrint" des Moduls "DieseArbeitsmappe" schreibst.
    Gruß Daniel
    Anzeige
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    24.09.2019 11:43:09
    Helmut
    Servus Daniel
    Besten Dank vorerst für deine Hilfe.
    Wie kann ich jedoch jetzt in „diese Arbeitsmappe“ das Modul „Druck“ ansprechen?
    Leider habe ich nicht so viel Erfahrung in VBA
    Lg Helmut
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    24.09.2019 12:02:37
    Daniel
    HI
    1. "DieseArbeitsmappe" im Projektexplorer-Baum (Fenster links oben) doppelt anklicken
    2. in der linken Combobox über dem Codefenster "Workbook" auswählen
    3. in der rechen Combobox erscheinen jetzt alle für "Workbook" möglichen Eventmakros. Hier wählst du "BeforePrint" aus
    4. im Codefenster wird jetzt das BeforePrint-Makro mit Start- und Endzeile eingefügt.
    diese beiden Zeilen lässt du unverändert und trägst dazwischen den Code zum aktualisieren der Kopf- und Fusszeile ein
    dieses Makro wird immer automatisch ausgeführt, wenn du Drucken willst bzw die Druckvorschau aktivierst.
    Gruß Daniel
    Anzeige
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    24.09.2019 13:19:13
    Helmut
    Servus Daniel
    Die Reihenfolge ist mir schon klar die du mir hier beschrieben hast.
    Bei meiner Datei ist es nur so, dass der Code den ich ganz am Anfang angeführt habe durch den Befehl „Call Druck“ ausgeführt wird.
    Nun weiß ich nicht, wie bzw. was ich außer den von mir angeführten Code noch im Modul „Arbeitsmappe“ einfügen soll damit der Code ausgeführt wird.
    Besten Dank im Voraus, lg Helmut
    Anzeige
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    24.09.2019 13:27:08
    Daniel
    Alles was direkt vor dem Ausdruck nochmal aktualisiert werden muss, bspw die Uhrzeit in der Fusszeile.
    Was sich nicht ändert, kann im ursprünglichen Makro bleiben.
    Gruß Daniek
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    24.09.2019 14:17:26
    Helmut
    mein Versuch in "diese Arbeitsmappe"
  • 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.RightHeader = "Gedruckt:  & D & t"
End With
End Sub

    • ist gleich " Laufzeitfehler...." :(
    Anzeige
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    24.09.2019 14:17:27
    Helmut
    mein Versuch in "diese Arbeitsmappe"
  • 
Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.RightHeader = "Gedruckt:  & D & t"
End With
End Sub

    • ist gleich " Laufzeitfehler...." :(
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    24.09.2019 14:29:21
    Daniel
    hi
    läuft bei mir ohne Fehler durch.
    wenn du die Platzhalter (allerdings OHNE Leerzeichen dazwischen, bitte mal den Recorder benutzen!)
    verwendest, brauchst du diesen Code nicht im BeforePrint-Makro.
    dann reicht es, wenn du das einmalig bzw bei Bedarf so einrichtest und dann wird hier immer das aktuelle Datum und Uhrzeit eingesetzt.
    das BeforePrint-Makro brauchst du nur, wenn du hier nicht die Platzhalter, sondern festen Text verwenden willst (ggf weil dir die Formatierung nicht passt) und dieser immer direkt vor dem Druck aktualisiert werden muss.
    Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.RightHeader = "Gedruckt:  " & Format(Now, "YYYY-MM-DD hh:mm")
End With
End Sub
    Gruß Daniel
    Anzeige
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    24.09.2019 14:44:33
    Helmut
    Servus Daniel
    Ich gebe es auf! Das ist mir zu hoch, trotzdem recht herzlichen Dank für deine Mühe;)
    LG Helmut
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    25.09.2019 11:16:19
    Helmut
    Servus Daniel
    Das war gestern einfach ein bisschen viel. Ich möchte hiermit einen 2. Versuch starten. Ich habe genau das gemacht was du gesagt hast, doch ich bekomme immer dieselbe Fehlermeldung. Siehe Anhang
    Lg Helmut
    Userbild
    Anzeige
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    25.09.2019 13:07:32
    Daniel
    Hi
    wenn ich genau das mache was ich sage, bekomme ich keine Fehlermeldung, der Code läuft fehlerfrei durch.
    Gruß Daniel
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    26.09.2019 07:04:23
    Helmut
    Guten Morgen Daniel, guten Morgen Forum
    Ich möchte hiermit eventuell das ganze Forum um Hilfe bitten. Unten habe ich jetzt noch einmal den Code gepostet, den ich in einen Modul habe: 
    Private Sub Druck()
'Druckt den Bereich Druckbereich im TB Drucken
Sheets("Drucken").Select                    'Wählt die Tabelle2 aus
Range("a1:m25").Select                      'Definiert den Druckbereich
Selection.PrintOut copies:=1, collate:=True 'Druckoptionen
With ActiveSheet.PageSetup                  'Gestaltet den Kopf- und Fußbereich für den  _
Ausdruck
.Orientation = xlLandscape
.PrintArea = ActiveSheet.UsedRange.Address
.LeftMargin = Application.InchesToPoints(0.1)
.RightMargin = Application.InchesToPoints(0.5)
.TopMargin = Application.InchesToPoints(2)
.BottomMargin = Application.InchesToPoints(2)
.LeftHeader = "Bearbeiter: " & Application.UserName
.CenterHeader = "Mängelliste"
.RightHeader = "Gedruckt: " & Format(Now, "dd.mm.yyyy, hh:mm")
.LeftFooter = "Nur für internen Gebrauch"
.CenterFooter = "Made by " & "Beranek Helmut " & " 2017"
.RightFooter = "Seite &P von &N"
End With
Sheets("Drucken").Select                    'Wählt TB Drucken aus
Range("a2:n25").Select                      'Markiert den Bereich a2:n20 in TB Drucken
Selection.Clear                             'Löscht den markierten Bereich
End Sub
    Hier habe ich den Code, der aktuell in „diese Arbeitsmappe“ eingefügt ist: 
    Option Explicit
Private Sub Workbook_Open()
ActiveSheet.Unprotect Password:="1234"
With ThisWorkbook.Worksheets("Mängelliste") 'hebt Filterung des SpeziFi auf
If .FilterMode Then .ShowAllData
End With
'Worksheets("Mängelliste").Activate
Zeitmakro        'mdl_Zeit)#
'Application.Visible = False      'Blendet "Mängelliste" aus und zeigt nur UF Portier!!!!
Portier.Show
'Range("P9:p3008").Select         'Selektiert Spalte "P" und löscht Einträge
'Selection.ClearContents
Worksheets("Mängelliste").Activate
Range("C9").Select               'geht zu letzter beschriebener Zelle in Spalte "C"
Selection.End(xlDown).Select
'Filterung trotz Blattschutz möglich
ActiveSheet.Protect userinterfaceonly:=True, Password:="1234"
ActiveSheet.EnableOutlining = True  'für Gliederung
ActiveSheet.EnableAutoFilter = True 'für Autofilter
End Sub
    Nun lieber Daniel möchte ich dich bitten, die paar Codezeilen die du mir zur Verfügung gestellt hast, in „diese Arbeitsmappe“ einzufügen. Ich habe es mit allen möglichen Variationen probiert, es funktioniert nicht!
    Besten Dank im Voraus, lg Helmut
    Anzeige
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    26.09.2019 07:43:17
    Daniel
    Lies dir deinen ersten Code nochmal Zeile für Zeile von oben nach unten durch.
    Überlege dir, was jeder einzelne Programmschritt bewirkt
    Achte speziell auf die Reihenfolge der einzelnen Programmschritte, denn ein Programmschritt wird immer erst dann ausgeführt, wenn der davorliegende vollständig ausgeführt wurde.
    Vielleicht fällt dir dann selber auf, warum es nicht funktioniert und was du ändern musst, damit es funktioniert.
    Dir ist ja auch aufgefallen, dass du immer das Datum und die Uhrzeit des letzten Drucks siehst und nicht des aktuellen.
    Dieser Hinweis in Verbindung mit der Reihenfolge der einzelnen Befehle sollte für dich der Schlüssel zur Lösung des Problems sein.
    Gruß Daniel
    Anzeige
    AW: Akt. Datum und Uhrzeit am gedruckten Dokument
    26.09.2019 08:43:30
    Helmut
    Guten Morgen Daniel
    Danke für das Öffnen der Augen! Ich habe genau 2 Zeilen im Code verschoben und siehe da… ;)
    Nochmals recht herzlichen Dank für deine Mithilfe.
    Das Leben kann so einfach sein
    LG Helmut
    ;

    Forumthreads zu verwandten Themen

    Felder mit Datum und Uhrzeit vergleichen?
    Lauren

    Hallo zusammen,
    neues Thema neues Glück :)
    Nachdem mir bei meinem letzten Projekt tatkräftig geholfen wurde und ich auch das Projekt erfolgreich beenden konnte hier eine neue Problematik an der ich hängengeblieben bin.
    Es sind folgende Saplten vorhanden
    Spalte A = Datumanfang in...
    16.09.2008 16:24:00
    Thread-ID: 1010159
    6 Beiträge
    VBA heutiges Datum finden und Inhalt der Zelle prü
    NeptunesChild

    Hallo Leutz,
    ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
    06.11.2008 15:38:08
    Thread-ID: 1022323
    3 Beiträge
    Aktuelles Datum und aktuelle Uhrzeit
    Herbert

    Hallo Experten,
    ich möchte gern in Zelle A1 das aktuelle Datum und die aktuelle Uhrzeit ausgegeben habe. So soll es aussehen: "20.11.2008 11:40:04".
    Bin als Laie schon ziemlich überfordert und für jede Hilfe dankbar.
    Gruß Herbert
    20.11.2008 11:38:00
    Thread-ID: 1026354
    2 Beiträge
    Datum und Uhrzeit mit einem Tastendruck
    P.

    Hallo.
    ich möchte eine Art Zeiterfassung einrichten. Hierbei soll mit einem Tastendruck Datum und Uhrzeit in einer Zelle erscheinen. Das für Start, Pausenanfang, Pauseneendeund Ende. Anschließend will ich die verbrauchte Zeit ausrechnen.
    Kann mir jemand helfen? Im Archiv habe ich nicht...
    06.12.2008 13:05:21
    Thread-ID: 1030655
    13 Beiträge
    Verketten von Datum und Uhrzeit
    Datum

    Hallo Zusammen,
    ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
    Gruß Rafi
    16.12.2008 14:09:00
    Thread-ID: 1033272
    5 Beiträge
    DATUM UND UHRZEIT
    Lutz

    Hallo zusammen,
    hab mich für folgende Lösung entschieden :
    '********************************************************************************
    '*...
    27.01.2009 21:18:30
    Thread-ID: 1044394
    4 Beiträge
    Anzeige
    DATUM UND UHRZEIT
    eric

    Hallo,
    man kann das auch aufwendiger in der unserform mit einer abfrage machen, die idee mit dem modul funktioniert sicher.
    eric
    27.01.2009 21:37:18
    Thread-ID: 1044401
    2 Beiträge
    Datum und Uhrzeit aus Textbox passend in Tabelle e
    Karsten

    Hallo
    Ich lese mit einer Userform ein Datum und eine Uhrzeit aus.
    Wenn ich die wieder in die gleich Zelle schreiben lasse, werden sie nicht rechtsbündig sondern linksbündig gespeichert und nicht richtig "benutzt.
    Wenn ich in der Zelle nur Enter drücke, wird das Datum und auch die Uh...
    06.04.2009 19:01:58
    Thread-ID: 1067159
    3 Beiträge
    Datum und Zeit in Zelle einfügen
    chris

    Schönen Christtag!
    Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
    Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
    Für Hil...
    25.12.2009 13:37:43
    Thread-ID: 1125900
    8 Beiträge
    Datum und Zeit in Zelle einfügen
    chris

    Schönen Christtag!
    Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
    Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
    Für Hil...
    25.12.2009 13:38:19
    Thread-ID: 1125901
    2 Beiträge
    Anzeige
    vor Einfügen einer csv-Datei Dateidatum prüfen | Herbers Excel-Forum
    Jürgen
    Hallo Excel - Forum,
    habe ein Problem - schätzungsweise ein kleines - was ich durch Recherche nicht lösen konnte. Vielleicht könnt Ihr mir hier helfen:
    Ich habe eine offene Arbeitsmappe in die ich eine csv-Datei einlesen möchte. Das ist soweit kein Problem. Ich möchte aber gerne, dass vor d...
    14.01.2010 13:51:17
    Thread-ID: 1129903
    3 Beiträge
    Kniffliege Berechnung mit Datum und Uhrzeit | Herbers Excel-Forum
    Sabine
    Hallo zusammen,
    ich benötige die exakte Anzahl an Tagen zwischen zwei Datumsangaben.
    Das Knifflige dabei: bestimmte Tage (z.B. Feiertage) sollen als ganze Tage herausgerechnet werden.
    Beispiel:
    Beginndatum in Zelle A1: 05.01.2010 10:00:00
    Endedatum in Zelle B1: 07.01.2010 02:0...
    31.01.2010 18:24:48
    Thread-ID: 1134647
    10 Beiträge
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige
    Anzeige

    Infobox / Tutorial

    Aktuelles Datum und Uhrzeit im gedruckten Excel-Dokument

    Schritt-für-Schritt-Anleitung

    Um das aktuelle Datum und die Uhrzeit in die Kopfzeile eines gedruckten Excel-Dokuments einzufügen, gehe wie folgt vor:

    1. Öffne den VBA-Editor:

      • Drücke ALT + F11, um den VBA-Editor zu öffnen.

    2. Füge den folgenden Code in das Modul „DieseArbeitsmappe“ ein:

      Private Sub Workbook_BeforePrint(Cancel As Boolean)
   With ActiveSheet.PageSetup
       .RightHeader = "Gedruckt: " & Format(Now, "dd.mm.yyyy, hh:mm")
   End With
End Sub
      • Dieser Code aktualisiert die Kopfzeile mit dem aktuellen Datum und der Uhrzeit, bevor das Dokument gedruckt wird.

    3. Speichere deine Änderungen und schließe den VBA-Editor.

    4. Teste den Druck:

      • Drucke das Dokument und überprüfe, ob das aktuelle Datum und die Uhrzeit korrekt angezeigt werden.

    Häufige Fehler und Lösungen

    • Fehler: "Laufzeitfehler..."

      • Lösung: Stelle sicher, dass du die richtigen Platzhalter verwendest und keine Leerzeichen zwischen den Platzhaltern und dem Text stehen. Zum Beispiel: &D &T.

    • Fehler: Das Datum wird nicht aktualisiert.

      • Lösung: Stelle sicher, dass der Code im „BeforePrint“-Event korrekt eingetragen ist und dass du diesen nicht im Hauptdruckmakro hast.

    Alternative Methoden

    1. Verwendung von Kopfzeilen-Platzhaltern:

      • Du kannst die Platzhalter &D für das Datum und &T für die Uhrzeit direkt in der Kopfzeile verwenden. Diese aktualisieren sich automatisch beim Drucken.

    2. Excel Makro für Datum und Uhrzeit:

      • Du kannst ein Makro erstellen, das das Datum und die Uhrzeit in die Fußzeile einfügt, indem du den folgenden Code verwendest: 
        Sub DatumUhrzeitEinfügen()
With ActiveSheet.PageSetup
   .LeftFooter = "Letzte Änderung: " & Format(Now, "dd.mm.yyyy, hh:mm")
End With
End Sub

    Praktische Beispiele

    • Um das aktuelle Datum und die Uhrzeit in die Fußzeile einzufügen, könntest du den folgenden Code verwenden:

      Private Sub Workbook_BeforePrint(Cancel As Boolean)
   With ActiveSheet.PageSetup
       .LeftFooter = "Aktuelles Datum: " & Format(Now, "dd.mm.yyyy")
       .CenterFooter = "Aktuelle Uhrzeit: " & Format(Now, "hh:mm")
   End With
End Sub

    • Um das Datum in ein PDF einzufügen, kannst du einfach die gleiche Formatierung nutzen, wenn du das Dokument als PDF speicherst.

    Tipps für Profis

    • Automatisierung: Du kannst den Druckprozess automatisieren, indem du das Datum und die Uhrzeit bei jedem Öffnen der Arbeitsmappe einfügst.

    • VBA für komplexe Anforderungen: Nutze VBA, um komplexere Datums- und Zeitformate zu erstellen, die für Berichte oder Dokumentationen benötigt werden.

    • Verwendung von UserForm: Du könntest auch eine UserForm erstellen, um die Eingabe von Datum und Uhrzeit zu vereinfachen.

    FAQ: Häufige Fragen

    1. Wie kann ich das Datum und die Uhrzeit in eine PDF-Datei einfügen? Du kannst dasselbe Datum- und Uhrzeitformat im Druckbereich verwenden, bevor du das Dokument als PDF speicherst.

    2. Wie kann ich die Uhrzeit am? verwenden? Du kannst das Format in VBA anpassen, um die Uhrzeit im gewünschten Format anzuzeigen, z.B. hh:mm AM/PM.

    3. Funktioniert dies in allen Excel-Versionen? Ja, die meisten der oben genannten Methoden funktionieren in Excel 2010 und neuer. Achte darauf, dass deine VBA-Einstellungen korrekt konfiguriert sind.

    Beliebteste Forumthreads (12 Monate)

    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige