AddIn macht ärger
21.09.2015 11:42:43
Herbert
in dem AddIn habe ich folgenden Code in einem StdModul:
Sub Auto_Open()
Dim DLLPath$, iRow%, sCol$
iRow = shFunctions.Cells(shFunctions.Rows.Count, 1).End(xlUp).Row
sCol = Chr(shFunctions.Cells(1, Columns.Count).End(xlToLeft).Column + 64)
sCol = "A2:" & sCol & iRow
DLLPath = ThisWorkbook.Path & "\Brandschutz.dll"
If Dir(DLLPath) = "" Then
MsgBox "Die Datei ""Brandschutz.dll"" ist nicht installiert! " & _
vbLf & "Bitte installieren Sie sie!", vbOKOnly + vbExclamation, "Brandschutz"
Exit Sub
End If
Application.RegisterXLL ThisWorkbook.Path & "\Brandschutz.dll"
Run [FunCustomize], ThisWorkbook.Name, shFunctions.Range(sCol)
End Sub
In der Zeile "sCol = Chr(shFunctions...." bleibt er mit der folgenden Fehlermeldung stehen:
"Die Methode 'Columns' für das Objekt '_Global' ist fehlgeschlagen."
Allerdings nicht auf meinem Rechner, sondern nur auf einem externen Firmenrechner. Habt Ihr evtl. eine Idee, woran das liegen kann?
Vielen Dank im Voraus.
Servus