Herbers Excel-Forum - das Archiv

Links entfernen - für Maria

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


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

Excel-Beispiele zum Thema "Links entfernen - für Maria"
Fehler entfernen Alle leeren Zeilen und Spalten entfernen
Zeilenumbrüche im aktiven Blatt entfernen Zeichen in Zeichenfolgen umwandeln und Leerzeichen entfernen
In mehrere Spalten doppelte Inhalte entfernen Leerzeichen zwischen Zeichen- und Zahlenfolge entfernen
Entfernen der letzten beiden Zeichen in Listenelementen In jeder Zeile einer Textdatei 1. und letztes Zeichen entfernen
Buchstaben aus Textdatei entfernen und neu speichern Alle Hyperlinks eines Arbeitsblattes entfernen