Verlinkungen mit VBA ansprechen
20.03.2007 12:42:46
Andreas
ich habe Dateien mit vielen Verknüpfungen zu anderen Dateien, die ich jetzt mittels VBA zählen möchte und zwar in allen vorhandenen Tabellenblättern und beschriebenen Zellen. Dabei beginnt eine solche verlinkte Zelle mit "='H:\" Das Laufwerk kann auch I oder J sein.
Meine Prozedur zählt mir aber diese Zellen nicht. Die Programmzeilen dazu sind:
...
For b = 1 To Sheets.Count
For s = 1 To Columns.Count
For z = 1 To Rows.Count
Workbooks(originalDatei).Sheets(b).Activate
If Left(Workbooks(originalDatei).Sheets(b).Cells(z, s).Value, 5) Like "=?:\" Then _
AnzahlVerlinkungen = AnzahlVerlinkungen + 1
If Workbooks(originalDatei).Sheets(b).Cells.SpecialCells(xlLastCell).Row = z Then Exit For
'Außer bei Gesamtkontrolle, wenn in der 2. Datei mehr Zeilen sind
Next
If Workbooks(originalDatei).Sheets(b).Cells.SpecialCells(xlLastCell).Column = s Then Exit For
'Außer bei Gesamtkontrolle, wenn in der 2. Datei mehr Spalten sind
Next
Next
...
Ausgegeben wird mir aber kein Wert. Liegt der Fehler nur beim Hochzählen? Kann mir bitte jemand helfen?
Gruss
Andreas