VorredirectLink ()
Schwaches rng als Strecke
Für jedes rng in ActiveSheet.UsedRange.Cells
Wenn rng. Hyperlinks.Count = 1 dann
Mit rng. Hyperlink (1)
. Adresse = ersetzen (. Adresse, „ServerX“, „ServerY“, 1, vbTextCompare)
.TextToDisplay = ersetzen (.TextToDisplay, „ServerX“, „ServerY“, 1, vbTextCompare)
Ende mit
Beenden wenn
Zunächst
Enden-Unterseeboot
|