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

Forumthread: String in Datum umwandeln

String in Datum umwandeln
30.11.2013 14:40:05
karl
hallo VBA Profis,
in spalte a habe ich ein datum stehen, welches ich mit vba
umwandele (Ergebnis in Spalte D)
einen Teil hab ich schon hinbekommen
aus : Dienstag, 15. Januar 2013 erzeuge ich 15. Januar 2013
Wie bekomme ich hierraus ein "richtiges" datum
Gewünscht: 15.01.2013
hier komme ich nicht weiter..
https://www.herber.de/bbs/user/88327.xls
Dankeschön
karl

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: String in Datum umwandeln
30.11.2013 14:51:17
Hajo_Zi
Hallo Karl,
Option Explicit
Private Sub CommandButton1_Click()
Dim i As Integer
For i = 2 To 100
If Cells(i, 2)  "" Then
Cells(i, 4) = Mid(Cells(i, 2), InStr(Cells(i, 2), " ") + 1)
Cells(i, 4) = CDate(Left(Cells(i, 4), Len(Cells(i, 4)) - 2))
Cells(i, 4).NumberFormat = "dd.mmmm.yyyy"
End If
Next i
End Sub

Anzeige
AW: String in Datum umwandeln
30.11.2013 15:03:32
karl
Hallo Hajo,
dankeschön,
das funktioniert schonmal sehr gut
aber
ab der zweiten zeile schreibt mir das Makro bei allen folgenden zeilen
die jahreszahl 2020
hast du hierfür eine Erklärung
habe deinen code 1:1 so eingesetzt
karl

AW: String in Datum umwandeln
30.11.2013 15:09:03
Hajo_Zi
Hallo Karl,
war mir nicht aufgefallen.
Ändere in Deinem Code diese Zeile
Cells(i, 4) = CDate(s)
und ergänze
Cells(i, 4).NumberFormat = "dd.mmmm.yyyy"
Gruß Hajo

Anzeige
Nöö, Cells(i, 4).NumberFormat = "dd.mm.yyyy"
30.11.2013 15:27:28
Matthias
Hallo
Karl wollte aber den Monat als 2stellige Zahl ;-)
also:
        Cells(i, 4) = CDate(s)
Cells(i, 4).NumberFormat = "dd.mm.yyyy"
Gruß Matthias

AW: Nöö, Cells(i, 4).NumberFormat = "dd.mm.yyyy"
30.11.2013 15:45:16
karl
Hallo Hajo, hallo Matthias
vielen dank euch beiden
läuft perfekt
karl
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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