aus month(date) Monatsnamen "MMM"

Question

Hallo,

ich will aus einem Datum den 3stelligen Monatsnamen ableiten.

monat = Format(Month(ActiveCell), "MMM")

Die Formel bringt als Ergebnis aber immer nur "JAN" obwohl da Datum im Dezember liegt. Was mache ich da falsch? Danke für euren Tipp!
Gruß

Answer 1

hi Ahorn ^^

monat = Mid(Month(ActiveCell), 1, 3)

gruss nighty

Answer 2

Hallo nighty,,
danke für deine schnelle Antwort. Aber bei mir kommt da als Ergebnis nur "12" heraus anstelle "Dez"....?

Answer 3

hi Ahorn ^^^

besser so
wat nur aus dem stehgreif und natuerlich falsch :-)

Mid(MonthName(Month(ActiveCell)), 1, 3)

gruss nighty

Answer 4

..perfekt! Danke. Schön wieder mal was von dir gehört zu haben! Wie immer seeeehr hilfreich,
Gruß

Answer 5

Hallo Andreas,



Option Explicit

Sub test()
Dim monat
monat = Format(CDate(ActiveCell), "mmm")
MsgBox monat
End Sub


Gruß
Rainer

Answer 6

hi all ^^

rainer seine antwort ist die präzisere antwort,hatte keine zeit zum nachschauen :-)

gruss nighty

Answer 7

"Month" ist überflüssig (und falsch).

Format(ActiveCell, "mmm")

mfg, Massaraksch

Answer 8

Danke euch ALLEN für eure Antworten!!
Gruß A.