Links entfernen - für Maria

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


Excel-Version: 97
nach unten

Betrifft: Links entfernen - für Maria
von: Joachim k
Geschrieben am: 25.04.2002 - 14:34:46

Hallo Maria,
hier ein Vorschlag für Dein Problem von gestern :

Sub Verknüpfungen_ersetzen()
Dim Zelle As Object, ersteAdresse$
Dim suchstr As String
On Error Resume Next

suchstr = InputBox("Suchstring eingeben", , "Dateiname")
'erste Verknüpfung finden
Set Zelle = Cells.Find(What:=suchstr, LookIn:=xlFormulas)
If Not Zelle Is Nothing Then
ersteAdresse = Zelle.Address

' MsgBox "Verknüpfung in: " & ersteAdresse & _
' Chr(10) & Chr(10) & "Verknüpfung: " & _
' Chr(10) & Range(Zelle.Address).Formula
Zelle.Value = Zelle.Value
'weitere Verknüpfungen finden
Do
Set Zelle = Cells.FindNext(Zelle)
If Zelle.Address = ersteAdresse Then Exit Do
Zelle.Value = Zelle.Value
Loop While Not Zelle Is Nothing And Zelle.Address <> ersteAdresse
End If
End Sub

Damit kannst Du die Bezüge auf eine bestimmte Tabelle in Werte umsetzen.

Ist es das, was Du brauchst?
Gruß Joachim



nach oben   nach unten

Re: Links entfernen - für Maria
von: Maria
Geschrieben am: 25.04.2002 - 14:49:16

Ich hab's mal an den Frager weitergeleitet. Ist heute nicht im Haus, wird sich also erst später klären. Erst mal vielen Dank!

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Links entfernen - für Maria"