seltsames (hoffentlich kleines) Problem:
Die Zelle ist formatiert als MMM YY.
Es wird angezeigt Mai 09.
Klickt man aber auf die Zelle erscheint 1.5.2009.
Das Problem hierbei. Diese Werte erscheinen in einer Pivot Tabelle.
Anstatt Mai 09 steht nun 1.5.2009 drin.
Wie kann man das lösen? Wir kriegen aus unserem System teils seltsame
Datumsangaben, die ich per unten stehendem Makro ändere.
Hat jemand eine Lösung, es wäre wichtig.
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