Verknüpfungen löschen
30.03.2007 11:47:06
gerwas
Hallo weite Welt - mal wieder
Mit nachfolgendem Code habe ich Probleme
Sobald die Laufvariable den Wert 13 erreicht bekomme ich einen Laufzeitfehler 1004! Warum??
Sub zv()
Dim alleLinks As Variant
alleLinks = ActiveWorkbook.LinkSources(Type:=xlLinkTypeExcelLinks)
For z = 1 To UBound(alleLinks)
ActiveWorkbook.BreakLink Name:=alleLinks(z), Type:=xlLinkTypeExcelLinks
Next
End Sub
Hier eine Liste der Verknüpfungen in der Arbeitsmappe:
01 G:\daten\2007\DB_LW.xls
02 G:\daten\2007\DB_JB.xls
03 G:\daten\2007\DB_LF.xls
04 G:\daten\2007\DB_ZS.xls
05 G:\daten\2007\DB_VD.xls
06 G:\ergeb\2007\02\owi_csv\430.xls
07 G:\ergeb\2007\01\owi_csv\530_OV.xls
08 G:\ergeb\2007\02\owi_csv\530_OV.xls
09 G:\ergeb\2007\01\owi_csv\330_OV.xls
10 G:\ergeb\2007\02\owi_csv\330_OV.xls
11 G:\ergeb\2007\02\owi_csv\430_OV.xls
12 G:\ergeb\2007\01\owi_csv\430_OV.xls
13 G:\ergeb\2007\01\owi_csv\372pp2.xls
14 G:\ergeb\2007\01\owi_csv\420.xls
15 G:\ergeb\2007\02\owi_csv\420.xls
16 G:\ergeb\2007\01\owi_csv\430.xls
17 G:\ergeb\2007\01\owi_csv\373pp2.xls
18 G:\ergeb\2007\02\owi_csv\372pp2.xls
19 G:\ergeb\2007\02\owi_csv\373pp2.xls
gruss GerWas