Microsoft Excel

Herbers Excel/VBA-Archiv

Datum aus String | Herbers Excel-Forum


Betrifft: Datum aus String von: Daniel
Geschrieben am: 19.01.2012 15:17:42

Hallo,

ich möchte aus dem Dateinamen der Datei, deren Daten ich per Makro verarbeite, das Datum extrahieren. Der Dateiname hat immer das Format
abcdef_ddMMYY.xlsm
Also für heute abcdef_190112.xlsm.
Ich bin bis hier gekommen:

Dim datum As Date
datum = Split(Right(wkb.Name, 13), ".")(0)

Wie wandle ich den String nun in das Datum um??

Grüße
Daniel

  

Betrifft: AW: Datum aus String von: Rudi Maintaire
Geschrieben am: 19.01.2012 15:38:59

Hallo,
als Anregung:

Sub xxxx()
  Dim strDat As String, dteDat As Date
  Const strWkb As String = "abcdef_190112.xlsm"
  strDat = Left(Split(strWkb, "_")(1), 6)
  dteDat = DateSerial(Right(strDat, 2) * 1, Mid(strDat, 3, 2) * 1, Left(strDat, 2) * 1)
End Sub

Gruß
Rudi


  

Betrifft: Super, danke. o.T. von: Daniel
Geschrieben am: 19.01.2012 15:52:14

..


Beiträge aus den Excel-Beispielen zum Thema "Datum aus String"