habe eben deine letzte Antwort von Lucie gesehen. Genau das Makro meinte ich! Nun, es liegt an dir, ob du mir noch mal helfen willst.
Also das bekomme ich nicht zum laufen wegen der Einbindung der Textbox
Danke und Gruß Axel
Sub Verknüpfungen_löschen2()
Dim c As Range
Dim frage
' ****
' Ergänzung Hajo
On Error GoTo Fehler1
' *****
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
' ****
' Ergänzung Hajo
Exit Sub
Fehler1:
MsgBox "Es sind keine Verknüpfungen vorhanden" & Chr(13) _
& "Schauen Sie mal unter Einfügen, Namen, Namen Definieren"
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