Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum ohne punkt eingeben

Datum ohne punkt eingeben
24.04.2017 14:19:20
miri
Hallo Zusammen
gibt es eine Möglichkeit das Datum ohne Punkt einzugeben und Excel wandelt das Datum korrekt um.
Beispiel
Eingabe 0503 in der Zelle wird dann 05.03.2017(immer aktueller Jahr) übernommen.
Gruss
miri
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum ohne punkt eingeben
24.04.2017 14:22:50
Daniel
Hi
das wird öfters gefragt.
klickeauf "Recherche" und gib dann "Datum ohne Punkt eingeben" als Suchanfrage ein.
Da solltest du genügend finden.
Gruß Daniel
AW: Datum ohne punkt eingeben
24.04.2017 14:30:49
miri
Hallo Daniel
habe ich schon in Forumsarchiv gesucht.
Genau so eine Fall:
Eingabe 0503 in der Zelle wird dann 05.03.2017(immer aktueller Jahr) übernommen,
habe ich leider nicht gefunden.
Gruss
miri
Anzeige
AW: Datum ohne punkt eingeben
24.04.2017 14:39:11
Daniel
muss ich jetzt für dich googeln?
dass in der Vergangenheit nicht nach 0503 sondern nach einem anderen Datum gefragt wurde, ist doch logisch.
wie wärs damit, ist gleich das zweite nach den Werbeanzeigen:
https://www.google.com/url?q=https://www.herber.de/forum/archiv/652to656/652368_Datum_ohne_Punkt_eingeben.html&sa=U&ved=0ahUKEwjVxPz3jb3TAhUnBMAKHdmADTYQFggIMAE&client=internal-uds-cse&usg=AFQjCNH11vSIXw1qdinlBCeCHCFSZ2tCUg
oder das hier
https://www.google.com/url?q=https://www.herber.de/forum/archiv/412to416/415218_Gueltiges_Datum_ohne_Punkteingabe.html&sa=U&ved=0ahUKEwjVxPz3jb3TAhUnBMAKHdmADTYQFggdMAg&client=internal-uds-cse&usg=AFQjCNGKN5D4zuGZsiwGnpPIlJ2tvucX2A
Gruß Daniel
Anzeige
AW: Datum ohne punkt eingeben
24.04.2017 14:49:47
miri
Hallo Daniel
vielen Dank für die url's.
Ich weiss nicht ob ich übersehen habe, aber ich find es einfach nicht das was ich brauche.
Eingabe 2804 (4 Ziffern ohne Punkt) in der Zelle wird dann 28.04.2017(immer aktueller Jahr) übernommen.
Nochmals Danke dir + Gruss
miri
AW: Datum ohne punkt eingeben
24.04.2017 14:59:12
UweD
Hallo
versuch es mal so..
Hier mal Beispielhaft für A1:A100. Der Bereich muss als Text formatiert sein, da sonst Eingaben die mit einer 0 beginnen nicht richtig verarbeitet werden.
- Rechtsclick auf den Tabellenblattreiter
- Code anzeigen
- Diesen Code dort reinkopieren
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Fehler
    Dim Zelle As Range
    Dim Bereich As Range
    
    Set Bereich = Range("A1:A100")
    
    If Not Intersect(Target, Bereich) Is Nothing Then
        For Each Zelle In Intersect(Target, Bereich)
            If IsNumeric(Zelle) And Len(Zelle) = 4 Then
                Application.EnableEvents = False
                Zelle = Format(DateValue(Left(Zelle, 2) & "." & Mid(Zelle, 3, 2) & "." & Year(Date)), "DD.MM.YYYY")
                Application.EnableEvents = True
            End If
        Next
    End If
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

LG UweD
Anzeige
AW: Datum ohne punkt eingeben
24.04.2017 15:08:29
miri
Hallo UweD
jetzt ist es perfekt.
Vielen dank.
miri
Prima! Danke für die Rückmeldung.
24.04.2017 16:16:57
UweD
AW: Datum ohne Punkt eingeben
24.04.2017 20:07:11
Louis
www.excelformeln.de/formeln.html?welcher=249
Gruss Louis
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Datum ohne Punkt eingeben in Excel


Schritt-für-Schritt-Anleitung

  1. Zelle als Text formatieren:

    • Markiere den Bereich, in dem Du die Daten eingeben möchtest (z. B. A1:A100).
    • Mache einen Rechtsklick und wähle „Zellen formatieren“.
    • Wähle „Text“ aus, um sicherzustellen, dass Excel Deine Eingaben nicht verändert.
  2. VBA-Code einfügen:

    • Klicke mit der rechten Maustaste auf den Tabellenblattreiter und wähle „Code anzeigen“.
    • Kopiere den folgenden VBA-Code und füge ihn in das Fenster ein:
    Private Sub Worksheet_Change(ByVal Target As Range)
       On Error GoTo Fehler
       Dim Zelle As Range
       Dim Bereich As Range
    
       Set Bereich = Range("A1:A100")
    
       If Not Intersect(Target, Bereich) Is Nothing Then
           For Each Zelle In Intersect(Target, Bereich)
               If IsNumeric(Zelle) And Len(Zelle) = 4 Then
                   Application.EnableEvents = False
                   Zelle = Format(DateValue(Left(Zelle, 2) & "." & Mid(Zelle, 3, 2) & "." & Year(Date)), "DD.MM.YYYY")
                   Application.EnableEvents = True
               End If
           Next
       End If
    Fehler:
       If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
    End Sub
  3. Eingabe testen:

    • Gib ein Datum ohne Punkt ein, wie z. B. „0503“ oder „2804“.
    • Excel sollte das Datum automatisch in das Format „DD.MM.YYYY“ umwandeln.

Häufige Fehler und Lösungen

  • Eingabe wird nicht erkannt: Wenn Du die Eingabe „0503“ machst und nichts passiert, überprüfe, ob die Zellen als Text formatiert sind.

  • VBA-Code funktioniert nicht: Stelle sicher, dass Du den Code im richtigen Blatt eingefügt hast. Der Code muss im Arbeitsblattmodul gespeichert werden, nicht im Modul.


Alternative Methoden

Eine andere Möglichkeit, das Datum ohne Punkt in Excel einzugeben, ist die Verwendung von Excel-Formeln:

  • Textformel verwenden:

    • Du kannst die Eingabe in einer anderen Zelle in das gewünschte Datumsformat umwandeln. Angenommen, Du gibst „0503“ in Zelle A1 ein, kannst Du in B1 die folgende Formel verwenden:
    =DATUM(JAHR(HEUTE());LINKS(A1;2);TEIL(A1;3;2))

Diese Formel wandelt „0503“ in das Datum „05.03.Jahr“ um.


Praktische Beispiele

  • Eingabe „0503“ in Zelle A1:

    • Ergebnis: „05.03.2023“ (aktuelles Jahr)
  • Eingabe „2804“ in Zelle A2:

    • Ergebnis: „28.04.2023“

Mit dem VBA-Skript wird dies automatisch umgesetzt, während Du die Daten eingibst.


Tipps für Profis

  • Automatisierung: Du kannst den VBA-Code so anpassen, dass er auf einen größeren Bereich anwendbar ist, indem Du Range("A1:A100") änderst.

  • Fehlerprotokollierung: Füge eine Fehlerprotokollierung hinzu, um Probleme besser nachvollziehen zu können, falls etwas schiefgeht.


FAQ: Häufige Fragen

1. Kann ich diesen Ansatz auch für andere Formate verwenden? Ja, Du kannst den VBA-Code anpassen, um auch andere Datumsformate zu unterstützen.

2. Was passiert, wenn ich mehr als 4 Ziffern eingebe? Der Code ignoriert Eingaben, die nicht genau 4 Ziffern haben. Es wird empfohlen, nur 4 Ziffern einzugeben, um die automatische Umwandlung zu gewährleisten.

Beliebteste Forumthreads (12 Monate)

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