Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 16:22:17
Datum ist nicht Datum :(
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...
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
360to364
360to364
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Macro zum konvertieren von Text in Datumsformat

Forumthread: Macro zum konvertieren von Text in Datumsformat

Macro zum konvertieren von Text in Datumsformat
07.01.2004 15:11:55
Matthias
Hallo,
ich habe in einer Excel Tabelle unter anderem eine derartige Spalte:
20031123
20040102
19990513
19991110
19970526
19960823

Hierbei handelt es sich um Daten im amerikanischen Format ohne Trennzeichen. Die Felder an sich haben das Text-Format.
Ich möchte jetzt ein Makro haben, welches mir die Daten in das deutsche Format, sprich TT.MM.JJJJ bringt und diese auch wirklich durch einen Punkt als Trennzeichen abtrennt.
Vielen Dank für jegliche Hilfe !
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Macro zum konvertieren von Text in Datumsformat
07.01.2004 15:22:48
Bertram
Hallo Matthias,
mal ohne VBA:
Schreibe in die Zelle neben deinem ersten Datum (Text)
=TEIL(A17;7;2)&"."&TEIL(A17;5;2)&"."&LINKS(A17;4)
und kopiere die Formel nach unten (A17 gilt nur in meinem Bsp).
Gruß
Bertram
AW: Macro zum konvertieren von Text in Datumsformat
07.01.2004 15:43:35
Bernd Kiehl
Hallo Matthias,
dein Problem hatte ich auch einmal und habe mit dem Makrorekorder nachfolgenden Makro aufgezeichnet. Deine vorgegebene Zahlenkolonne habe ich in meinem Beispiel in A1 bis A& stehen (musst du bei dir dem entsprechend anpassen)
Gruss Bernd
Sub dat()
'
' dat Makro
' Makro am 07.01.2004 von Bernd Kiehl aufgezeichnet
'
'
Range("A1:A6").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
FieldInfo:=Array(Array(0, 1), Array(4, 1), Array(6, 1))
Range("D1").Select
ActiveCell.FormulaR1C1 = "=DATE(RC[-3],RC[-2],RC[-1])"
Selection.AutoFill Destination:=Range("D1:D6"), Type:=xlFillDefault
Range("D1:D6").Select
Selection.Copy
Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("B1:D6").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("A1:A6").Select
Selection.NumberFormat = "m/d/yyyy"
End Sub
... anschießend hatte ich nachfolgendes Ergebnis
Anzeige
Nachtrag
07.01.2004 15:52:48
Bernd Kiehl
Hallo Matthias,
mein Makro setzt voraus, dass rechts neben deiner Zahlenkolonne drei Spalten frei sind, da das Makro deine Zahl erst nach rechts aufteilt, dann ins Datumsformat umwandelt und als Werte kopiert in deine Ursprungszelle wieder einfügt wird.
Da ich kein VBA-Profi bin hoffe ich, dir habe helfen zu können.
Gruss Bernd
Anzeige
AW: Nachtrag
07.01.2004 16:49:40
Matthias
Hallo Bernd,
vielen Dank. Funktioniert bestens !
Gruß
Matthias
Danke für die Rückmeldung - o.T.
07.01.2004 16:57:08
Bernd Kiehl
.
;

Forumthreads zu verwandten Themen

Verketten von Text und Datumswerten
Text

Hallo!
Ich möchte eine eindeutige ID erstellen lassen und dazu eine vierstellige Zahlenfolge mit dem Datum / der Uhrzeit verketten.
Etwa so: =verketten(B2;" ";jetzt())
in B2 steht eine vierstellige Zahlenfolge z.B. 1234 Als Datumswert nutze ich TT.MM.JJJJ hh:mm.
Leider wird das...
11.08.2008 12:30:00
Thread-ID: 1000804
4 Beiträge
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
Anzeige
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
Datumsüberschreitung und Textfelder zählen
Lemmi

Hallo Beate,
Hallo zusammen,
leider hat Diene Formel noch nicht das gewünschte Ergebnis erbracht !
Es sollen Textfelder und Datums Überschreitungen gezählt werden!
Könnten jemand oder /und Beate noch einmal schauen?
Siehe Datei!
https://www.herber.de/bbs/user/55582.xls <...
22.09.2008 21:16:00
Thread-ID: 1011578
3 Beiträge
Zeile anlegen, dann Datum von heute
heute

Hallo Leute,
ich hab (mal wieder) ein kleines Problem und hoffe auf eure Unterstützung.
Ich habe eine Exceltabelle, in der noch fast nichts drin steht.
Jetzt würde ich es gerne so haben, dass, wenn ich eine neue Zeile anlege (z.B. mit Kundendaten), soll er mir in einer bestimmten Ze...
23.09.2008 16:37:51
Thread-ID: 1011817
12 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
Verketten von Datum und Uhrzeit
Datum

Hallo Zusammen,
ich möchte ein Datum und eine Uhrzeit die in 2 verschiedenen Zellen stehen verketten. Bei der Verkettung wird das Datums und Uhrzeitformat in Zahlen dargestellt. Wie kann man die Verkettung gestalten, dass die Formate erhalten bleiben?
Gruß Rafi
16.12.2008 14:09:00
Thread-ID: 1033272
5 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
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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