AW: VBA.UCase
28.02.2011 15:23:31
Frank
Gut dann meckert er bei Chr...Ich vermute mal, dass ich da jetzt auch VBA davor schreiben soll. Aber warum ist das so? Ich habe hier zwei Rechner einer mit Excel 2007 und einer mit 2010. Bei 2007 gehts bei 2010 startet der Code nicht. Wie müßte ich den Code anpassen?
Option Explicit
Sub Verweis_auf_Solver()
Dim strSolver As String, lngVersion As Long, x As Long, bolFound As Boolean, msg As Integer
bolFound = False
lngVersion = Val(Application.Version)
''Hier ggf. das Laufwerk anpassen
strSolver = "c:\programme\microsoft office\office" & lngVersion & "\makro\solver\solver.xla"
If Dir(strSolver) "" Then
With ThisWorkbook.VBProject
For x = 1 To .References.Count
If UCase(strSolver) = UCase(.References(x).FullPath) Then bolFound = True
Next
If Not bolFound Then
msg = MsgBox("Der Verweis auf:" & Chr(10) & Chr(10) & _
strSolver & Space(10) & 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
'wenn ja geklickt, Verweis hinzufügen
.References.AddFromFile strSolver
Else
MsgBox "Der Verweis auf:" & Chr(10) & Chr(10) & _
strSolver & Space(10) & Chr(10) & Chr(10) & _
"ist vorhanden!", 64, "weise hin..."
End If
End With
Else
MsgBox "Der Solver ist unter dem angegebenen Pfad nicht installiert!" & Space(10), 64, " _
Weise hin..."
End If
End Sub
Wäre schön, wenn mir die Frage aus dem Anfangsbeitrag beantwortet werden könnte, wie man immer die nötigen Verweise die man zum ausführen des Codes (allgemein) anschalten kann, sobald man die Datei auf einem anderen Rechner verwendet.
Vielen Dank und viel Grüße
Frank