Automatisierungsfehler
11.01.2013 16:21:46
Andreasser
Habe heute ein Problem mit einer Zeiterfassung, welche ich in Excel erstellt habe, und zwar kommt wenn ich das File öffne gleich eine Meldung: "Automatisierungsfehler"
Das File hat Makros, und wenn ich diese deaktiviere, dann kommt die Meldung auch nicht.
Als erstes habe ich gegoogelt und bin auf einen Lösungsansatz gestossen, hatte etwas mit der registrierung von mscomctl.ocx zu tun, half aber leider nicht.
Ich habe nun systematisch ein Makro ums andere entfernt, das Problem blieb.
Also machte ich mich an Modul6 (enthält selbst geschriebene Funktionen) und nach entfernen einer bestimmten Funktion trat das Problem nicht mehr auf.
Ich bin aber nicht überzeugt, dass diese Funktion den Fehler verursacht, es könnte auch sein, dass gewisse Zellen, wenn die Funktion nicht existiert einfach einen ungültigen Wert aufweisen und die wahre Ursache des Problems so nicht mehr zum Zuge kommt.
Aber um die Fehlerquelle Funktion trotzdem ausschliessen zu können, möchte ich euch bitten, meine Funktion auf mögliche faux-pas zu überprüfen:
Option explicit
'Gibt die Nummer des Monats xxx zurück
Public Function Monatszahl(Monatsnam As String)
'Array mit Monatsname erstellen
Dim Arr_Monat
Arr_Monat = Array("Übersicht", "Januar", "Februar", "März", "April", "Mai", "Juni", " _
Juli", "August", "September", "Oktober", "November", "Dezember")
For Monatszahl = 0 To 12
If Arr_Monat(Monatszahl) Like Monatsnam Then
Exit For
End If
Next
End Function
