mehrere Hyperlinks gleichzeitig ändern?

stefan brugger

unread,

Sep 17, 2003, 12:35:11 PM9/17/03

to

Hallo NG,

ich habe eine Excel Arbeitsmappe in der mehrere Hundert Hyperlinks in
Zellen geschrieben sind. Nun hat sich ein Bezug bei den Hyperlinks
geändert. Ein Laufwerksbuchstabe von D auf E. Gibt es eine Möglichkeit
diese kleine Änderung bei mehrern Hyperlinks gleichzeitig
durchzuführen.
Mit der Suchen und Ersetzen Funktion gehts leider nicht. In den
besagten Zellen gibt es nur diese Hyperlinks sonst nix.
Danke für Eure Hilfe
Gruß
Stefan

Michael Schüller

unread,

Sep 17, 2003, 2:01:27 PM9/17/03

to

Hallo stefan,

Wenn es wirklich nur einen Hyperlink in den Zellen gibt, könntest Du folgenden Code verwenden, um in allen Zellen mit Hyperlinks ein
führendes "D:\" durch "E:\" zu ersetzen:

Sub HyperLinkChange()
Dim vZelle As Range

'alle Zellen im genutzten Bereich prüfen
For Each vZelle In ThisWorkbook.Sheets(1).UsedRange.Cells

With vZelle.Hyperlinks

'Hyperlinks in geprüfter Zelle vorhanden?
If .Count > 0 Then

'beginnt Hyperlink mit "D:\" ?
If UCase(Left(.Item(1).Address, 3)) = "D:\" Then

'Hyperlink umbiegen auf "E:\"
.Item(1).Address = "E:\" & Mid(.Item(1).Address, 4)

'Anzeige des Hyperlink anpassen
.Item(1).TextToDisplay = .Item(1).Address

End If

End With

Next vZelle

End Sub

Hoffe, ich konnte Dir helfen.

Schönen Gruß
--
Michael
michael....@gmx.de

Achim Trawny

unread,

Sep 17, 2003, 2:19:44 PM9/17/03

to

stefan brugger bemerkte dazu :

> Nun hat sich ein Bezug bei den Hyperlinks
> geändert. Ein Laufwerksbuchstabe von D auf E. Gibt es eine Möglichkeit
> diese kleine Änderung bei mehrern Hyperlinks gleichzeitig
> durchzuführen.

Was ist, wenn Du die Daten (auf die sich die Hyperlinks beziehen) nach "E"
verschiebst ?

Gruß, Achim

stefan brugger

unread,

Sep 17, 2003, 3:44:57 PM9/17/03

to

"Michael Schüller half
Hallo Michael,

ich trau mich gar ned fragen aber was bzw. wie kann ich deine netten
und offensichtlich hilfreichen Zeilen weiterverarbeiten. Ich nehme mal
an ich muss ein Makro schreiben (mit dieser Feststellung ist aber mein
Wissen auch schon erschöpft)
Bitte nochmals um Hilfe

Gruß
Stefan

stefan brugger

unread,

Sep 17, 2003, 3:47:38 PM9/17/03

to

"Achim Trawny" schrieb> Was ist, wenn Du die Daten (auf die sich die

Hyperlinks beziehen) nach "E"
> verschiebst ?

Hallo Achim,
das sind Daten in einem Firmennetzwerk die ich von einem Kollegen aus
einer anderen Abteilung bekommen habe. Diese sind für ihn
"zugeschnitten". Da ich aber dieselben Daten/Hyperlinks verwenden kann,
ich aber nur auf ein anderes Laufwerk Zugriff habe, ist dieses
verschieben leider nicht möglich

> Gruß, Achim
ebenso Stefan

Hubert Vigl

unread,

Sep 17, 2003, 3:48:32 PM9/17/03

to

"stefan brugger" <n...@gmx.net> ha scritto nel messaggio
news:8Z%9b.4$jW6.9...@news.salzburg-online.at...
> Hallo NG,

> Mit der Suchen und Ersetzen Funktion gehts leider nicht. In den
> besagten Zellen gibt es nur diese Hyperlinks sonst nix.

Warum nicht geht das nicht?
Alle Zellen markiern
Suchen D:\ und Ersetzen E:\

Hubert

Michael Schüller

unread,

Sep 18, 2003, 12:02:26 PM9/18/03

to

Damit ersetzt Du nur die "Beschriftung", nicht aber den dahinter liegenden "Verweis".

--

Michael Schüller

unread,

Sep 18, 2003, 12:04:57 PM9/18/03

to

Hallo stefan,

> ich trau mich gar ned fragen aber was bzw. wie kann ich deine netten
> und offensichtlich hilfreichen Zeilen weiterverarbeiten. Ich nehme mal
> an ich muss ein Makro schreiben (mit dieser Feststellung ist aber mein
> Wissen auch schon erschöpft)

- rechtsklicke in Deiner .xls auf das Registerblatt irgendeiner Tabelle
- linksclicke im erscheinenden Kontextmenü auf "Code anzeigen". Der VBA-Editor wird angezeigt.
- rechtsklicke im Fenster "Projekt VBA-Project" des VBA-Editors auf "VBA-Project (*NameDeinerXLS*)"
- linksklicke im erscheinenden Kontextmenü auf "Einfügen"
- linksklicke im erscheinenden Kontextmenü auf "Modul". Es wird ein neues Modul erstellt.
- gib den geposteten Code im Code-Fenster ein (oben sind die Dropdowns "Allgemein" und "(Deklarationen)")

Hoffe, jetzt klappt's.

stefan brugger

unread,

Sep 18, 2003, 12:34:14 PM9/18/03

to

"Michael Schüller" schrieb >
> Hoffe, jetzt klappt's.

Hi Michael,

ehrfürchtig neige ich mein Haupt. Und ich versprech hoch und heilig:
Ich werd nie wieder über einen Schwaben boshaftes erzählen. Danke
nochmals.

Gruß aus Salzburg
Stefan

Michael Schüller

unread,

Sep 18, 2003, 1:44:09 PM9/18/03

to

Hallo stefan,

> ehrfürchtig neige ich mein Haupt. Und ich versprech hoch und heilig:
> Ich werd nie wieder über einen Schwaben boshaftes erzählen. Danke
> nochmals.

Bitte. Aber wieso willst Du deshalb über Schwaben nichts boshaftes mehr erzählen? Ich bin kein Schwabe, ich bin Kölner. Oder sind
für Dich alle außerhalb Österreichs Schwaben? ;-)