Datumsformat "ddd.dd.mm.yyyy"
29.12.2008 14:31:19
Sonnenpeter
habe mal wieder ein Problem mit dem DATUM.
Die nachfolgenden Makros funktionieren werden aber im Aufbau noch verbessert.
Private Sub UserForm_Initialize()
Dim Datum1, EDatum1, EDatum2 As Date
Datum1 = Date
Wochentag1 = Weekday(Datum1)
ZF1 = Format(Datum1, "####0")
If Wochentag1 = 2 Then
ZF1 = ZF1 - 4
ZF2 = ZF1 + 1
Else
ZF1 = ZF1 - 1
ZF2 = ZF1 + 1
End If
EDatum1 = Format(ZF1, "dd.mm.yyyy")
EDatum2 = Format(ZF2, "dd.mm.yyyy")
Me.ComboBox1.AddItem EDatum1
Me.ComboBox1.AddItem EDatum2
End Sub
Private Sub ComboBox1_Change()
Tester2 = CLng(CDate(ComboBox1.Value))
MsgBox ComboBox1.Value & " Test " & Tester2
End Sub
Wenn ich in der Userform
EDatum2 = Format(ZF2, "ddd.dd.mm.yyyy")
formatiere geht nix mehr.
Soll heißen die Umwandlung mit CDate in eine Zahl funktioniert nicht.
Excel lässt EDatum1 = Format(ZF1, "ddd.dd.mm.yyyy") nicht zu Laufzeitfehler 13 wird angezeigt.
Die Userform sollte aber Do.25.12.2008 bzw. Fr.26.12.2008.
Ich hoffe das ich mich verständlich ausgedrückt habe :-)
Gruß Sonnenpeter