AW: Text in Datum umwandel vba
Ramses
Hallo
Dann musst du halt deine Buchstaben in Zahlen verwandeln :-)
Wenn du in Deutschland mit den englischen Bezeichnungen arbeitest, musst du diese in deutsche Monatsbezeichnungen umsetzen
Sub DemoDate()
Dim Tag As String, nTag As String
Dim Monat As String, nMonat As String
Dim Jahr As String, nJahr As String
Tag = "9"
Monat = "Dec"
Jahr = "2004"
MsgBox "Der korrekte Tag: " & Day(DateValue(Tag & "." & convert_Month(Monat) & "." & Jahr))
MsgBox "Der korrekte Monat: " & Month(DateValue(Tag & "." & convert_Month(Monat) & "." & Jahr))
MsgBox "Das korrekte Jahr: " & Year(DateValue(Tag & "." & convert_Month(Monat) & "." & Jahr))
End Sub
Function convert_Month(cMon As String) As String
Select Case UCase(cMon)
Case "MAR"
convert_Month = "März"
Exit Function
Case "MAY"
convert_Month = "Mai"
Exit Function
Case "JUN"
convert_Month = "Juni"
Exit Function
Case "OCT"
convert_Month = "Oktober"
Exit Function
Case "DEC"
convert_Month = "Dezember"
Exit Function
Case Else
convert_Month = cMon
End Select
End Function
Viel Spass
Gruss Rainer