Live-Forum - Die aktuellen Beiträge
Datum
Titel
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
04.10.2025 15:35:03
Range um eine Einzelzelle erweiternerweitern
04.10.2025 14:27:49
Was ist mit dem CEF Forum passiert?
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
1504to1508
1504to1508
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA heutiges Datum im Format JJMMTT

Forumthread: VBA heutiges Datum im Format JJMMTT

VBA heutiges Datum im Format JJMMTT
27.07.2016 16:42:20
Udo
Hallo Leute,
kann mir jemand sagen wie ich per VBA in eine Zelle das heutige Datum
per Format JJMMTT eintragen lassen kann
Wenn ich zB. per Cells(R, 38) = Date setzte kommt anderes Format. ( R ist entspr. deklar. )
Die evtl. Schwierigkeit dabei , dieser Eintrag ist Teil einer Projektnummer
welche in dieser Zelle eben so als reiner aneinanderreihender Zahlenwert
aufgeführt ist , das Makro müsste mir sozusagen das heutige Datum umschlüsseln
in die jeweilige optische Zahlenfolge ...
Beispiel : die Projektnummer setzt sich folgend zusammen
A1 = Kundenkennzahl ( 5 stellig), dann in
B1 Datum als Zahlenreihenfolge ( 6 stellig ) und in
C1 die Wertung 001-999 ( 3 stellig )
zB. 12345 160727 001 ( heisst Kunde 12345 , am 27.07.2016 , Nr 001 )
Nun wenn ich per Date also einen wert eintrage steht nachher übertragen als Zahlenwert nicht 160727 drinn, sondern 42578 was dem heutigen Datum als Zahl entspricht , hingegen 160727 entspricht dem Datum 20.01.2340 hmmm ?
Wie krieg ich die Anweisung dazu mir in Spalte B also das heutige Datum als reine Zahlenfolge
JJMMTT mir einzutragen ?
Hoffe ich hab mich einigermaßen verständlich ausgedrückt ?
Wäre froh wenn ihr mir hier helfen könntet
Lieben Dank & Grüße
udo
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA heutiges Datum im Format JJMMTT
27.07.2016 16:47:17
Daniel
Hi
Cells(R, 38).value = "'" & Format(Date, "YYMMTT")
Gruß Daniel
Leider noch ein Fehler drinn ?
27.07.2016 16:53:37
Udo
Hallo Daniel,
zunächst vielen herzl. Dank für deine Hilfe, habs gleich mit eingebaut in meinen CODE.
ich starte das im Before.Rechtklick Ereignis ... R ist active Zeile ... ( dir eh klar ).
wenn ich ausführe schreibt er Jahr und Monat richtig aber Tag falsch anstatt 160727 steht 1607TT
Sagt dir das was ?
LG udo
Anzeige
AW: Leider noch ein Fehler drinn ?
27.07.2016 16:56:58
Bastian
Cells(R, 38).value = "'" & Format(Date, "YYMMDD")
D für Day ^^
ha haaaaaa , ja klar , spitze ... oh Mann ...
27.07.2016 16:59:45
Udo
Hab ich ein Brett vorm Kopf ( lach ), is wahrscheinlich das Wetter ;-)
Jungs , vielen herzlichen Dank !!!
Habt mir sehr geholfen
lieben Gruß
udo
DANKE !!!!
AW: Leider noch ein Fehler drinn ?
27.07.2016 16:57:22
Hajo_Zi
Hallo Udo,
Tag ist auch d

Anzeige
Danke Hajo ;-) ... habs nicht gesehn ... owT.
27.07.2016 17:00:48
Udo
...
AW: Leider noch ein Fehler drinn ?
27.07.2016 17:00:13
Daniel
Hi
sorry, muss natürlich DD statt TT sein (englisch halt)
im Englischen D für Day, im Deutschen T für Tag.
ich gehe mal davon aus, dass du das nicht nur kopiert und eingefügt hast, sondern inzwsichen auch schon mal auf den VBA-Hilfeseiten dir den Text dazu durchgelesen hast, da wird beschrieben wie man die Funktion parametrisieren muss.
Gruß Daniel
Anzeige
zumindest hatte ich mich schon ...
27.07.2016 17:05:34
Udo
mal durchgeschaut im Archiv, leider nichts gefunden das ich mit meinem Können hätte umstricken können, die Suche ( Recherche ) funktioniert gerade nicht ( zumind. bei mir ), von daher ..
Ich versuche immer erst mal selber zu suchen und probier dann erst mal rum, nur dazu fand ich leider nichts.
Aber dennoch nochmal Danke für deine Hilfe !
LG udo
Anzeige
AW: zumindest hatte ich mich schon ...
27.07.2016 17:29:44
Daniel
Hi
ich rede nicht vom Archiv, sondern von den Hilfeseiten, die bei Excel zum Lieferumfang mit dazu gehören (zumindest bis Excel2010, in höheren Versionen Online verfügbar)
wenn du FORMAT irgendwo im Code- oder Direktfenster stehen hast, brauchst du nur den Cursor drauf zu setzen und F1 zur drücken, dann bekommst du die Hilfeseite zu dieser Funktion angezeigt.
(Das erwarte ich eigentlich von jedem, der hier im Forum eine neue Funktion kennen lernt.)
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

Datumssuche in VBA
Snewi

Hallo ich habe folgendes Excel Sheet:
https://www.herber.de/bbs/user/55612.xls
Nun möchte ich zum einen wie vorgegeben das min und das max Datum automatisch anzeigen was aber leider bei mir nicht funktioniert!
Zum anderen möchte ich die Spalten so ein und ausblenden wie ich ein Zei...
24.09.2008 08:11:00
Thread-ID: 1011914
14 Beiträge
Anzeige
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 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
Datum/Autor für Eingabe mit "Historie" (vba)
Lukas

Hallo liebe Forumnutzer,
in meiner Unwissenheit wurde ich gebeten, folgendes umzusetzen:
In A5 wird ein Wert eingegeben, in A7 und A8 sollen einmal Autor und einmal Datum der Änderung notiert werden. Jetzt wird in A5 ein neuer Wert eingetragen, der alte Wert aus A5 soll inklusive Autor...
18.11.2008 17:52:05
Thread-ID: 1025721
4 Beiträge
VBA Find- Datum
Harald

Hallo und schönen Sonntag
Ich möchte aus einer Liste mit Datumsangaben mittels der Find Funktion die Zelle mit dem gesuchten Monat
eruieren. Im Netz habe ich einen Code von r.müller gefunden. Er weist darauf hin das: "die Formatierung des Datums ist heirbei völlig unerheblich, es darf...
14.12.2008 10:16:38
Thread-ID: 1032729
4 Beiträge
Datum in Monaten (mit 0,5) - ohne VBA
Wolfgang

Hallo,
ich bin auf der Suche nach einer Formel (nicht VBA), welche die Differenz zwischen Datum in Spalte F und Spalte G (z.B. 12.01.09 - 28.02.09) ermittelt und mir als Monat mit einer Stelle nach dem Komma z.B. 1,5 auswirft. Danke schon jetzt für die Rückmeldungen.
Herzliche Grüße
...
20.01.2009 14:30:25
Thread-ID: 1041840
5 Beiträge
VBA DateFormat zu String convertieren
MBorn

Guten Morgen,
weiß jemand, wie man ein Datum, das im DateFormat (als Zahl) vorliegt
in das Textformat (yyyy-mm-dd) konvertiert. Sodaß das Ergebnis ein Text ist?
sodaß beispielsweise aus der Zahl 39868 das Text-Datum "2009-02-24" wird?
Herzlichen Dank,
Born
18.03.2009 12:59:43
Thread-ID: 1061376
12 Beiträge
Datumsformat in der Maske bei Aufruf über VBA
Wusino

Hallo miteinander,
da meine Suche in ettlichen Büchern und Foren sehr frustrierend war, wende ich mich nun doch an Euch.
Ich habe ein kleines Skript, das beim Öffnen des Dokuments auf das Datenblatt Uebersicht springt und beim Wählen eines anderen Datenblatts die Maske anzeigt. Das Prob...
18.04.2009 09:42:39
Thread-ID: 1069435
2 Beiträge
Datum in andere Spalte mit and. Format VBA
Wolfgang

Hallo,
in Spalte F, ab Zeile 2 befinden sich Daten im Format "18.06.2009" - wäre denkbar, dass jeweils dieses Datum in Spalte R im Format "Juni 09" wiederholt/konvertiert wird? Die Anzahl der Zellen ist jeweils unbekannt, das Konvertieren würde ich gerne immer beim Start der Excel-Mappe vor...
18.06.2009 21:23:07
Thread-ID: 1082734
6 Beiträge
Datum formatieren mit VBA (Formular)
Wolle


Hallo Forum,
nachdem es jetzt klappt das die Daten aus der Tabelle in das Formular angezeigt werden, habe ich noch ein Problem mit der Formatierung "Datum"
Ich schreibe in dem Formular das Anfangs und enddatum und lasse Sie über das Formular in die Tabelle schreiben. Dort sollen Si...
01.12.2009 07:18:45
Thread-ID: 1121125
12 Beiträge
Anzeige
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
Anzeige
Datumsformat einer Arbeitsmappe per VBA ändern
Thomas

Gibt es eine Möglichkeit das Datumsformat einer Arbeitsmappe oder einer Excel-Sitzung per VBA zu ändern ?
Ich möchte eine Daten aus einer Webanwendung mit englischem Datumsformat übernehmen.
Eine Lösung wäre natürlich die Ländereinstellung im System zu ändern.
Aber diesen umständlic...
05.04.2011 22:09:12
Thread-ID: 1209166
2 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

VBA für das heutige Datum im Format JJMMTT

Schritt-für-Schritt-Anleitung

Um das heutige Datum im Format JJMMTT mithilfe von VBA in eine Excel-Zelle einzufügen, kannst Du folgende Schritte befolgen:

  1. Öffne den VBA-Editor: Drücke ALT + F11 in Excel.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf „VBAProject (DeineDatei.xlsm)“ und wähle „Einfügen“ > „Modul“.

  3. Füge den folgenden Code ein:

    Sub SetzeHeutigesDatum()
    Dim R As Long
    R = ActiveCell.Row ' Aktuelle Zeile
    Cells(R, 38).Value = "'" & Format(Date, "YYMMDD")
End Sub

  4. Führe das Makro aus: Gehe zurück zu Excel, wähle die Zelle aus, in der das Datum eingefügt werden soll, und drücke F5, um das Makro auszuführen.

Häufige Fehler und Lösungen

  • Problem: Das Datum wird nicht im gewünschten Format eingefügt.

    • Lösung: Stelle sicher, dass Du Format(Date, "YYMMDD") verwendest. Der Fehler könnte auftreten, wenn du TT anstelle von DD verwendest. Das korrekte Format für den Tag ist DD.

  • Problem: Das Makro funktioniert nicht.

    • Lösung: Überprüfe, ob das Makro in der richtigen Datei gespeichert ist und ob die Datei im .xlsm-Format gespeichert ist.

Alternative Methoden

Wenn Du das heutige Datum ohne VBA einfügen möchtest, kannst Du auch die Excel-Funktion =HEUTE() verwenden. Diese Funktion gibt das aktuelle Datum zurück und wird automatisch aktualisiert, wenn Du die Datei öffnest.

Für die Formatierung in JJMMTT kannst Du die Zelle wie folgt formatieren:

  1. Rechtsklick auf die Zelle und „Zellen formatieren“ wählen.
  2. Unter „Zahlen“ die Kategorie „Benutzerdefiniert“ wählen.
  3. Gib YYMMDD ein.

Praktische Beispiele

Hier sind einige praktische Beispiele, um das Verständnis zu vertiefen:

  • Beispiel 1: Wenn Du das heutige Datum (z.B. 27.07.2016) in die Zelle B1 einfügst, sollte der Code so aussehen:

    Sub Beispiel1()
    Cells(1, 2).Value = "'" & Format(Date, "YYMMDD")
End Sub

  • Beispiel 2: In einem größeren Kontext, wo die Projektnummer aus mehreren Teilen besteht, kannst Du den Code wie folgt erweitern:

    Sub ProjektNummer()
    Dim KundenKennzahl As String
    KundenKennzahl = Cells(1, 1).Value
    Cells(1, 2).Value = "'" & Format(Date, "YYMMDD")
    Cells(1, 3).Value = "001" ' Beispiel für Wertung
    Cells(1, 4).Value = KundenKennzahl & Cells(1, 2).Value & Cells(1, 3).Value
End Sub

Tipps für Profis

  • VBA-Datumsfunktionen: Nutze die VBA-Datumsfunktionen wie Date, Now oder DateDiff, um mit Datumswerten zu arbeiten.
  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen in Deinen VBA-Skripten, um mögliche Laufzeitfehler abzufangen und zu beheben.
  • Dokumentation: Nutze die integrierte Excel-Hilfe (F1), um mehr über Datumsformate und deren Verwendung in VBA zu erfahren.

FAQ: Häufige Fragen

1. Wie kann ich das heutige Datum in einer anderen Zelle einfügen? Du kannst einfach die Zeilen- und Spaltennummer in Cells(R, 38) anpassen, um das Datum in eine andere Zelle einzufügen.

2. Kann ich das Datum automatisch aktualisieren lassen? Ja, wenn Du die Funktion =HEUTE() in eine Zelle einfügst, wird das Datum automatisch aktualisiert, wenn Du die Arbeitsmappe öffnest.

3. Was mache ich, wenn ich das Datum im deutschen Format (TT.MM.JJJJ) benötige? Du kannst Format(Date, "DD.MM.YYYY") verwenden, um das Datum im gewünschten Format zu erhalten.

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