Ich möchte einen Hyperlink via VBA von einem Blatt auf ein anderes kopieren.
Mein bisheriger Code kopiert den Hyperlink nur als Text, also nur den der in der Zelle angezeigt wird.
Anbei hier ein Auszug aus meinem Makro:
Sub kopieren()
Worksheets("POT_GES").Activate
Letzte_POT_GES = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Startfeld_POT_GES = 5
Worksheets("Z1").Activate
Letzte_Z1 = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For A = 4 To Letzte_Z1 Step 4
Worksheets("Z1").Activate
Artikel = Cells(A + 3, 10).Value
Worksheets("POT_GES").Activate
Cells(Startfeld_POT_GES, 11) = Artikel
...
...
...
Der Inhalt aus "Artikel wird wie gesagt nur als Text kopiert, nicht als Hyperlink.
Mit Copy und paste Spezial kann ich leider nicht arbeiten da ich insgesamt ca. 420 Zeilen durchsuche und ich keine Lösung kenne die einen schlanken Code erlaubt.
Ich hoffe Ihr habt eine Lösung die einfach ist :)