---

Hallo zusammen

Ich versuche gerade ne ganze Reihe Hyperlinks zu "suchen/ersetzen"
Dass hat eigentlich erstmal gut funktioniert. Nun hat sich die Zahl der links erhöht und nun hab ich das Problem "nicht genug Speicher"

Lustigerweise, hab ich zwei Codes um Pfade hin und her zu wechslen
der einte funktioniert der andere nicht mehr...

Wie Ihr seht hab ich mit meinen bescheidenen VBA Kenntnissen bereits versucht die Anzahl Zellen zu verkleinern in dem ich die Spalten anwähle, aber es hatte keine Wirkung...

Code:

---

Dim altsv As String, neusv As String
altsv = "\\chafg1.ads\dateneka" 'Groß / klei beachten  !!
neusv = "\\fs2009"
Dim hlk As Hyperlink
'For Each hlk In Sheets("Tabelle1").Hyperlinks 'Tabelle anpassen !
  For Each hlk In Sheets("Tabelle1").Range("F:F,G:G,H:H,I:I").Hyperlinks
    hlk.Address = Replace(hlk.Address, altsv, neusv)
Next
       
End Sub

---

Ich habe auch noch komplett andere Codes ausprobiert, da hat ich dann diverse laufzeitfehler oder sonstiges...

Kann man das in ne Schleife klemmen, mach Zeile für Zeile? Oder Spalte für Spalte?

Gruss und Schönes Wochenende
Robin

PS: Ich schreib auch den Text der Zelle um, hab versucht das Ding auf
Hyperlink.Replace umzubeuen, aber das klappte auch nicht...

Code:

---

    Cells.Replace What:="\\chafg1.ads\dateneka", Replacement:="\\fs2009", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
        False, ReplaceFormat:=False

---

------------------
"Wissenschaft ist entweder Physik oder Briefmarkensammeln"

Ernest Rutherford 1871-1937

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP