Probleme Datumsausgabe
25.11.2016 12:49:55
Benjamin
ich schreibe gerade an einer Vorlage welche die Eingabe von Daten für mehrere Länder ermöglicht. Jetzt habe ich das Problem das Teilweise das Datum nicht korrekt angezeigt wird. Die Länder welche damit arbeiten sind unter anderen China, Ungarn, UK, Deutschland, Mexico, etc... Mein Problem ist gerade, wenn ich das Datum für ein Land hinbekomme, wird es bei einem andren wieder Fehlerhaft angezeigt. Ich arbeite eigentlich auch mit dem deutschen Ländercode 407 und deswegen verstehe ich das auch nicht so wirklich. Meine erste Frage: Bezieht der Ländercode sich nur auf die Anzeige? Hier mal mein code:
With Me.Monat 'Datum kann über Listenfeld ausgewählt werden tt.mm.jjjj
For ZählerMonat = 8 To 15
datum11 = ThisWorkbook.Sheets("Auswahl").Cells(ZählerMonat, 3)
datum11 = Format(datum11, "[$-407]dd.mm.yyyy")
.AddItem datum11
Next
.ListIndex = 0
End With
If Monat.Value = "Please choose a month" Then
MsgBox "Please choose a month"
Exit Sub
Else
On Error Resume Next
Worksheets("KD").Cells(3, 2) = Format(Monat.Value, "[$-407]MMM YY")
vormonat = DateAdd("m", -1, Monat.Value)
Worksheets("KD").Cells(8, 1) = Format(vormonat, "[$-407]MMM YY")
nächsterMonat = DateAdd("m", 1, Monat.Value)
Worksheets("KD").Cells(20, 1) = Format(nächsterMonat, "[$-407]MMM YY")
nächsterMonat2 = DateAdd("m", 2, Monat.Value)
Worksheets("KD").Cells(21, 1) = Format(nächsterMonat2, "[$-407]MMM YY")
End If
Das Problem ist jetzt soweit ich es verstehe, dass z.B. bei Ungarn statt einem Monat ein Jahr addiert wird. Hatte angenommen, dass ich das Problem durch die Eingabe vom Ländercode [$-407] umgehen könnte, was jetzt aber nicht der Fall ist. Die "DateAdd("m", 1, Monat.Value)" dürfte doch in vba überall gleich berechnet werden?
Ich hoffe ich habe mich halbwegs verständlich ausgedrückt :-)
Schon mal vorab vielen Dank für eure Hilfe!!
P.S. Ich habe den Ländercode [$-407]sowohl in vba, als auch in Excel als benutzerdefiniertes Format übernommen.