Hallo,
ich habe eine lange Liste von Homepageadessen in der Spalte A einer Ecxeltabelle. Diese URLs werden aber noch nicht verlinkt.
Wenn ich eine Zeile editiere und dann ENTER drücke so wird daraus ein Link.
Wie kann ich dies für eine ganze Liste automatisieren.
Achtung ich mich mit Makro usw. nur sehr wenig aus.
Danke.
Gruss Werner
ich habe eine lange Liste von Homepageadessen in der Spalte A
einer Ecxeltabelle. Diese URLs werden aber noch nicht
verlinkt.
Wenn ich eine Zeile editiere und dann ENTER drücke so wird
daraus ein Link.
Wie kann ich dies für eine ganze Liste automatisieren.
Achtung ich mich mit Makro usw. nur sehr wenig aus.
Hallo Werner,
Alt+F11, Einfügen–Modul, Code reinkopieren, ggfs Blattnamen anpassen, Editor schließen.
Alt+F8, Makro ausführen lassen.
Sub URL()
Dim Zei As Long
With Worksheets("Tabelle1")
For Zei = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
.Hyperlinks.Add Anchor:=.Cells(Zei, 1), Address:=.Cells(Zei, 1)
Next Zei
End With
End Sub
Gruß
Reinhard
Hallo Reinhard,
das hat ja super geklappt.
Tausend Dank.
Nur noch eine Frage:
Was muss ich ändern wenn es mal die Spalte B statt A betrifft?
Gruss Werner
Was muss ich ändern wenn es mal die Spalte B statt A betrifft?
hallo Werner,
In der Zeile
For Zei = 1 To…
steht die 1 für die Zeile 1, also der Beginn ab wann die Umwandlung geschehen soll.
D.h. wenn in Zeile 1 die Überschrift der Spalte steht mache eine 2 daraus.
In Cells(xyz,1) steht die 1 für die 1te Spalte, also A. Dies änderst du bei Spalte B auf 2, bei Spalte H auf 8 usw.
Gruß
Reinhard
Hallo Reinhard,
echt super. Herzlichen Dank. Das erspart mir ein paar Stunden.
Ich war früher bei spotlight.de und freue mich nun wieder ein Forum mit netten Menschen gefunden zu haben.
Danke und ein schönes Wochenende.
Gruss Werner