Makro für Datumsumwandlung
Holger
oft hat man aufgrund von Ländereinstellungen oder Formatierungen das Problem, dass ein Datum von Excel nicht als Datum erkannt wird. Das folgende Makro wandelt Monate (z.B Dec09) in das richtige Datumsformat um. Code kann ja je nach Bedarf angepasst werden. Falls es jemand brauchen kann ....
Sub FormatPeriods()
Dim c As Range
Dim strMonat As String
Dim strJahr As String
Dim strPeriode As String
Dim strZelleStart As String
Dim intFirstCell As Integer
Dim strFirstCell As String
Dim lngRow As Long
Dim intZaehler As Long
strZelleStart = InputBox("Bitte die erste Zelle eingeben, in der ein Periodentext zu finden _
ist", "Perioden Formatieren; Spalte auswählen", "C21")
intFirstCell = Right(strZelleStart, 2)
strFirstCell = Left(strZelleStart, 1)
intZaehler = 1
For lngRow = intFirstCell To Range(strFirstCell & Rows.Count).End(xlUp).Row
If Range(strFirstCell & lngRow).Value "" Then
Range(strFirstCell & lngRow).NumberFormat = "mmm-yy"
strMonat = Left(Range(strFirstCell & lngRow).Value, 3)
strJahr = Right(Range(strFirstCell & lngRow).Value, 2)
strJahr = "20" & strJahr
strPeriode = strMonat & "-" & strJahr
Range(strFirstCell & lngRow).FormulaR1C1 = strPeriode
intZaehler = intZaehler + 1
End If
Next
MsgBox "Es wurden " & intZaehler & " Periodentexte in Datum formatiert (mmm-yy)"
End Sub