VBA Problem mit Format(Date)
17.03.2008 21:07:45
abaSisa
beschäftige mich seit einiger Zeit etwasmit VBA und dabei haben mir die Beiträge dieses Forums immer wieder geholfen...
Leider habe ich jetzt ein Problem, für dessen Lösung ich Eure Hilfe benötige:
Ich vba'le gerade an einem Workbook herum, in dem auf eingien Sheets Datumsangaben zu machen sind, diese ziehe ich dann für einen Vergleich heran. Dafür reicht mir ja ein Format.
Die Datumsangabe soll in der Form: März 08 in einer zelle ausgegeben werden. Das funktioniert ja über: Cells(i,j) = Format(Date, "mmmm yy") (sollte es zumindest)
Im März ist das auch kein Problem. In der Zelle erscheint das Datum im "Standard" - Format.
Im April bekomme ich aber auf einmal 08. Apr und im als Format wird dann das benutzerdefinierte "TT. MMM" angezeigt, obwohl es in die Zelle mit obigem Format geschrieben werden sollte...
Hier dann auch der Code (habe das Problem mal separiert und als Private Sub verfasst):
Private Sub CommandButton1_Click()
Dim Bereich As Range
Dim AktDatum, TestDatum, AktMonat, AktJahr As String
Dim ActMonth1 As Integer
i = Cells(1, 10)
Cells(i, 1) = Format(Date, "mmmm yy")
Cells(1, 10) = i + 1
Cells(i, 2) = Format(CDate(DateSerial(Year(Date), Month(Date) + 0, 1)), "mmmm yy")
AktJahr = Format(CDate(DateSerial(Year(Date), 1, 1)), "yy")
AktMonat = Format(CDate(DateSerial(Year(Date), Month(Date) + 1, 1)), "mmmm")
Cells(i, 3) = AktMonat & " " & AktJahr
AktDatum = Format(CDate(DateSerial(Year(Date), Month(Date) + 1, 1)), "mmmm yy")
Cells(i, 4) = AktDatum
Set Bereich = ActiveSheet.Columns(3).Find(AktDatum)
ActMonth1 = Bereich.Row
Cells(i, 5) = ActMonth1
End Sub
Das Problem zieht sich weiter durch das ganze Jahr. es gibt Monate, in denen ich den richtigen Ausdruck erhalte und es gibt Monate, da bekomme ich wieder den falschen Ausdruck (April, Januar, Februar, September).
Woran liegt das und wie kann ich es programmieren?
thx
abaSisa
Anzeige