ich würde gerne in C7 das Datum vom 1.Dezember 2002 stehen haben, wenn in C4 "Dezember 2002" als Text (!) steht.
Ich hab folgendes probiert:
[C7] = Worksheet.Function.DateValue(Range("C4"))
Aber es geht nicht.
Kann mir wer helfen?
LG, Nino.
versuch's mal mit [c7] = CDate([c4])
Gruss Otto
Gruß Boris
Vielleicht gibt es eine weitere Vereinfachung, wenn man betrachtet, woher der Inhalt von C4 herkommt, nämlich von der mittleren Kopfzeile ("Oktober 2001"). Um die Formatierungszeichen wegzubekommen, habe ich mir mit einer Variablen v geholfen. Der Kopfzeilentext beginnt erst nach "&11".
Die Zeilenfolge sieht nun so aus:
v = ActiveSheet.PageSetup.CenterHeader
[C4] = Right(v, Len(v) - InStr(1, v, "11") - 1)
[C4] = DateValue("1." & [C4])
Gibt es da eine Vereinfachung? C4 in der dritten Zeile einfach duch den rechten Teil der zweiten Zeile zu ersetzen geht nicht! Habs schon probiert.
LG Nino
[C4] = DateValue("1." & Right(v, Len(v) - InStr(1, v, "11") - 1))
müsste eigentlich funktionieren.
Gruß Boris