Verknüpfungen
17.12.2007 16:49:00
Salim
Hallo zusammen,
Ich habe einen Code gebastelt, der eine andere Datei öffnet und prüft ob ein bestimmtes Blatt vorhanden ist. Es funktioniert auch alles. Das Problem was ich habe ist, dass diese andere Datei, die vom Makro geöffnet wird, selber Verknüpfungen auf weiteren Dateien enthält. Automatisch kommt durch das Öffnen dieser Datei das Fenster ob man die Verknüpfungen aktualisieren möchte oder nicht. Ich habe versucht diese Meldung mit Displayalerts = false zu unterdrücken, leider ohne Erfolg.
Wäre Dankbar für einen Feedback.
Gruss
Salim
Private Sub Ergebnisdatei_veknüpfen_Click()
Application.ScreenUpdating = False
Dim fn
fn = Application.GetOpenFilename(FileFilter:="Excel-Arbeitsmappen,*.xls", Title:="Bitte _
Datei auswählen")
If fn = False Then
'Nothing
GoTo Continuer3
End If
Application.EnableEvents = False
Application.DisplayAlerts = False
Set wb = GetObject(fn)
notexist = True
For Each i In wb.Sheets
If i.Name = "Tabelle1" Then
notexist = False
Exit For
End If
Next
wb.Close SaveChanges:=False
Application.DisplayAlerts = True
Application.EnableEvents = True
If notexist Then
MsgBox ("Bitte Dateiauswahl wiederholen")
GoTo Continuer3
Else
End If
Dateinamemitxls = Left(Dir(fn), Len(Dir(fn)))
Dateinameohnexls = Left(Dir(fn), Len(Dir(fn)) - 4)
AltPfad = fn
PfadL = Len(fn)
DatL = Len(Left(Dir(fn), Len(Dir(fn))))
Verz = Mid(AltPfad, 1, PfadL - DatL)
Worksheets("Übersichtsblatt").Range("C5:C22").Replace What:="Standardblatt!", Replacement:=" _
'" & Verz _
& "[" & Dateinamemitxls & "]" & "Standardblatt'!", LookAt:=xlPart, SearchOrder:=xlByRows _
, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Continuer3:
For Each wks In ActiveWorkbook.Worksheets
wks.Unprotect
wks.EnableOutlining = True
wks.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingColumns:=True, userInterfaceOnly:=True
Next wks
Application.ScreenUpdating = True
End Sub