Monat als Name verwenden

22/02/2010 - 22:41 von Daniel Frei | Report spam
Hallo zusammen

Ich hab da mal eine "kleine" Frage:
In Zelle I1 steht das aktuelle Datum, nun möchte ich mittels VBA das Datum
in Zelle J1 als Text ausgeben (nur den Monat).
Folgendes habe ich versucht:

Zelle J1 Benutzerdefiniert Formatiert (MMM)
dann folgenden Code:

Dim Datum As Date
Dim DatumTxt As String

Sub Datum()

Datum = Range("I1").Value
DatumTxt = Day(Datum) & "-" & Month(Datum) & "-" & Year(Datum) & " " &
Format(Time, "HH MM")
Cells(1, 10) = DatumTxt

End Sub

Leider bekomme ich ein Format, welches ich nicht weiterverwenden kann. Ich
bràuchte nur Text. Denn im Anschluss sollte das Sheet kopiert und mit dem
Monatsnamen (J2) benannt werden.
Den Code habe ich aus einer anderen Excel Datei. Dort wird die Datei unter
dem Aktuellen Datum mir Uhrzeit abgespeichert.

Wie muss ich meinen Code àndern, damit ich in J2 den Monat aus I1 als Text
bekomme?
Danke schon mal für Eure Hilfe

Gruss Daniel

*********************************
Nur wer fragt kommt im Leben weiter.
Ein kluger Mann macht nicht alle Fehler selbst. Er gibt auch anderen eine
Chance. --
"Winston Churchill"
_______________________
Win 7
Office 2007 Enterprise
 

Lesen sie die antworten

#1 Dietmar Vollmeier
22/02/2010 - 22:54 | Warnen spam
Guten Abend Daniel!

*Daniel Frei* schrieb am 22.02.2010 um 22:41 Uhr...
Ich hab da mal eine "kleine" Frage:
In Zelle I1 steht das aktuelle Datum, nun möchte ich mittels VBA das Datum
in Zelle J1 als Text ausgeben (nur den Monat).



8<-->8
Sub Test()
[J1] = Format([I1], "mmmm")
End Sub
8<-->8

HTH
Servus | Wenn man alle Ausnahmen im Griff hat,
Didi | erinnert sich niemand mehr an die Regeln,
| für die diese Ausnahmen gegolten haben.

Ähnliche fragen