2te anfrage Verknüpfungen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: 2te anfrage Verknüpfungen
von: Achim H.
Geschrieben am: 12.04.2005 11:42:51
Hallo Excel Freunde
Ich habe Excel 97
in einer meiner Dateien sind Verknüpfungen die durch kopieren der Dateien
entstanden sind. Diese Veknüpfüngen möchte ich finden lassen und anschließend
diejenigen die ich nicht möchte löschen.
Dazu hatte ich mal über dieses Forum ein Tool bekommen.
Leider habe ich dieses Tool nicht mehr.
Wer kann mir dieses Toll noch einmal zur Verfügung stellen oder mir Mitteilen wo ich es bekommen kann.
Tausend Dank:-)

Gruß
Achim H.

Bild

Betrifft: AW: 2te anfrage Verknüpfungen
von: bennyhamburg
Geschrieben am: 12.04.2005 15:05:37
hi,
ich weiß zwar nicht mehr woher ich ihn habe, aber ich benutze folgenden code:

Sub Verknüpfungen_löschen()
Dim c As Range
Dim frage
For Each c In ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
If InStr(1, UCase(c.Formula), "XLS]") <> 0 Then
' c.Select
frage = MsgBox("Soll der Wert der Zelle" & Chr(13) _
& Chr(9) & c.Address & Chr(9) & c.FormulaLocal & Chr(13) _
& "als Zellwert eingetragen werden?" & Chr(13), vbYesNo, _
"Verknüpfung als Wert schreiben?")
If frage = vbYes Then
c.Value = c.Text
Else
frage = MsgBox("Soll die Verknüpfung erhalten bleiben" & Chr(13) _
& Chr(9) & c.Address & Chr(9) & c.FormulaLocal & Chr(13) & Chr(13) _
& "Bei ""Nein"" wird der Zellinhalt gelöscht", vbYesNo, _
"Verknüpfung erhalten?")
If frage = vbNo Then c.Value = ""
End If
End If
Next
End Sub

Gruß bennyhamburg
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Array permanent speichern"