Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: aktuelles Datum/Uhrzeit automatisch fix einfügen

aktuelles Datum/Uhrzeit automatisch fix einfügen
01.05.2008 18:05:00
Ferenz
Schönen 1.Maifeiertag wünsch ich Allen,
Ich habe ein Listenbereich mit der Listenfunktion erstellt.
Ich möchte nun immer wenn ich eine neue Zeile fortschreibe, dass aktuelle Datum und Uhrzeit fest eingetragen wird ohne, dass sich das Datum und Uhrzeit ändern.
Eine normale Excelfunktion fällt mir dazu nicht ein und nach der Recherche über Google bestätigt mir das auch die offiziele Microsoftwebseite (siehe Link): http://support.microsoft.com/kb/507681/de
Dafür empfiehlt Microsoft ein Makro (siehe obigen Link):

Sub Erstelldatum_einfügen()
ActiveCell.Formula = "=TODAY()"
Selection.Copy
Selection.PasteSpecial Paste:=xlValues Application.CutCopyMode = False
End Sub


Ich bin leider ein blutiger Anfänger was Makros betrifft. Wie kann ich dieses Makro in die Eingabezeile meines Listenbereiches umschreiben?
Natürlich bin ich auch für einen anderen Lösungsweg dankbar, sofern sie über die Eingabezeile automatisch funktioniert.
Gruß Ferenz

Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Einspruch !
01.05.2008 19:15:09
Matthias
Hi Daniel
Zitat:

Ich möchte nun immer wenn ich eine neue Zeile fortschreibe, dass aktuelle Datum und Uhrzeit fest eingetragen wird ohne, dass sich das Datum und Uhrzeit ändern.


also bitte vorher abfragen, ob die Zelle leer ist! ;o)
Gruß Matthias

Anzeige
AW: nachfrage zum Einspruch !
01.05.2008 19:51:26
Daniel
Hi
stimmt, bei mir wird immer das Datum der letzten Änderung protokolliert.
wie könnte man so eine Abfrage realisieren?
Gruß, Daniel

AW: nachfrage zum Einspruch !
01.05.2008 20:08:20
Gerd
Hi,
so wahrscheinlich.
IsEmpty(..) and OldValue=""
+
WORksheet_Selection_Change(..)
If not ISEmpty(..) then OldValue= .....
Gruß Gerd

Anzeige
Ja, If IsEmpty ist die Richtung oT
01.05.2008 20:19:43
Matthias

AW: Einspruch !
01.05.2008 20:08:28
Ferenz
Danke für Eure Antworten,
habe die Datei https://www.herber.de/bbs/user/52019.xls
hochgeladen und in der zweiten Tabelle so eine Beispielliste erstellt.
Es wird so hoffentlich verständlicher was ich will.
Sobald ich in der Spalte C unterhalb der nicht leeren Zelle (Spielart) die neue Spielart eintrage wird der Listenbereich um diese Zeile erweitert. In diesem Augenblick soll nun in der Spalte B das aktuelle fixe Datum (TT/DD/JJ) und die Uhrzeit eingefügt werden.
Gruß Ferenz

Anzeige
AW: Einspruch !
01.05.2008 20:18:00
Matthias
Hallo
Userbild
Sorry geht nicht
Gruß Matthias L

AW: Neue Excel-Datei
01.05.2008 21:01:00
Daniel
Hi
ok, dann probiers mal mit diesem Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:C")) Is Nothing Then
If Target(1).Value  "" Then
If Cells(Target.Row, "B").Value = "" Then Cells(Target.Row, "B").Value = Now
End If
End If
End Sub


wenn du die Uhrzeit nicht benötigst und das Datum ausreicht, dann kannst du auch " = Now" durch " = Date" ersetzen.
Gruß, Daniel

Anzeige
AW: Neue Excel-Datei
01.05.2008 21:50:00
Ferenz
Hallo Daniel,
Ja :) , das funzt wie geschmiert.
Ich glaub ich muss VBA lernen.
Danke auch an euch beide Matthias und Gerd für den richtigen Weg.
Wünsche einen schönen Abend alle zusammen.
Ferenz

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Aktuelles Datum und Uhrzeit automatisch in Excel einfügen


Schritt-für-Schritt-Anleitung

Um das aktuelle Datum und die Uhrzeit automatisch in Excel einzufügen, ohne dass sie sich ändern, kannst du ein einfaches VBA-Makro verwenden. Hier sind die Schritte:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Rechtsklick auf "VBAProject (deineDatei.xlsx)" > Einfügen > Modul.
  3. Füge den folgenden Code ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
       If Not Intersect(Target, Range("C:C")) Is Nothing Then
           If Target(1).Value <> "" Then
               If Cells(Target.Row, "B").Value = "" Then
                   Cells(Target.Row, "B").Value = Now
               End If
           End If
       End If
    End Sub
  4. Speichere die Datei als Makro-fähige Datei (mit der Endung .xlsm).

  5. Teste das Makro: Trage einen Wert in Spalte C ein. In Spalte B sollte jetzt automatisch das aktuelle Datum und die Uhrzeit erscheinen.


Häufige Fehler und Lösungen

  • Fehler: Das Datum wird nicht eingefügt.

    • Lösung: Stelle sicher, dass die Zelle in Spalte B leer ist, bevor du einen neuen Wert in Spalte C eingibst.
  • Fehler: Das Datum verändert sich.

    • Lösung: Achte darauf, dass du Now in der Zelle verwendest, um das aktuelle Datum und die Uhrzeit festzuhalten. Verwende nicht die Funktion =TODAY(), da diese sich aktualisiert.

Alternative Methoden

Wenn du kein VBA verwenden möchtest, gibt es auch einige Excel-Funktionen, die nützlich sein können:

  • Aktuelles Datum einfügen: Drücke CTRL + ; (Semikolon) für das heutige Datum.
  • Aktuelle Uhrzeit einfügen: Drücke CTRL + SHIFT + ; (Semikolon) für die aktuelle Uhrzeit.
  • Für statische Werte: Nach dem Einfügen, kopiere die Zelle und füge sie als Werte ein (Rechtsklick > Inhalte einfügen > Werte).

Praktische Beispiele

  1. Für ein einfaches Protokoll:

    • In Spalte A trägst du die Tätigkeit ein, in Spalte B das Datum und die Uhrzeit mit dem oben genannten Makro.
  2. Für eine To-Do-Liste:

    • In Spalte A listest du Aufgaben, in Spalte B wird das Erstellungsdatum und die Uhrzeit automatisch hinzugefügt.

Tipps für Profis

  • Verwendung von Shortcuts: Verwende die Shortcuts CTRL + ; und CTRL + SHIFT + ;, um schnell Datum und Uhrzeit in Excel einzugeben.
  • VBA-Optimierung: Du kannst das Makro anpassen, um das Datum und die Uhrzeit nur bei bestimmten Bedingungen einzufügen, z.B. nur für bestimmte Zeilen oder Spalten.
  • Fehlerbehandlung: Implementiere Fehlerbehandlung im VBA-Code, um unerwartete Fehler zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich das Datum und die Uhrzeit automatisch einfügen, wenn ich eine Zeile hinzufüge? Du kannst das oben beschriebene Makro anpassen, um dies zu erreichen. Verwende dafür die Worksheet_Change-Ereignisprozedur.

2. Funktioniert dieses Makro in allen Excel-Versionen? Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen. Stelle sicher, dass du eine Makro-fähige Datei verwendest (.xlsm).

3. Wie kann ich das aktuelle Datum in einem anderen Format anzeigen? Du kannst das Format der Zelle anpassen, indem du mit der rechten Maustaste auf die Zelle klickst, "Zellen formatieren" wählst und dann das gewünschte Datumsformat auswählst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige