Fehler beim
25.08.2016 08:58:52
Sabrina
Hallo Leute,
seit heute habe ich einen Fehler auf meinem Windows 7 Rechner mit Office 2003 den ich bislang nur bei Windows 10 hatte.
Bei öffnen der Datei wird diese Mehtode ausgeführt
Der Code unterbricht an der Stelle : If UCase$(oWorkbook.Name) = "2016.xls" Then
mit dem Fehler :"Fehler beim Kompelieren. Projekt oder Bibliothek nicht gefunden"
hat jemand eine Idee?
LG
Sabrina
Private Sub Workbook_Open()
Dim Version, ort_wahl As Long
fillCombo
Range("ort_wahl") = 1
Version = Range("version")
Application.ScreenUpdating = False
' Öffnen der Strassen.txt
If Version = 1 Then
OpenTextFile ("D:\Auftrag\Strassen.txt")
Else
OpenTextFile ("\\192.168.178.11\Auftrag\Strassen.txt")
End If
Dim bExists As Boolean
Dim oWorkbook As Object
' 2016.xls öffen
' Prüfen ob Datei bereits geöffnet ist
bExists = False
With Application
For Each oWorkbook In .Workbooks
If UCase$(oWorkbook.Name) = "2016.xls" Then
' Jetzt aktivieren
Windows(oWorkbook.Name).Activate
bExists = True
Exit For
End If
Next
End With