title image


Smiley Re: Runtime, Verweise, Funktion
Hallo Gerhard,



versuch mal diese Prozedur:



Public Function VerweisSetzen(refFile As String) As String

'Verweis auf die übergebene Bibliothek setzen

'gibt True zurück wenn der Verweis erfolgreich gesetzt

'wurde oder bereits gesetzt war (Error-Nr. 32813



On Error GoTo VerweisSetzenErr



VerweisSetzen = False

Application.References.AddFromFile (refFile)

VerweisSetzen = "Verweis gesetzt"



VerweisSetzenExit:

Exit Function



VerweisSetzenErr:

If Err.Number = 32813 Then

VerweisSetzen = "Verweis gesetzt"

Else

VerweisSetzen = "Verweis konnte nicht gesetzt werden!"

End If



Resume VerweisSetzenExit



End Function



Ansonsten findest du bei Donkarl mehrere Routine für Verweise:

Bugs
Gruß

Wolli     danke für eure Fragen, so weiß ich, daß ich nichts weiß...

geschrieben von


Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: