Herbers Excel-Forum - das Archiv
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 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
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
| |