String in Datum umwandeln - Am Verzweifeln-

Sub KlapptNet strPeriodTAG = strPeriodTAG & "-" & strYear ' ZUM BEISPIEL Okt-10 datPeriod = CDate(strPeriodTAG) 'bringt ganz was Falsches With RNGPERIOD .HorizontalAlignment = xlLeft .NumberFormat = "mmm-yy" .Value = strPeriodTAG .FormulaR1C1 = datPeriod .Value = .Value End With ' In die Zelle wird zwar Okt-10 geschrieben, aber es wird nicht als Datum erkannt! End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

He Luc,
erweise mir die Ehre, an deiner Weisheit teilhabe zu lassen, Sensei!
Schmeiss mir keine Kokosnuss aus zehn Meter Höhe auf meinen Bauch,
sondern erkläre mir warum:
Jetzt habe ich 01.10.2010 (wie vorgeschlagen) in die Zelle geschrieben.
NumberFormat gesetzt blabla
Und dennoch: Erst wenn ich in die Befehlszeile gehe und ENTER drücke,
wird korrekt Okt 10 angezeigt.
Wieso? Ich mache doch .value = .value.
Hier das ganze Makro:

Public Function CreatePeriodTag(ByVal RNGPERIOD As Range)
Dim strPeriodTAG As String, strPeriodDWH As String, strYear As String
Dim i As Integer, intYear As Integer
Dim varTemp As Variant
strPeriodDWH = RNGPERIOD.Value
For i = 1 To Len(strPeriodDWH)
varTemp = Mid(strPeriodDWH, i, 1)
If IsNumeric(varTemp) = True Then
intYear = intYear & varTemp
End If
Next i
strYear = CStr(intYear)
strPeriodDWH = UCase(Left(RNGPERIOD.Value, 3))
Select Case strPeriodDWH
Case "JAN"
strPeriodTAG = "01.01."
Case "FEB"
strPeriodTAG = "01.02."
Case "MAR"
strPeriodTAG = "01.03."
Case "APR"
strPeriodTAG = "01.04."
Case "MAY"
strPeriodTAG = "01.05."
Case "JUN"
strPeriodTAG = "01.06."
Case "JUL"
strPeriodTAG = "01.07."
Case "AUG"
strPeriodTAG = "01.08."
Case "SEP"
strPeriodTAG = "01.09."
Case "OCT"
strPeriodTAG = "01.10."
Case "NOV"
strPeriodTAG = "01.11."
Case "DEC"
strPeriodTAG = "01.12."
End Select
strPeriodTAG = strPeriodTAG & "20" & strYear
With RNGPERIOD
.HorizontalAlignment = xlLeft
.FormulaR1C1 = strPeriodTAG
.NumberFormat = "mmm-yy"
.Value = .Value
End With
RNGPERIOD.Value = RNGPERIOD.Value
End Function

…2.Code, Holger,
nun gut zum zweiten…
1. So schreibt man keine Fkt, auch nicht, wenn sie nur für Subroutinengebrauch bestimmt ist!
2. Du ersetzt .FormulaR1C1 mit dem Datumswert, der keine Fml ist. Das kann man bei Zellen, die keine Fmln enthalten, durchaus machen, aber da es sich hier um keinen Datumswert, sondern einen Text handelt, bleibt das auch Text — .Value = .Value nutzt da gar nichts, zumal du ja auch noch eine Eigenschaft benutzt hast, die eigentl eine Fml mit Z1S1-Adressen in US-englischer Notation erwartet. Wenn das Erfolg haben soll, ist die Verwendung von CDate bzw DateSerial deutlich angebrachter.
3. Aber auch so hätte es evtl klappen können, wenn du…
- erst formatierst und dann…
- die FormulaLocal-Eigenschaft benutzt (statt FormulaR1C1)
Denn das Ganze erinnert doch sehr an die Reaktion von Xl, wenn man Formula eine dt (lokale!) Fml zuweist…
Reicht das als „Erklärung“?
Gruß Luc :-?

Beliebteste Forumthreads (12 Monate)

String in Datum umwandeln - Am Verzweifeln-

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

352 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

String in Datum umwandeln - Am Verzweifeln-

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

352 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread