Hallo,
ich habe ein Makro geschrieben, welches auf diversen anderen PCs mit Excel 2010 läuft. Versuche ich es jedoch auf meinem (auch Excel 2010) meldet er mir Laufzeitfehler 13 Typen unverträglich.
Sub datumn()
Dim datum2
Dim i, idatum3 As Integer
Dim dDatum5 As Date
j = 2
datum1 = format(Now(), "dd.mm.yyyy")
datum2 = format(Application.WorksheetFunction.Min(Range("D1:E12"), Sheets("18-85-2").Range("D1:E12")), "dd.mm.yyyy")
datum14 = DateAdd("d", 13, datum1)
datum28 = DateAdd("d", 27, datum1)
iDatum4 = DateDiff("d", datum1, datum2)
idatum3 = iDatum4 * -1
Liegt es an irgeneiner Einstellung in Excel, dass das nur bei mir nicht funktioniert?
|