Freitag nachmittag ...
19.11.2004 15:40:08
Dominic
kann mir jemand helfen? Hab wohl was mit den Augen. Wo ist hier der Fehler?
Private Sub Workbook_Open()
Dim change_to As String
On Error Resume Next
ChDrive Left(ThisWorkbook.Path, 2)
ChDir ThisWorkbook.Path
Do While change_to = False
change_to = Application.GetOpenFilename(FileFilter:="MS Excel *.xls, *.xls", Title:="Please update links by choosing one file!")
Loop
ThisWorkbook.ChangeLink ThisWorkbook.LinkSources, change_to, xlLinkTypeExcelLinks
End Sub
Gruß
Dominic
Anzeige