Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 12:23:24
Wenn-Formel anpassen
19.04.2024 12:09:19
Unique (Application.WorksheetFunction.Unique)
19.04.2024 11:51:37
Nächsten identischen Treffer suchen
19.04.2024 11:45:34
Feld im SAP auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1340to1344
1340to1344
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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

Anzeige
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!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige