Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1012to1016
1012to1016
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

aktuelles Datum per Knopfdruck eintragen

Forumthread: aktuelles Datum per Knopfdruck eintragen

aktuelles Datum per Knopfdruck eintragen
26.09.2008 10:56:46
hannes
Hallo zusammen,
ich benötige sehr häufig in verschiedenen Formularen das aktuelle Datum in einer markierten Zelle.
Habe mir die Funktion folgendermaßen vorgestellt:
1. ich markiere die Zelle, wo das aktuelle Datum (TT.MM.JJ) rein soll
2. ich drücke eine Button, der sich im oberen Bereich (fixiert) meiner Mappe befindet
Weis jemand wie das geht?
Gruß Hannes
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 10:59:13
David
Hallo Hannes.
schon mal mit mit der Tastenkombi und :> versucht?
Gruß
David
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 11:17:33
hannes
Hallo David,
danke für die Anregung, ist auch nicht schlecht.
Meine beschriebene Vorgehensweise würde mir besser passen.
Gruß Hannes
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 12:45:34
dieter(drummer)
Hi Hannes,
in ein Modul: ActiveCell.FormulaR1C1 = "=TODAY()".
Makro mit Button verbinden. Fertig.
Gruß
Dieter(drummer)
Anzeige
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 11:00:00
David
Ups, da hab ich zu schnell ab abschicken geklickt, da fehlt was.
Hallo Hannes.
schon mal mit mit der Tastenkombi <STRG> und <:> versucht?
Gruß
David
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 11:25:32
selli
hallo hannes,
versuchs mal so (kann man auch noch kompensieren, ist aber erstmal verständlicher)
Selection.Cells.Value = Date
Selection.Cells.NumberFormat = "DD.MM.YYYY"
gruß selli
Anzeige
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 11:50:00
hannes
Hallo Selli,
danke für die Info.
Wie bekomme ich dann diesen Code auf einen Button, der sich in der Tabelle befindet, drauf.
Wie erstelle ich einen Button im Tabellenblatt?
Gruß Hannes
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 11:58:38
Disco
Hallo Hannes,
das kannst Du folgendermaßen umsetzen:
Ansicht -> Symbolleisten -> Steuerelemente-Toolbox (einblenden)
"Befehlsschaltfläche" anklicken und den Button in der Tabelle erstellen
Rechtsklick auf den Button -> Code anzeigen

Private Sub CommandButton1_Click()
Selection.Cells.Value = Date
Selection.Cells.NumberFormat = "DD.MM.YYYY"
End Sub


als Code eingeben und in der Steuerelemente-Toolbox auf "Entwurfsmodus beenden" klicken. Fertig!
Gruß
Henning

Anzeige
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 12:33:00
hannes
Danke, hat funktioniert. Gruß Hannes
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 12:52:17
hannes
Hallo Henning,
habe folgendes Problem:
wenn ich den Blattschutz aktiviere bekomme ich einen Laufzeit 1004
beim Betätigen des Buttons.
Gruß Hannes
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 19:36:44
Disco
Hallo Hannes,
falls der Blattschutz ohne Kennwort ist, lautet der Code:
ActiveSheet.Unprotect
Selection.Cells.Value = Date
Selection.Cells.NumberFormat = "DD.MM.YYYY"
ActiveSheet.Protect
Mit Kennwortabfrage, habe ich leider auch keine Lösung, da meine VBA-Kenntnisse nicht ausreichend sind...
Gruß
Henning
Anzeige
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 20:10:00
Disco
...mit Kennwort:
ActiveSheet.Unprotect Password:="Test"
Selection.Cells.Value = Date
Selection.Cells.NumberFormat = "DD.MM.YYYY"
ActiveSheet.Protect Password:="Test"
Gruß
Henning
AW: aktuelles Datum per Knopfdruck eintragen
26.09.2008 17:52:38
Pet
Hallo Hannes,
einfach Strg-Taste und die Punkt Taste drücken
Gruß
Pet

Forumthreads zu verwandten Themen

Zeile anlegen, dann Datum von heute
heute

Hallo Leute,
ich hab (mal wieder) ein kleines Problem und hoffe auf eure Unterstützung.
Ich habe eine Exceltabelle, in der noch fast nichts drin steht.
Jetzt würde ich es gerne so haben, dass, wenn ich eine neue Zeile anlege (z.B. mit Kundendaten), soll er mir in einer bestimmten Ze...
23.09.2008 16:37:51
Thread-ID: 1011817
12 Beiträge
Anzeige
Aktuelles Datum in Registerkarte
Herbert

Hallo Expert,
meine Datei hat mehrere Registerkarten. "Summe";"Netto";"Brutto". Ich möchte nach dem eigentlichen Titel der einzelnen Registerkarte das Tagesdatum in der Form JJJJMMTT ausgegeben haben. z.B. "Summe_20081021".
Nach dem Öffnen der Datei am morgigen Tag sollte dann natürlich...
21.10.2008 14:29:41
Thread-ID: 1018005
16 Beiträge
Anzeige
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 in Input Box
Rolf

Hallo Excelianer,
Mit einer InputBox kann man ja einen bestimmten String vorgeben, der dann im Eingabefeld angezeigt wird. So weit so klar.
Mein Vorgabestring beinhaltet das aktuelle Datum. Das heisst, es sollte so sein. Leider habe ich nicht den blassen Dunst einer schwachen Ahnung, wi...
16.03.2009 13:03:41
Thread-ID: 1060692
4 Beiträge
Aktuelles Datum in Formel (mit Inputbox)
StefanS

Hallo zusammen,
habe folgendes Problem:
Mittels der Formel =ZÄHLENWENN(Daten!E:E;" Meine nächste Idee wäre, das Datum mittels Inpubox abzufragen (Eingabe erfolgt durch User).
Sub Auswertung() Dim datum As String datum = InputBox("Datum") Range("B7").Select ActiveCell.FormulaR1C1 =...
21.04.2009 12:49:15
Thread-ID: 1070034
4 Beiträge
aktuelles datum im Calendar in Userform
lisa

Hallo
Leider finde ich in der Recherche nichts. Deshalb heute noch einmal an Euch die Frage:
Wie kann ich in einmem calendar in meiner UserForm ein immer aktuelles Datum einstellen heute()?
Ich suche schon eine Weile in der Recherche und Google, bislang aber ohne Erfolg.
Hat jem...
01.10.2009 12:18:48
Thread-ID: 1106645
4 Beiträge
Anzeige
aktuelles Datum eintragen
Warn

Hallo zusammen,
leider konnte ich im Forum nichts zu meiner Frage finden, daher mache ich ein neues Thema auf.
Ich möchte automatisiert ein aktuelles Datum in eine definierte Zelle eingeben, dieses Datum soll sich danach aber nicht mehr verändern daher fallen Funktionen wie "=heute()" o...
31.05.2010 15:11:13
Thread-ID: 1159627
12 Beiträge
per doppelklick Bereich einfügen
anja

hallo, ich würde gerne per Doppelklick einen Bereich einfügen.
Die Vorlage, die Kopiert werden soll, soll fix in den Zellen x2 bis AA2 eingeben werden.
Dann würde ich gerne in z.B. Zeile 34 + 36 + 37 ....Spalte x klicken, und dann soll der Inhalt von x2 bis AA2 in
X34 bis AA34 einge...
28.07.2010 14:39:46
Thread-ID: 1169318
6 Beiträge
Makro: Datum von heute
heute

Hallo,
kann mir jemand mitteilen, wie bei folgendem Makro in dem Betreff (subject) automatisch das heutige Datum eingetragen wird, ohne dies manuell über eine Input-Box tun zu müssen?
Sub Mail_AM_SettlementsRentengeschaefte() Dim olapp As Object Set olapp = CreateObject("Outlook.Applica...
29.11.2010 15:50:16
Thread-ID: 1189263
4 Beiträge
aktuelles Datum in VBA
amintire

Hallo alle zusammen,
wie verknüpfe ich hier das aktuelle Datum?
MailDoc.Subject = "Test & ...."
Also es soll dann am Ende z.B. Test 19.02.2011 heißen.
Gruß Amina
18.02.2011 10:29:37
Thread-ID: 1201657
3 Beiträge
Aktuelles Datum bei mehreren Blättern anspringen
Heiko

Hallo,
ich möchte ein Stundenbuch anfertigen. Für jede Kalenderwoche ein eigenes Blatt zb. Kw12, Kw13 usw.
Um beim öffnen immer das aktuelle Datum anzuspringen, hab ich volgendes Makro verwendet:
Sub auto_open() spalte = "A" datum = Date On Error Resume Next zeile = Columns(spalte...
27.03.2012 18:05:59
Thread-ID: 1256704
4 Beiträge
Anzeige
Nächstliegende Datum von heute
heute

Hallo Leute
Ich habe in B5:B60 das Datum stehen.
Nun möchte ich das nächstliegendste Datum von Heute (inkl.Heute) formatiert haben.
Hätte bitte jemand eine Fornel für mich.
Gruß Heinz
17.08.2012 13:03:51
Thread-ID: 1275454
5 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Aktuelles Datum per Knopfdruck in Excel eintragen

Schritt-für-Schritt-Anleitung

  1. Zelle auswählen: Markiere die Zelle, in die das aktuelle Datum (TT.MM.JJ) eingefügt werden soll.

  2. Button erstellen: Gehe zu "Ansicht" -> "Symbolleisten" -> "Steuerelemente-Toolbox". Wähle die "Befehlsschaltfläche" aus und ziehe sie in deine Tabelle.

  3. Code hinzufügen: Rechtsklicke auf den Button und wähle "Code anzeigen". Füge den folgenden VBA-Code ein:

    Private Sub CommandButton1_Click()
   Selection.Cells.Value = Date
   Selection.Cells.NumberFormat = "DD.MM.YYYY"
End Sub

  4. Entwurfsmodus beenden: Klicke auf "Entwurfsmodus beenden" in der Steuerelemente-Toolbox.

Jetzt kannst du durch einen Klick auf den Button das aktuelle Datum in die markierte Zelle einfügen.

Häufige Fehler und Lösungen

  • Laufzeitfehler 1004 beim Blattschutz: Wenn der Blattschutz aktiviert ist, kann der Code nicht ausgeführt werden. Füge vor der Datumseintragung folgende Zeilen ein, um den Blattschutz vorübergehend aufzuheben:

    ActiveSheet.Unprotect
Selection.Cells.Value = Date
ActiveSheet.Protect

  • Datum wird nicht korrekt formatiert: Stelle sicher, dass die Zelle im richtigen Format (DD.MM.YYYY) formatiert ist, um das aktuelle Datum korrekt darzustellen.

Alternative Methoden

  1. Tastenkombination: Du kannst das aktuelle Datum auch durch die Tastenkombination Strg + . (Punkt) einfügen.

  2. Excel-Formel: Eine einfache Formel, um das heutige Datum anzuzeigen, ist =HEUTE(). Dies fügt jedoch das Datum dynamisch ein, sodass es sich bei jeder Änderung des Arbeitsblatts aktualisiert.

Praktische Beispiele

  • Einfügen des aktuellen Datums in eine spezifische Zelle: Wenn du das Datum in Zelle A1 einfügen möchtest, kannst du den VBA-Code wie folgt anpassen:

    Range("A1").Value = Date

  • Druckdatum in Excel einfügen: Wenn du das Druckdatum möchtest, kannst du ActiveSheet.PageSetup.PrintTitleRows nutzen, um das aktuelle Datum im Druckkopf anzuzeigen.

Tipps für Profis

  • Nutze Application.Today anstelle von Date, wenn du sicherstellen möchtest, dass das Datum auch bei verschiedenen Zeitzonen korrekt bleibt.

  • Du kannst auch ein Makro erstellen, das das Datum automatisch in verschiedenen Zellen einfügt, indem du eine Schleife verwendest, um mehrere Zellen zu bearbeiten.

FAQ: Häufige Fragen

1. Wie kann ich das Datum in einem bestimmten Format einfügen? Du kannst das Format mit Selection.Cells.NumberFormat = "DD.MM.YYYY" festlegen, um das Datum im gewünschten Format anzuzeigen.

2. Was mache ich, wenn mein Excel nicht reagiert, wenn ich den Button klicke? Überprüfe, ob der Blattschutz aktiviert ist und ob dein VBA-Code korrekt eingegeben wurde. Stelle sicher, dass der Entwurfsmodus deaktiviert ist.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige