Verknüpfungen entfernen bzw. nicht aktualisieren!
27.04.2005 08:50:28
DonFiala
auf der Suche nach einem Makro das verknüpfungen löscht, bzw. verhindert dass diese aktualisiert werden, wurde mir folgendes Makro zur Verfügung gestellt. Leider bringt es einen Fehler in der Zeile mit "xls". Habe auch schon ".xls" probiert, aber gleicher Fehler :-(
Wer weiss Rat oder hat das geniale Makro das ich suche? Vielen Vielen Dank
Sub XLS_Verknüpfung_Trennen()
For Each zellen In Sheets(1).UsedRange
If zellen.HasFormula Then
If InStr(1, zellen.Formula, "xls") > 1 Then
zellen.Copy
On Error Resume Next
zellen.PasteSpecial xlValues
On Error GoTo 0
End If
End If
Next
End Sub