Date - Typen unverträglich
09.07.2018 12:22:45
chaosoft
ich habe ein kleines Problem, und zwar habe ich folgendes Sub, welches mir ein Datum ausgeben soll.
Es ist Absicht, dass in der Variable Datum der Name des Monats als String gespeichert ist. Bis jetzt wurde, bei der Zuweisung zu Datum, das so entstehende Datum automatisch in das Format DD.MM.YYYY umgewandelt und auch so ausgegeben.
Private Sub x()
Dim Datum As Date
Dim Monat As String, Jahr As Integer
Monat = Format(DateSerial(Year(Date), 7, 1), "MMMM")
Jahr = Format(DateSerial(Year(Date), 0, 1), "YYYY")
Datum = "01." & Monat & "." & Jahr
MsgBox Datum
End Sub
Das ganze klappte bis jetzt auch wunderbar (sowohl auf meinem, als auch auf anderen PCs). Seit kurzem aber kommen immer mehr Leute mit einer Fehlermeldung (Laufzeitfehler 13 - Typen unverträglich) zu mir. Ich kann dies leider nicht nachstellen, da bei mir der Fehler nicht auftritt.Habt ihr vielleicht eine Idee?
Beste Grüße
chaosoft