Re: Externe Verknüpfung läßt sich nicht abschalten
05.12.2002 16:25:30
Hajo_Zi
Hallo Karl-Heinzlasse folgendes Makro drüber laufen. Die Verknüpfung brauchst Du ja nicht mehr.
Option Explicit
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) & Chr(13) _
& "Bei ""Nein"" wird der Zellinhalt gelöscht", vbYesNo, _
"Verknüpfung als Wert schreiben?")
If frage = vbYes Then
c.Value = c.Text
Else
c.Value = ""
End If
End If
Next
End Sub
'Es werden in der aktiven Arbeitsmappe ALLE Verknüpfungen entfernt.
'Du hast nur die Auswahl, ob Du den Wert behalten willst, oder ob die Zelle
'leer sein soll.
' von Berti
Sub 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
Code eingefügt mit: Excel Code Jeanie
Gruß Hajo