title image


Smiley Re: Welche Verwesie sind geladen bzw. aktiviert?
Hallo!



Mit xl97 verwende ich sowas:

'---------------------------------------------------



Private Sub Workbook_Open()

Dim rf(1 To 5) As String

rf(1) = "VBA"

rf(2) = "Excel"

rf(3) = "stdole"

rf(4) = "MSForms"

rf(5) = "Office"



On Error Resume Next

For x = 1 To 5

rsname = rf(x)

Set rs = Application.VBE.ActiveVBProject.References(rsname)

If Err Then

Err.Clear

errmsg = errmsg & rf(x) & vbCr

End If

Next



If errmsg "" Then

errmsg = "Folgende Verweise fehlen:" & vbCr & vbCr & errmsg

MsgBox errmsg

End If

End Sub

'-------------------------------------------------



Gruß

Manes
Ob ich Spotlight gut finde? Also wenn ich ehrlich sein soll, müsste ich lügen!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: