Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
15.10.2025 13:31:47
WENN Formel mit zwei Bedingungen über 4 Spalten...
15.10.2025 13:24:59
Werte aller 4 Zeilen eintragen
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datumeingabe als TT.MM.JJJJ erscheinen

Forumthread: Datumeingabe als TT.MM.JJJJ erscheinen

Datumeingabe als TT.MM.JJJJ erscheinen
13.12.2006 12:59:10
Sophie
Hallo liebe Freunde!
Wie kann ich Excel dazubringen, wenn ich 01012000 eingebe, dass er das weiß und 01.01.2000 erscheinen lässt ?
Hat jemande eine Idee?
Wäre sehr-sehr dankbar !!!!
Alles Liebe !
Sophie
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datumeingabe als TT.MM.JJJJ erscheinen
13.12.2006 13:16:25
Oberschlumpf
Hi Sophie
Dieses Bsp bezieht sich auf Spalte A:
1. Dieses Bsp "verlangt" die Werteingabe so:
TTMMJJJJ
Falsch wäre
TTMMJJ
2. zuerst allen betroffenen Zellen in Spalte A das Format Text zuweisen
3. dann diesen Code einfügen

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then '1 steht für Spalte A, 2 = B, 3 = C usw - musst du vielleicht anpassen (du verrätst ja nicht, in welcher Spalte deine Daten stehen)
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
Target.Value = Left(Target.Value, 2) & "." & Mid(Target.Value, 3, 2) & "." & Right(Target.Value, 4)
Target.NumberFormat = "m/d/yyyy" 'Zelle wird automatisch von Textformat auf Datumsformat umgestellt
Target.HorizontalAlignment = xlRight 'Wert wird rechts ausgerichtet
Application.EnableEvents = True
End If
End Sub

Konnte ich helfen?
Ciao
Thorsten
Anzeige
AW: Datumeingabe als TT.MM.JJJJ erscheinen
13.12.2006 13:16:51
EtoPHG
Hallo liebe Sophie,
...ich 01012000 eingebe, dass er das weiß und 01.01.2000 erscheinen lässt ?
Fragen über Fragen:
Wer ist er ?
Wo gibst Du das ein, in eine Zelle, eine Textbox, Userform... ?
Wie soll Excel diese Eingabe von einer 'normalen' Zahl unterscheidn ?
Was heisst erscheinen lassen ?... Willst Du mit dem Datum weiterrechnen
Beispiel in A1 steht 01012000 in B1 steht diese Formel:

=DATUM(RECHTS(A1;4);LINKS(RECHTS(A1;6);2);LINKS(A1;LÄNGE(A1)-6))

,d.h. mit B1 kannst Du wie mit einem Datum rechnen.
... oder, soll die Zelle nur so formatiert werden, d.h. Du machst keine Bezüge auf diese Zelle?
Dann kannst Du die Zelle A1 so formatieren: Benutzerdefiniert 00"."00"."0000
Gruss Hansueli
Anzeige
AW: Datumeingabe als TT.MM.JJJJ erscheinen
13.12.2006 15:25:43
Sophie
Hallo lieber Thorsten, lieber Hansueli,
habe ausprobiert! beides funktioniert! COOL!!!
Thorsten, kleine Frage, könnte ich den Code nicht an die ganze Spalte, sondern nur an ausgewählte Zeilen beziehen? (F8, J8, I25, M25)?
Vielen lieben Dank!!!!
Herzliche Grüße
Sophie
AW: Datumeingabe als TT.MM.JJJJ erscheinen
13.12.2006 17:36:44
EtoPHG
Hallo Sophie,
Wenn Du diesen Code in DieseArbeitsmappe kopierst, führt er auf Rechtsklick in eine beliebige Zelle oder einen Zellenbereich (eines beliebigen Blattes der besagten Mappe) die sogenannte "Sophiesche Datumswandlung" durch, sofern in der Zelle eine Wert steht, der sich auch umwandeln lässt.

Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim cCell As Range
On Error Resume Next
Application.EnableEvents = False
For Each cCell In Target
cCell.Value = DateSerial(Right(cCell, 4), Left(Right(cCell, 6), 2), Left(cCell, Len(cCell) - 6))
Next
Application.EnableEvents = True
Cancel = True
End Sub

Gruss Hansueli
Anzeige
AW: Datumeingabe als TT.MM.JJJJ erscheinen
13.12.2006 18:41:39
Oberschlumpf
Hi Sophie
Bin wieder daaa...die Zeit mit den Weihnachtsfeiern beginnt nun auch für mich :-)
Meinst du Zeilen oder Zellen?
Ich vermute, du meinst Zellen.
Versuch es mal so:

Private Sub Worksheet_Change(ByVal Target As Range)
'dieser Code wird nur ausgeführt, wenn ein Wert DER Zellen geändert wird,
'die in der folgenden Befehlszeile aufgeführt sind
If Intersect(Target, Range("F8, J8, I25, M25")) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Application.EnableEvents = False
Target.Value = Left(Target.Value, 2) & "." & Mid(Target.Value, 3, 2) & "." & Right(Target.Value, 4)
Target.NumberFormat = "m/d/yyyy"
Target.HorizontalAlignment = xlRight
Application.EnableEvents = True
End Sub

Konnte ich helfen?
Ciao
Thorsten
Anzeige
;

Forumthreads zu verwandten Themen

Datum in der Userform formatieren
Nadine

Hallo,
ich habe im VBA eine Userform erstellt. In einem der Textfelder soll ein Datum stehen.
Wenn Buchstaben in dieser Textbox stehen, soll keine Übertrabung in die -von mir vorgesehen- Excelzelle erfolgen.
Bitte um HILFE!!!
Vielen Dank
Nadine
18.08.2008 16:17:00
Thread-ID: 1002660
7 Beiträge
Datum in einem Range Formatieren
TomTom

Hi,
ich möchte per Makro einen Range auf dem Tabellenblatt "Tabelle5" deffinieren (zB. C5:C40) und in diesem das Datum auf TT.MM.JJJJ stellen, egal was vorher für ein Format stand (ob amerikanisch, ob Deutsch, JJJJ.MM.TT.....)
Wie formatiere ich einen Range in dieses datumsformat ?
...
06.11.2008 13:13:00
Thread-ID: 1022256
10 Beiträge
Datum mit Bedingte formatieren färben
CarstenAS

Hallo
Wie erreiche ich mit der bedingten formatierung dass ich alle zeilen mit selben datum in einer farbe bekomme
meine Liste ist so aufgebaut in spalte A steht ein Datum nun möchte ich alle Werte die mit dem 01.02.2009 beginnen zb grün sind alle werte die 02.02.2009 beginnen rot sind...
08.02.2009 12:47:31
Thread-ID: 1048270
3 Beiträge
Anzeige
Formel erkennt Datum nicht
dieter

Ich habe Formeln erstellt, in denen Zellen mit Datumsinhalten verglichen werden.
Die Zellinhalte stammen aus einer Datenbank.
Die Zellen sind zwar als Datum formatiert, die Inhalte stehen aber linksbündig.
Die Formelergebnisse werden dann korrekt, wenn ich jede Datumszelle aktiviert...
01.07.2009 15:16:18
Thread-ID: 1085756
8 Beiträge
ddmmyy oder ttmmjj
dieter

Hallo Forum,
mit der unten stehenden Excelformel (die ich hieraus dem Forum habe)
erreiche ich,dass das Datum (steht in J19) und die zahl zweier kalenderwochen (zb. Woche 27 +28) ohne punkt und komma als zahl geschrieben wird.
Beispiel: 10.07.09 und die Wochen 27 +28 werden dann dar...
13.07.2009 13:36:11
Thread-ID: 1087989
2 Beiträge
Datumfeld im Makro nur als tt.mm.JJJJ ohne Zeit
walter

Moin moin,
ich habe ein Makro welches im Durchlauf nen Datum setzt [Cells(1, 2).Value = Date] und damit entsprechend weiterarbeitet. Nun scheint es so zu sein, daß in diesem Makrodatum auch die Uhrzeit des Makrolaufes mitgezogen wird, welches, wenn das Makro zu spät gestartet wird, zu falsc...
07.10.2009 14:29:05
Thread-ID: 1107833
3 Beiträge
Datum in Zahlenreihe umformatieren
petrig

Hallo zusammen,
ich stehe vor folgender Knacknuss. ich sollte verschiedene exceltabellen miteinander verknüpfen. Leider sind die Datumanzeigen verschieden
1.file: 10.12.2009
2.file: 20091210 (amerikanisch - nur als zahlenreihe)
Frage: Wie kriege ich aus der zahlenreihe des 2....
14.10.2009 08:38:16
Thread-ID: 1109499
7 Beiträge
Zext in Zahl formatieren funktioniert nicht
Mandy

Hallo
ich möchte ein paar Spalten , wo zahlen drin stehen, aber als Text formatiert sind, per Makro in eine zahl mit Tausendertrennzeichen und 2 Nachkommastellen formatieren.
Dim c As Range
For Each c In Range("A10:A1111,D10:D1111")
If c "" And c "-" Then
c = c * 100
...
19.10.2009 14:11:50
Thread-ID: 1110648
8 Beiträge
=Text(I10;"tt.mm.jj hh:mm") mit Fehler
Stef@n

Hallo ExcelFreunde
ich steh vor einem Rätsel,
in der Zelle I10 steht 04.11.2009 17:34
Wenn ich in der Zelle I11 die o.a. Formel erfasst =Text(I10;"tt.mm.jj hh:mm)
wird mir interessanterweise
04.34.09 17:34
ausgewiesen ?
Was ist denn an der Formel falsch ? Ha...
01.12.2009 14:24:59
Thread-ID: 1121230
3 Beiträge
Anzeige
Datumsformat ins englische
Werner

Hallo
ich habe ein Datumsfeld mit dem folgenden Format "TT.MM.JJJJ"
Benötige dieses aber im JJJJ-MM-TT Format.
Was kann ich tun?
Vielen Dank!
02.12.2009 08:12:07
Thread-ID: 1121324
4 Beiträge
Datumsformat ohne TEXT (englisch vs. deutsch II)
Doro

Hallo Ihr Lieben,
und das nächste Problem mit unterschiedlichen Sprachen...
Ich habe in einer Zelle A1 eine auswählbare Kategorie (z.B. Customer) und in einer anderen Zelle A2 einen auswählbaren Zeitraum, z.B. Mrz 09 für März 09. Daraus soll sich eine Überschrift zusammensetzen, z.B. "C...
09.12.2009 17:05:12
Thread-ID: 1122664
3 Beiträge
Englisches Wörterbuch in deutschem Excel ?
Goos

Hallo,wie kann ich eine englische Rechtschreibprüfung in EXCEL 97 durchführen ???
10.04.2002 16:15:19
Thread-ID: 112161
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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