Debugg ThisWorkbook.VBProject.References
15.05.2020 09:07:36
michlchen80
ich habe ein makro in der Abteilung und bei einigen Kollegen steigt er hier bei der Stelle
ThisWorkbook.VBProject.References
aus...
hier der ganze code.
MSCOMCTL = False
With ThisWorkbook.VBProject.References
For i = 1 To .Count
If InStr(1, .Item(i).FullPath, "MSCOMCTL.OCX", 1) > 0 Then
MSCOMCTL = True
Exit For
End If
Next i
If Not MSCOMCTL Then 'add reference if "Common Controls" not already activated
#If VBA7 And Win64 Then
ThisWorkbook.VBProject.References.AddFromFile ("C:\WINDOWS\system32\MSCOMCTL. _
OCX")
#Else
ThisWorkbook.VBProject.References.AddFromFile ("C:\WINDOWS\SysWOW64\MSCOMCTL. _
OCX")
#End If
End If
End With
wie kann man das verhindern?
bzw. woran liegt es? an manchem rechner geht es, an anderen nicht.
danke.