Hallo Forum,
folgenden Code von fcs habe ich im Archiv gefunden:
Sub HyperlinksSetzen()
Dim wks As Worksheet, Zelle As Range, Zeile As Long
Set wks = Worksheets("Tabelle1") 'Tabelle in der Hyperlinks eingefügt werden sollen, ggf. _
anpassen
For Zeile = 2 To wks.Cells(wks.Rows.Count, 1).End(xlUp).Row Step 24
Set Zelle = wks.Cells(Zeile, 1)
wks.Hyperlinks.Add Anchor:=Zelle, Address:="", SubAddress:="'" & Zelle.Value & "'!A1"
Next
End Sub
Der Archivthread dazu:
https://www.herber.de/forum/archiv/864to868/t864333.htm
Nun kann ich den leider nicht auf meine gewünschten Bedürfnisse anpassen (siehe Level).
Wie muss der Code umgeschrieben werden, damit in Spalte I Hyperlinks per VBA erzeugt werden, deren Adresse in Spalte N und der geünschte Name in Spalte O stehen bzw. Hyperlinks in Spalte K erzeugt werden, mit der Adresse aus Spalte Q und dem Namen aus Spalte R.
Momentan werden die Hyperlinks per Formel erzeugt, aber diese werden von Excel nicht als Hypelinks erkannt, aber das ist für ein weiters Makro, welches mir von Luschi gepostet wurde, von Bedeutung.
Ein Ausschnitt aus dem Tabellenblatt zur Verdeutlichung meines Anliegens:
Es sind insgesamt 20 Hyperlinks, die per Vba erzeugt werden sollen.
Einfügen-Hyperlinks funktioniert hier auch nicht, da es sich um ständig wechselnde Bezüge handelt.
Für Anregungen und Unterstützung bedanke ich mich im Voraus (und auch danach)!
MfG Christian
TOP 10 EP