Hyperlink erzeugen

Forumthread: Hyperlink erzeugen

Hyperlink erzeugen

29.12.2013 16:21:00

Tom

Hallo zusammen,
ich habe in Spalte A eine lange Liste mit File-Duplikat-Einträgen und möchte daraus direkt anklickbare Links erzeugen damit ich gleich direkt in das Verzeichnis springenkann um das jeweilige Duplikat zu löschen.
Beispiel:
Spalte A:
\volume1\aaa\bbb\ccc\datei1.doc
\volume1\xxx\yyy\zzz\datei1.doc
Diese Spalte A möchte ich in dieses Ergebnis umwandeln:
Spalte B:
\\192.168.2.11\aaa\bbb\ccc\
\\192.168.2.11\xxx\yyy\zzz\
Ich hab schon ein wenig rumprobiert aber mir gelingt es nicht so recht. Wenn ich "Verknüpfen" nehme, dann werden da keine Hyperlinks draus sondern nur Textstrings.
Wäre nett, wenn ihr mir helfen könntet.
Danke
Tom

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Hyperlink erzeugen

29.12.2013 17:07:30

Mister
AW: Hyperlink erzeugen

29.12.2013 17:18:04

Mister
AW: Hyperlink erzeugen

31.12.2013 08:41:36

Tom
AW: Hyperlink erzeugen

31.12.2013 09:19:40

Tom

AW: Hyperlink erzeugen

29.12.2013 17:07:30

Mister

Hallo Tom,
wenn ich dich richtig verstanden habe, muss folg. Makro helfen:

Sub Makro1()
Dim i As Long
i = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To 100
ActiveSheet.Cells(i, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(i, 2), Address:=Sheets(" _
Tabelle1").Cells(i, 1).Text
Next
Columns("B:B").Select
Selection.Replace What:="\volume", Replacement:="\\192.168.2.1", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Gruß
Martin

AW: Hyperlink erzeugen

29.12.2013 17:18:04

Mister

Kleine Korrektur:

Sub Makro1()
Dim i As Long, x As Long
x = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To x
ActiveSheet.Cells(i, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(i, 2), Address:=Sheets(" _
Tabelle1").Cells(i, 1).Text
Next
Columns("B:B").Select
Selection.Replace What:="\volume", Replacement:="\\192.168.2.1", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

AW: Hyperlink erzeugen

31.12.2013 08:41:36

Tom

Danke Mister B.
Allerdings stimmt irgend etwas bei der Syntax nicht.
Diese Zeile wird mir im Editor rot angezeigt:
ActiveSheet.Cells(i, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(i, 2), Address:=Sheets(" _
Tabelle1").Cells(i, 1).Text
Beim Ausführen bekomme ich "Fehler beim Kompilieren, Syntaxfehler"

AW: Hyperlink erzeugen

31.12.2013 09:19:40

Tom

So, das Makro läuft jetz durch, ich hab mir selber ein bisschen helfen können, dank der Vorarbeit von Mister B. Hab die Zeile mit den Fehlern leicht abändern müssen:

Sub Makro1()
Dim i As Long, x As Long
x = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To x
ActiveSheet.Cells(i, 1).Hyperlinks.Add Anchor:=ActiveSheet.Cells(i, 2), Address:=Sheets(" _
Tabelle1").Cells(i, 1).Text
Next
Columns("B:B").Select
Selection.Replace What:="\volume", Replacement:="\\192.168.2.1", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub

Danach ist mir dann auch aufgefallen, dass man den Hyperlink erst nach dem ersetzen erstellen muss. Sonst verweist der Link auf die ursprüngliche Adresse (volume1 andtelle von 192.168.2.1
Jetzt siehts aber schon gut aus.
Danke!

Beliebteste Forumthreads (12 Monate)

Forumthread: Hyperlink erzeugen

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread