Ersetzen von Bestandteilen in Hyperlinks

[Icepic]

Hallo zusammen,

ich bin es schon wieder.

In meiner Anwendung verändere ich mit dem Befehl

With Application.Intersect(Range("D11:D16,D18:D22,D25:D38,D40:D44").EntireRow, .EntireColumn)
            'in den kopierten Formeln "Firma 1" durch "Firma imax+1" ersetzen
            .Replace What:="Firma 1", Replacement:="Firma " & iMax + 1, LookAt:=xlPart, SearchOrder:=xlByRows, _
            MatchCase:=False, _SearchFormat:=False, ReplaceFormat:=False

die Bestandteile von Formeln nach einem Kopiervorgang.

Leider befindet sich in der Zelle D11 ein Hyperlink auf ein anderes Tabellenblatt, welcher entsprechend angepasst werden muss.

Wer hat eine Idee?

Gruß Michael

[WillWissen]

Hi Michael,

deine Anordnung der Zellbereiche hat in deinem Beitrag eine Reihe von Smilies produziert. Falls du so etwas bemerkst, schalte sie doch bitte ab. Das erhöht die Lesbarkeit erheblich.

Innerhalb der ersten Stunde kannst du deinen Beitrag editieren (Klick auf Bearbeiten) und dann ein Häkchen setzen bei Smilies ausschalten:

[
Bild bitte so als Datei hochladen: Klick mich!
]

[Fennek]

Hallo,

den Hyperlink in D11 auszulesen sollte mit

debug.print cells(11,4).hyperlinks

gehen. Wenn der Zugriff gelingt, ist auch eine Änderung leicht möglich.

Falls es nicht klappt, eine kleine Tabelle nur mit D11 und dem neuen Namen hochladen.

mfg