Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 10:28:49
16.10.2025 17:40:39
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datum ohne Punkt eingeben

Datum ohne Punkt eingeben
15.08.2005 10:51:09
Johnny
Hallo!
Ich habe eine Tabelle, in der ich jeeeede Menge Geburts- und Versterbedaten eingeben muss. Besteht die Möglichkeit, das Datum ohne Punkt einzugeben? Zum Beispiel "15121970" statt "15.12.1970"? Das würde ja über den Ziffernblock viel schneller gehen.
Vielen Dank schonmal!
Gruß,
Johnny
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datum ohne Punkt eingeben
15.08.2005 10:56:03
Matthias
Hallo Johnny,
ins Modul des Tabellenblattes:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat As String
If Target.Count > 1 Then Exit Sub
If IsNumeric(Target) Then
If Len(Target) = 6 Then
dat = Left(Target, 2) & "." & Mid(Target, 3, 2) & ".19" & Right(Target, 2)
ElseIf Len(Target) = 8 Then
dat = Left(Target, 2) & "." & Mid(Target, 3, 2) & "." & Right(Target, 4)
End If
If dat <> "" Then
Application.EnableEvents = False
Target.Value = dat
Application.EnableEvents = True
End If
End If
End Sub

Gruß Matthias
Anzeige
AW: Datum ohne Punkt eingeben - Korrektur
15.08.2005 11:02:32
Matthias
Hallo Johnny,
Max hat mich die führende Null erinnert:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim dat As String
If Target.Count > 1 Then Exit Sub
If IsNumeric(Target) Then
If Len(Target.Text) = 5 Then
dat = "0" & Left(Target, 1) & "." & Mid(Target, 2, 2) & ".19" & Right(Target, 2)
ElseIf Len(Target.Text) = 6 Then
dat = Left(Target, 2) & "." & Mid(Target, 3, 2) & ".19" & Right(Target, 2)
ElseIf Len(Target.Text) = 7 Then
dat = "0" & Left(Target, 1) & "." & Mid(Target, 2, 2) & "." & Right(Target, 4)
ElseIf Len(Target.Text) = 8 Then
dat = Left(Target, 2) & "." & Mid(Target, 3, 2) & "." & Right(Target, 4)
End If
If dat <> "" Then
Application.EnableEvents = False
Target.Value = dat
Application.EnableEvents = True
End If
End If
End Sub

Gruß Matthias
Anzeige
DANKE!!!
15.08.2005 11:12:15
Johnny
DANKE!
Hat funktioniert!!!
AW: Datum ohne Punkt eingeben
15.08.2005 10:56:34
Cordula
Guten Morgen Johnny,
am einfachsten ohne VBA / benutzerdefiniert geht es, wenn du statt Punkt über die Zifferntastatur das "geteilt"-Zeichen nimmst. Excel macht daraus automatisch einen Punkt.
LG
Cordula
AW: Datum ohne Punkt eingeben
15.08.2005 10:58:04
M@x
Hi,
wenn du das Datum als Text (damit die führend Null nicht verloren geht) ohne Punkt eingibst, hilft folgende Formel
=DATUM(RECHTS(A1;4);TEIL(A1;3;2);LINKS(A1;2))
mit VBA könntest du es in der gleichen Zelle machen
Gruss
M@x
Anzeige
AW: Datum ohne Punkt eingeben
15.08.2005 11:41:42
Galenzo
um auf dem ziffernblock zu bleiben:
einfach das MINUS-Zeichen als Trenner benutzen (oder auch das GETEILT - das MINUS ist aber leichter zu treffen)
also 1-1-5 eingeben und in der zelle wird daraus 01.01.2005
oder in deinem Fall: 15-12-70
Viel Erfolg!
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Datum ohne Punkt eingeben in Excel


Schritt-für-Schritt-Anleitung

Um ein Datum in Excel ohne Punkt einzugeben, kannst du die folgende VBA-Lösung nutzen. Diese Methode ermöglicht es dir, das Datum schnell über den Ziffernblock einzugeben.

  1. Öffne dein Excel-Dokument.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Wähle das entsprechende Tabellenblatt im Projektfenster aus.

  4. Füge den folgenden Code in das Modul ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
       Dim dat As String
       If Target.Count > 1 Then Exit Sub
       If IsNumeric(Target) Then
           If Len(Target.Text) = 5 Then
               dat = "0" & Left(Target, 1) & "." & Mid(Target, 2, 2) & ".19" & Right(Target, 2)
           ElseIf Len(Target.Text) = 6 Then
               dat = Left(Target, 2) & "." & Mid(Target, 3, 2) & ".19" & Right(Target, 2)
           ElseIf Len(Target.Text) = 7 Then
               dat = "0" & Left(Target, 1) & "." & Mid(Target, 2, 2) & "." & Right(Target, 4)
           ElseIf Len(Target.Text) = 8 Then
               dat = Left(Target, 2) & "." & Mid(Target, 3, 2) & "." & Right(Target, 4)
           End If
           If dat <> "" Then
               Application.EnableEvents = False
               Target.Value = dat
               Application.EnableEvents = True
           End If
       End If
    End Sub
  5. Schließe den VBA-Editor und gehe zurück zu Excel.

  6. Gib dein Datum im Format "DDMMYY" (z.B. 15121970) in die Zelle ein.


Häufige Fehler und Lösungen

  • Fehler: Eingabe wird nicht korrekt formatiert.

    • Lösung: Stelle sicher, dass der VBA-Code korrekt eingefügt wurde und dass die Makros in deinen Excel-Einstellungen aktiviert sind.
  • Fehler: Das Datum wird nicht richtig interpretiert.

    • Lösung: Überprüfe die Länge der eingegebenen Zahlen und passe den Code entsprechend an.

Alternative Methoden

Falls du keine VBA-Lösungen verwenden möchtest, kannst du auch das "geteilt"-Zeichen verwenden, um das Datum ohne Punkt einzugeben:

  1. Gib dein Datum mit dem geteilt-Zeichen ein (z.B. 15/12/1970).
  2. Excel wandelt dies automatisch in das richtige Datumsformat um.

Eine weitere Option ist, das Datum als Text einzugeben und dann mit einer Formel zu konvertieren:

=DATUM(RECHTS(A1;4);TEIL(A1;3;2);LINKS(A1;2))

Diese Formel wandelt das Datum in Excel ohne Punkt um.


Praktische Beispiele

  • Beispiel 1: Du gibst "15122000" in die Zelle A1 ein. Nach der Anwendung des VBA-Codes wird das Datum in "15.12.2000" umgewandelt.
  • Beispiel 2: Mit der Formel in Zelle B1, wenn A1 "15122000" ist, wird das Ergebnis "15.12.2000" sein.

Tipps für Profis

  • Verwende die Text-Funktion, um sicherzustellen, dass führende Nullen nicht verloren gehen.
  • Experimentiere mit verschiedenen Trennzeichen (z.B. Minuszeichen oder geteilt) für eine schnellere Dateneingabe.
  • Du kannst die VBA-Lösung anpassen, um die Umwandlung für verschiedene Datumsformate zu ermöglichen.

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass Excel das Datum korrekt erkennt?
Stelle sicher, dass du das Datum im richtigen Format eingibst und die entsprechenden Einstellungen in Excel überprüfst.

2. Was kann ich tun, wenn VBA nicht funktioniert?
Überprüfe, ob Makros in Excel aktiviert sind. Du kannst auch die Excel-Optionen auf Standard zurücksetzen.

3. Gibt es eine Möglichkeit, die Eingabe ohne VBA zu automatisieren?
Ja, du kannst das "geteilt"-Zeichen oder das Minuszeichen verwenden, um das Datum schnell einzugeben, ohne VBA zu verwenden.

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