Automatisch Verweis

Forumthread: Automatisch Verweis
1 Beitrag zu diesem Forumthread
Anzeige

Forumthread: Automatisch Verweis

Automatisch Verweis

23.02.2003 11:29:40

Andy

Hallo,

zur Ausführung eines Makros, möchte ich bei Programmstart prüfen, ob der Verweis auf die "Microsoft Scripting Runtime" aktiviert ist. Falls nein, so soll der Verweis aktiviert werden. Kann das jemand ???

Danke

Andy

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: Automatisch Verweis

23.02.2003 12:22:45

Ralf Sögel

Re: Automatisch Verweis

23.02.2003 12:22:45

Ralf Sögel

Das könnte so gehen:
Sub Verweis()
Dim x&
Dim Referenz$
Dim istda As Boolean
Dim MSG%
istda = False
Referenz = "C:\WINDOWS\SYSTEM\SCRRUN.DLL"
'***********************************************************
With ThisWorkbook.VBProject
For x = 1 To .References.Count
If UCase(Referenz) = UCase(.References(x).FullPath) Then istda = True
Exit For
Next
If istda = False Then
MSG = MsgBox("Der Verweis auf:" & Chr(10) & Chr(10) & _
Referenz & Chr(10) & Chr(10) & _
"wurde nicht gefunden! " & Chr(10) & Chr(10) & _
"Soll er jetzt erstellt werden?", 32 + 4, "wills wissen...")
If MSG = 7 Then Exit Sub
If Not Dir(Referenz) = "" Then
.References.AddFromFile Referenz
Else
MsgBox "Die Datei " & Referenz & " ist nicht vorhanden!" & Space(10), 64, "teile mit..."
Exit Sub
End If
Else
MsgBox "Der Verweis auf:" & Chr(10) & Chr(10) & _
Referenz & Chr(10) & Chr(10) & _
"ist vorhanden!", 64, "weise hin..."
End If
End With
End Sub

Gruß Ralf

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!