Monat aus Datum auslesen

Monat aus Datum auslesen von Tobi vom 31.03.2005 10:12:11

AW: Monat aus Datum auslesen - von c0bRa am 31.03.2005 10:14:50
- AW: Monat aus Datum auslesen - von Tobi am 31.03.2005 10:27:26
AW: Monat aus Datum auslesen - von Worti am 31.03.2005 10:17:08
AW: Monat aus Datum auslesen - von Tobias Marx am 31.03.2005 10:21:22

Betrifft: Monat aus Datum auslesen von: Tobi
Geschrieben am: 31.03.2005 10:12:11

Hallo zusammen,
hab folgendes Problem:
Ein Datum im Format TT.MM.YYYY soll in nebenstehender Zelle als Monat ausgegeben
werden, z.B. 01.05.2005 als "Mai". Mit der Funktion Monat() hab ichs nur
geschafft, die aktuelle Monatszahl anzugeben ( im obigen Beispiel also die "5").Gibt es in Excel eine Funktion, mit der man obiges Problem lösen kann??
Vielen Dank schon im Vorraus für eure Hilfe.

Gruss

Tobi

Betrifft: AW: Monat aus Datum auslesen von: c0bRa
Geschrieben am: 31.03.2005 10:14:50

hallo...

probier mal statt
=MONAT(A1)
folgende formel:
=TEXT(A1;"MMMM")

Rückmeldung nicht vergessen...

c0bRa

Betrifft: AW: Monat aus Datum auslesen von: Tobi
Geschrieben am: 31.03.2005 10:27:26

Hallo c0bRa,

hat funktioniert, vielen Dank.

Gruss

Tobi

Betrifft: AW: Monat aus Datum auslesen von: Worti
Geschrieben am: 31.03.2005 10:17:08

Hallo,
formatiere die Ergebniszelle benutzerdefiniert mit MMMM

Gruß Worti

Betrifft: AW: Monat aus Datum auslesen von: Tobias Marx
Geschrieben am: 31.03.2005 10:21:22

Servus!

Etwas "unelegant" programmiert, aber es tut seinen Zweck:

Sub monat()
  datum = ActiveCell.Value
  monat1 = Month(datum)
  ActiveCell.Offset(0, 1).Activate
  If monat1 = 1 Then ActiveCell.Value = "Januar"
  If monat1 = 2 Then ActiveCell.Value = "Februar"
  If monat1 = 3 Then ActiveCell.Value = "März"
  If monat1 = 4 Then ActiveCell.Value = "April"
  If monat1 = 5 Then ActiveCell.Value = "Mai"
  If monat1 = 6 Then ActiveCell.Value = "Juni"
  If monat1 = 7 Then ActiveCell.Value = "Juli"
  If monat1 = 8 Then ActiveCell.Value = "August"
  If monat1 = 9 Then ActiveCell.Value = "September"
  If monat1 = 10 Then ActiveCell.Value = "Oktober"
  If monat1 = 11 Then ActiveCell.Value = "November"
  If monat1 = 12 Then ActiveCell.Value = "Dezember"
End Sub

Gruss

Tobias