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

Forumthread: Aktuelles Tagesdatum per Mausklick?

Aktuelles Tagesdatum per Mausklick?
Markus
Servus,
ich habe eine kleine Bitte eines Kollegen bekommen.
Er möchte in Excel, daß beim Klick auf die erste Zelle einer Zeile
das aktuelle (unveränderliche) Tagesdatum eingefügt wird.
Gibt es dafür ein Makro oder ein kleines VBA-Script?
Tut mir leid, so eine Frage zu stellen. Ich hatte bisher einfach noch keinen
Kontakt mit Excel.
Über eine Antwort würde ich mich (und mein Kollege natürlich auch) freuen.
MfG
Markus Stohr
Anzeige
Darf's auch ein Doppel- oder Rechtsklick sein?
Franz
Hallo Markus,
Darf's auch ein Doppel- oder Rechtsklick sein? Falls ja, dann einen Rechtsklick unten auf den Namen der Tabelle und eines von den beiden folgenden Makros einfügen:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Target.Value = Date
Cancel = True
End If
End Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
Target.Value = Date
Cancel = True
End If
End Sub

Grüße
Franz
Anzeige
Noch ne kleine Sicherung
29.03.2004 14:30:53
Franz
Hallo Markus,
falls nötig hier ein Code mit einer kleinen Sicherung: damit nicht evtl. was Wichtiges gelöscht wird: mit den folgenden Codes wird ein Datum nur eingefügt, falls die Zelle leer ist, sonst tut sich nix. Da muss dann - falls wirklich erwünscht - vor dem Einfügen eines Datums die Zelle erstmal geleert werden:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
If Target = "" Then
Target = Date
Cancel = True
End If
End If
End Sub


Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then
If Target = "" Then
Target = Date
Cancel = True
End If
End If
End Sub

Grüße
Franz
Anzeige
AW: Aktuelles Tagesdatum per Mausklick?
Bert
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
If Target.Count = 1 Then
Target = Date
End If
End If
End Sub

Bert
AW: Aktuelles Tagesdatum per Mausklick?
Petra
bei mir klappt das nicht...
Das hat bei mir mit dem Namen zu tun.
ich moechte das in ThisWorkbook einpflegen
Petra
Anzeige
Private Sub Workbook_SheetSelectionChange(ByVal Sh
Franz
Hallo Petra,
dann muss wohl die erste Zeile lauten:
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Das kriegst du auch, wenn du im VBA-Editor im Modul der Mappe im linken Dropdown-Feld "Workbook" wählst, und dann im rechten Drpodown "SheetSelectionChange"
Grüße
Franz
Anzeige
AW: Private Sub Workbook_SheetSelectionChange(ByVal Sh
Petra
Ja!!
klappt!
Danke
Gern geschehen :-)) o.t.
29.03.2004 17:34:26
Franz
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Aktuelles Tagesdatum in Excel per Mausklick einfügen


Schritt-für-Schritt-Anleitung

Um das aktuelle Datum in Excel automatisch per Mausklick in eine Zelle einzufügen, kannst du ein VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke mit der rechten Maustaste auf "VBAProject (DeineArbeitsmappe)" und wähle Einfügen > Modul.
  3. Füge den folgenden Code ein:

    • Für einen Rechtsklick:
      Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
       If Target.Column = 1 Then
           Target.Value = Date
           Cancel = True
       End If
      End Sub
    • Für einen Doppelklick:
      Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
       If Target.Column = 1 Then
           Target.Value = Date
           Cancel = True
       End If
      End Sub
  4. Speichere deine Änderungen und schließe den VBA-Editor.

  5. Teste das Makro in deiner Excel-Tabelle, indem du auf die erste Zelle einer Zeile klickst.


Häufige Fehler und Lösungen

Fehler: Das Datum wird nicht eingefügt, wenn die Zelle bereits einen Wert hat.
Lösung: Verwende den folgenden Code, um das Datum nur einzufügen, wenn die Zelle leer ist:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 Then
        If Target = "" Then
            Target.Value = Date
            Cancel = True
        End If
    End If
End Sub

Fehler: Das Makro funktioniert nicht, wenn es in ThisWorkbook eingefügt wird.
Lösung: Stelle sicher, dass du den Code im richtigen Modul (z.B. im Modul des Arbeitsblatts) einfügst und die erste Zeile wie folgt lautet:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)

Alternative Methoden

Wenn du das aktuelle Datum in Excel automatisch einfügen möchtest, gibt es auch alternative Methoden:

  1. Formel verwenden: Du kannst die Formel =HEUTE() verwenden, um das aktuelle Datum anzuzeigen. Dies aktualisiert sich jedoch täglich.

  2. Datum per Klick einfügen: Mit einem Button auf dem Arbeitsblatt kannst du ebenfalls ein Makro zuweisen, das das aktuelle Datum in eine bestimmte Zelle einfügt.


Praktische Beispiele

  • Beispiel für Doppelklick: Wenn du in die Zelle A1 doppelklickst, wird das aktuelle Datum in die Zelle A1 eingefügt.
  • Beispiel für Rechtsklick: Ein Rechtsklick auf die Zelle B1 fügt das aktuelle Datum in B1 ein.

Diese Beispiele zeigen, wie du das aktuelle Datum in Excel einfach und schnell einfügen kannst.


Tipps für Profis

  • Datum formatieren: Du kannst das Datum auch automatisch in einem bestimmten Format anzeigen, indem du die Formatierung der Zelle anpasst.
  • Sicherung einbauen: Es kann hilfreich sein, eine Bestätigung einzubauen, bevor das Datum eingefügt wird, um versehentliche Eingaben zu vermeiden.
  • Einsatz von Workbook_SheetSelectionChange: Diese Methode ist nützlich, wenn du das Datum in jeder Zelle der ersten Spalte beim Wechsel der Auswahl automatisch einfügen möchtest.

FAQ: Häufige Fragen

1. Wie kann ich das aktuelle Datum automatisch in Excel einfügen?
Du kannst ein Makro verwenden, das beim Doppelklick oder Rechtsklick auf eine Zelle das aktuelle Datum einfügt.

2. Warum funktioniert mein Makro nicht?
Stelle sicher, dass du den Code im richtigen Modul eingefügt hast und dass du die richtige Syntax verwendest.

3. Kann ich auch das aktuelle Datum im Format "TT.MM.JJJJ" anzeigen?
Ja, das kannst du tun, indem du das Format der Zelle änderst oder indem du im VBA-Code eine Formatierung hinzufügst.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige