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

Datum in Text konvertieren

Forumthread: Datum in Text konvertieren

Datum in Text konvertieren
07.11.2006 11:32:57
Markus
Ich möchte gerne eine Spalte die eine Datumangabe enthält in einen Text umwandeln. Das Problem:
Der Text soll die Datumsformatierung berücksichtigen.
Beispiel
aus 01.01.2006 soll der string "01.01.2006" werden.
aus 08.Mrz soll der String "08.Mrz" werden.
Die Funktion Text(A1;"TT.MM.JJJJ") kann ich aus diesem Grund nicht verwenden.
Kennt jemand eine Alternative ?
Danke für Eure Hilfe !!
VG Markus
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Datum in Text konvertieren
07.11.2006 11:49:30
Ptonka
Hallo Markus,
wenn Du nur die beiden o.a. Formate nutzt, dann geht folgendes:
=WENN(ZELLE("Format";A1)="D1";TEXT(A1;"TT.MM.JJJJ");WENN(ZELLE("Format";A1)="S";TEXT(A1;"TT. MMM.");""))
Gruß,
Ptonka
AW: Datum in Text konvertieren
07.11.2006 11:52:08
ChrisL
Hallo Markus
Hier eine Makrolösung:

Sub t()
Dim Zelle As Range
For Each Zelle In Selection
Zelle = "'" & Zelle.Text
Next Zelle
End Sub

Gruss
Chris
Anzeige
AW: Datum in Text konvertieren
07.11.2006 11:57:19
EtoPHG
Hallo Chris,
Das "'" kannste weglassen.
Zelle = Zelle.Text
Gruss Hansueli
AW: Datum in Text konvertieren
07.11.2006 12:04:25
ChrisL
Hallo Hansueli
Hast recht, danke für den Hinweis
Chris
AW: Datum in Text konvertieren
07.11.2006 12:42:05
Markus
Super !!!
Vielen Dank !!!!
hat funktioniert !
Anzeige
AW: Datum in Text konvertieren - Makrolösung
07.11.2006 12:00:25
fcs
Hallo Markus,
per Makro gehts. Du muss halt schauen ob du das eingestellte Zellformat abfragen willst, oder ob die Unterscheidung nach Textlänge ausreicht.
Makro im VBA-Editor in ein Modul kopieren.
Zellen mit Datum markieren, dann Makro starten
Gruß
Franz

Sub DatuminText()
Dim Zelle As Range, Bereich As Range
Set Bereich = Selection
For Each Zelle In Selection
If IsDate(Zelle) Then
If Len(Zelle.Text) < 10 Then oder
If Zelle.NumberFormatLocal = "TT.MMM" Then
Zelle.Value = Format(Zelle, "DD.MMM")
Else
Zelle.Value = Format(Zelle, "DD.MM.YYYY")
End If
End If
Next
End Sub
Anzeige
;

Forumthreads zu verwandten Themen

Suchfunktion - TextBox kein Text sondern Datum
Frank

Hallo Liebe Excelgemeinde!!!
In einer UserForm befindet sich folgender Code um bestimmte Einträge zu suchen. Da in der TextBox1 aber kein Text sondern ein Datum steht funktioniert dies nicht, da kommt die Meldung " Suchbegriff wurde nicht gefunden".
Was muss ich ändern, damit auch nach...
21.08.2008 15:35:00
Thread-ID: 1003541
4 Beiträge
Jüngstes Datum in Textstring ausgeben
Markus

Hallo zusammen,
nachdem meine Netzrecherchen nicht zum Ziel führten, anbei mein erster Beitrag in Form einer Frage...
Zum Hintergrund: Für meine Diplomarbeit hab ich ein Makro geschrieben, welches die Pressemitteilungen (ca. 3000) der Firmen einer Industrie aufbereitet. Hierbei bereinig...
25.08.2008 18:19:00
Thread-ID: 1004535
17 Beiträge
Markierte Zellen: Text in Datum umwandeln
Peter

Guten Tag
Mit nachfolgendem Code wandle ich einen Textstring in ein Datum um. Komisch ist, dass ich die Schleife zweimal hintereinander laufen lassen muss. Nach dem ersten Mal wird das Datum mit "d/m/yy" und erst das zweite Mal im gewünschten Format "dd.mm.yy" angezeigt.
Was muss ich än...
15.09.2008 11:41:00
Thread-ID: 1009737
6 Beiträge
Datumseingabe in textbox
Winfried

Guten Tag
was muss ich in einer Textbox für einen Eintrag vornehmen
das in dieser immer das aktuelle Datum angezeigt wird.
Leider bin ich in VBA noch nicht so fit.
Über eine Hilfe von einem Profi würde ich mich sehr freuen.
Gruss
Winfried
05.11.2008 12:39:45
Thread-ID: 1021858
5 Beiträge
Datum in Zahl umwandeln
P.Mackes

Hallo,
was ich machen möchte ist folgendes:
ich habe eine Zahl, die ein Datum darstellt, z.B. 20080507. Dabei handelt es sich NICHT um ein Datumsformat, sondern um eine richtige Zahl. Jetzt muss ich davon allerdings 90 Tage abziehen. Also wandle ich mit Date(left...mid...right) das gan...
27.11.2008 00:37:57
Thread-ID: 1028186
3 Beiträge
Anzeige
Datumswerte in Spalte richtig umwandeln
chris

Hallo zusammen,
ich habe ein Problem und würde ecuh um Hilfe bitten.
ich habe eine Exceldatei.in dieser habe ich eine Spalte in dieser stehen Datumswerte.
Nur das Problem ist manche zellen sind nicht als Datum formatiert das merke ich z.b wenn ich den Autofilre verwende sind die Dat...
02.12.2008 11:57:00
Thread-ID: 1029457
6 Beiträge
Anzeige
Formatiert Text nicht als Datum
Günter

Hallo Zusammen,
ich habe wieder ein sicherlich einfaches Problem.
In Spalte A stehen Werte wie "18.12 15:30".
Die Spalte ist als Datum formatiert.
Um nun ein komplettes Datum mit Jahr zu bekommen habe ich folgendes Makro geschrieben:
Sub JahrErgaenzen() Dim Z As Integer F...
21.12.2008 08:20:33
Thread-ID: 1034520
11 Beiträge
Datum in TextBox
Steffen

Hallo Zusammen!
Im angehangenden arbeitsblatt habe ich eine userform in ihr möchte ich in der ersten und vorletzten textbox(DATUM u.ENTNOMMEN) beim laden der userform gern das aktuelle datum und bei "ENTNOMMEN" die aktuelle Zeit.
desweiteren währe es schön,wenn die die combobox"EINTRAG...
21.12.2008 19:04:34
Thread-ID: 1034671
5 Beiträge
Datum in Textzeile - Probleme mit Format
Andreas

Hallo zusammen,
ich habe in Excel 2003 ein einfaches Rechnungsformular gebastelt. In diesem Formular gibt es eine Zelle mit dem Zellnamen "RE_Datum" und "Rechnungsbetrag". In diesen Zellen stehen das Datum der Rechnung und der Rechnungsbetrag in Euro. Nun möchte ich am Ende der Rechnung ein...
06.01.2009 20:32:00
Thread-ID: 1037351
3 Beiträge
Datum aus String "herauslösen"
gega

Hallo,
wie bekommt man einfach aus diesem Text
Bsp: Verkaufsdatum: Samstag, 24. Jan. 2009 21:50:06 MEZ
das Datum in der Form TT.MM.JJJJ aus der Sp. C5 nach Sp. A5 ?
Es sind noch Leerzeichen im Datum! Die Uhrzeit hat immer gleiches Format.
Danke
Gruß Gerhard
28.01.2009 08:58:40
Thread-ID: 1044450
7 Beiträge
Anfangs und Enddatum in Textboxen
Leon

Hi Leute
In Textbox1 habe ich ein Anfangsdatum den ich in Tabelle schreibe und in Textbox2 habe ich ein Enddatum den ich auch in Tabelle schreibe.
Wie kann ich erreichen, daß wenn ich in Textbox2 das Datum eingebe die Prüfung erfolgt ob das Datum sicher größer als das Anfangsdatum ist.<...
02.02.2009 23:08:42
Thread-ID: 1046467
4 Beiträge
Anzeige
Zahl in textbox direkt in Datum wandeln
Chris

Hallo Excelperten,
ich schäme mich fast ein wenig, dass ich "VBA gut" bei mir stehen habe und diese Frage stelle, aber irgendwie kommt kommt mir keine passende Idee und im Archiv habe ich auch nichts passendes gefunden.
Also, das Problem:
Ich habe eine userform über die ich diverse...
03.02.2009 11:09:00
Thread-ID: 1046555
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Datum in Text umwandeln in Excel

Schritt-für-Schritt-Anleitung

Um ein Datum in einen Textstring umzuwandeln, kannst Du folgende Schritte befolgen. Diese Anleitung nutzt Excel-Funktionen und VBA.

  1. Verwendung der WENN-Formel:

    • Du kannst die folgende Formel verwenden, um das Datumsformat zu überprüfen und entsprechend zu konvertieren: 
      =WENN(ZELLE("Format";A1)="D1";TEXT(A1;"TT.MM.JJJJ");WENN(ZELLE("Format";A1)="S";TEXT(A1;"TT. MMM.");""))
    • Diese Formel prüft das Format der Zelle und gibt den Textstring zurück.

  2. VBA-Makro verwenden:

    • Öffne den VBA-Editor (Alt + F11) und füge das folgende Makro in ein Modul ein: 
      Sub DatuminText()
Dim Zelle As Range
For Each Zelle In Selection
   If IsDate(Zelle) Then
       If Len(Zelle.Text) < 10 Then
           Zelle.Value = Format(Zelle, "DD.MMM")
       Else
           Zelle.Value = Format(Zelle, "DD.MM.YYYY")
       End If
   End If
Next
End Sub
    • Wähle die Zellen mit den Datumsangaben aus und führe das Makro aus.

Häufige Fehler und Lösungen

  • Fehler: Zelle bleibt leer

    • Lösung: Überprüfe, ob die Zelle tatsächlich ein Datum enthält. Wenn Du das Format überprüfst, achte darauf, dass es korrekt ist.

  • Fehler: Falsches Datumsformat

    • Lösung: Stelle sicher, dass Du das richtige Datumsformat in der Formel oder im Makro verwendest. Beispielsweise "DD.MMM" für Monate abgekürzt.

Alternative Methoden

  1. Text-Funktion: Du kannst die Funktion TEXT verwenden, um ein Datum in einen Textstring umzuwandeln:

    =TEXT(A1;"TT.MM.JJJJ")

    Diese Methode funktioniert jedoch nur, wenn das Datum bereits im richtigen Format vorliegt.

  2. Direkte Eingabe: Falls Du nur mit wenigen Daten arbeitest, kannst Du das Datum manuell als Text eingeben, indem Du ein Apostroph (') vor die Eingabe setzt.

Praktische Beispiele

  • Beispiel 1: Um 01.01.2006 in einen Textstring umzuwandeln, kannst Du die Formel =TEXT(A1;"TT.MM.JJJJ") verwenden.

  • Beispiel 2: Für das Datum 08.Mrz wäre die Formel =TEXT(A1;"TT. MMM.") geeignet.

  • VBA Beispiel: Mit dem oben genannten Makro kannst Du mehrere Zellen gleichzeitig in Text umwandeln.

Tipps für Profis

  • Nutze die ZELLE-Funktion, um das Format einer Zelle dynamisch zu überprüfen und an die jeweilige Datenstruktur anzupassen.

  • Wenn Du regelmäßig Daten in Text umwandeln musst, erstelle ein benutzerdefiniertes VBA-Makro, das Du mit einem Tastenkürzel schnell aufrufen kannst.

  • Experimentiere mit verschiedenen Datumsformaten, um die für Deine Anwendung am besten geeigneten Ergebnisse zu erzielen.

FAQ: Häufige Fragen

1. Wie kann ich ein Datum in einen Textstring in einer anderen Sprache umwandeln? Du kannst die TEXT-Funktion mit einem entsprechenden Sprachformat verwenden, z.B. =TEXT(A1;"TT. MMMM") für den vollständigen Monatsnamen.

2. Funktioniert das auch in älteren Excel-Versionen? Die oben genannten Methoden funktionieren in den meisten Excel-Versionen, aber die VBA-Methoden sind in Excel 2003 und neuer verfügbar. Achte darauf, dass Du die Makros in der richtigen Umgebung ausführst.

Beliebteste Forumthreads (12 Monate)

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