Kalender-Makro funktionert nicht immer
01.02.2017 00:18:00
Markus
ich habe aus dem Netz ein Makro, um einen Kalender in einer Userform aufzurufen. Klappt auch wunderbar in meinem Excel. Habe es aber bei einem Kollegen versucht und der bekommt immer den Fehler Error 13 (type mismatch). Es wurde nichts geändert, habe die Datei 1zu1 nur weiter geschickt. Wir beide nutzen Excel2013.
Jetzt habe ich mal geguckt wo im Code der Fehler kommt und zwar dort (ist fett markiert):
...
' Initialisierung
bolPostActiveMonth = False
If varMonth "" Then dMonth = varMonth ' Falls bei Aufruf der Prozedur mittels der optionalen Variable "varMonth" ein Monat (Zahl) übergeben wurde, diese verwenden
intCounter = 1
intDayCounter = Weekday("01." & dMonth & "." & dYear, vbMonday)
intStartKW = "01." & dMonth & "." & dYear
intWeekCounter = 1
datLastDayMonth = fLastDayInMonth("01." & dMonth & "." & dYear)
intLastDayMonth = Mid(datLastDayMonth, 1, 2)
intVormonat = 0
...
Weiß jemand einen Rat?
Danke und Grüße