AW: Excel Verknüpfungen löschen
23.10.2008 15:43:52
David
Hallo Leo,
bei mir (Excel 2003) geht der Code, hängt dann also mit der Version zusammen. Vielleicht geht das dort gar nicht?!
Ich hatte für mich mal ein Makro geschrieben, das die einzelnen Zellen nach externen Verknüpfungen durchsucht (indem einfach der entsprechende Dateiname gesucht wird) und in diesen Zellen dann die Werte einfügt. Vielleicht kannst du das für deine Zwecke verwenden und entsprechend umschreiben. Wenn die externe Datei immer wieder eine andere ist, muss man die Suche vielleicht umschreiben, aber prinzipiell ist das sicher anwendbar.
Option Explicit
Sub werte()
Dim Zeile, i, j, Wahl, Check As Double
On Error Resume Next
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Wahl = MsgBox("Mit dieser Funktion werden in den Spalten H:K alle Zellen, in denen eine Formel" _
& Chr(13) _
& "auf eine externe Datei verweist, durch ihren momentanen Wert ersetzt." _
& Chr$(13) & Chr$(13) & "Weiter?", vbYesNo)
If Wahl = vbYes Then
Zeile = Range("H1000").End(xlUp).Row
For i = 10 To Zeile
For j = 8 To 11
With Cells(i, j)
Check = InStr(1, .Formula, "Germany Workpapers") + InStr(1, .Formula, "balance _
SAP")
If Check 0 Then
.Value = .Value
End If
End With
Next
Next
End If
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Gruß
David