Re: Verknüpfungen löschen
26.02.2003 09:50:10
Klaus Kunkler
Hi Christian,
das folgende Makro habe ich aus der Recherche. es stammt vom HaJo, wie so viele Super ToolsSub Verknüpfungen_löschen2()
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
' Ergänzung Hajo
' *******
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
'Es wird in der aktiven Arbeitsmappe bei ALLE Verknüpfungen gefragt o ersetzen und
'dann ob Verknüpfung erhalten bleiben soll, bei Nein wird die Zelle leer
' von Berti