Hyperlink nach kopieren defekt

Guten Morgen Forengemeinde,
ich habe ein Problem mit Hyperlinks. Und laut dem Internet bin ich nicht der einzige. Leider habe ich keine passende Lösung gefunden. Ich habe eine "Datenbank" mit Hyperlinks. Dazu habe ein eine Exceldatei die diese "Datenbank" (Exceldatei) einfach kopiert und öffnet.
Leider gehen beim Kopiervorgang die Hyperlinks kaputt. Es sind zwar hyperlinks die aber nirgendwoe hinzeigen . z.B.
..\R12345678%12-%201234%123421%20123123%20(213341)\Ordner1\SF-XX-XX.xls
Wobei der richtige Link in der Db hinterlegt ist.
Hier mein Code

Sub Auto_open()
' Einlesen_der_Daten Makro
Cells.Select
Selection.ClearContents
Range("A1").Select
Workbooks.Open Filename:="R:\Folder\Datenbank\DB.xlsx"
Cells.Select
Selection.Copy
Windows("1-Übersicht.xlsm").Activate
Worksheets("Sheet1").Range("A1:H65000").PasteSpecial Paste:=xlPasteAll
Application.CutCopyMode = False
Range("A1:G1").Select
Application.CutCopyMode = False
Selection.AutoFilter
Columns("G:G").EntireColumn.AutoFit
Columns("F:F").EntireColumn.AutoFit
Columns("E:E").EntireColumn.AutoFit
Columns("D:D").EntireColumn.AutoFit
Columns("C:C").EntireColumn.AutoFit
Columns("B:B").EntireColumn.AutoFit
Columns("A:A").EntireColumn.AutoFit
Range("A2").Select
Workbooks("DB.xlsx").Close SaveChanges:=False
End Sub

Vielleicht habt ihr ja eine Anwort für mich. Der Hyperlink ist anklickbar, nur er führt ins nichts.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Cells.Select Selection.ClearContents Range("A1").Select Workbooks.Open Filename:="R:\Folder\Datenbank\DB.xlsx" Cells.Select Selection.Copy Windows("1-Übersicht.xlsm").Activate Worksheets("Sheet1").Range("A1:H65000").PasteSpecial Paste:=xlPasteAll

Danke für die Antwort.
Der Code von Dir geht soweit, allerdings bleibt das Problem bestehen.
Das Problem ist, das es sich um "sensibele" Daten handelt. Leider kann ich die originale nicht hochladen.
Das Problem tritt auch auf, wenn ich mit strg + C /v die Sachen in eine Blanke Excel Datei kopiere. Auch da sind die Hyperlinks defekt. Kann das an der Zeichen länge liegen ?
Hier noch ein Beispiel:
\\aaaa-bbb-pv001\AAA-303-0008-FFFFF$\CCC\A200XXX - AAAA 2000 TTTTTT (213341)\Arbeit\SF-15-009.xls
Das ist auch ein Typischer Link.
Wenn dieser in einer Exceldatei angelegt wird, und dann in eine andere kopiert werden soll. Geht es nicht. Das Problem. Ich glaube nicht, das jemand anderes so lange Pfade hat :-/

Sub aaTest() 'Code-Beispiel Dim wksZiel As Worksheet Dim strPathLink As String Set wksZiel = Worksheets("export") Workbooks("94544.xlsm").Activate 'Testzeile strPathLink = ActiveWorkbook.FullName 'oder strPathLink = ActiveWorkbook.FullNameURLEncoded With wksZiel .Hyperlinks.Add Anchor:=.Range("H1"), Address:=strPathLink End With End Sub

Sub aaTest() 'Code-Beispiel Dim wksZiel As Worksheet Dim strPathLink As String Set wksZiel = Worksheets("export") Workbooks("94544.xlsm").Activate 'Testzeile strPathLink = ActiveWorkbook.FullName 'oder strPathLink = ActiveWorkbook.FullNameURLEncoded With wksZiel .Range("H1").FormulaR1C1 = "=HYPERLINK(""" & strPathLink & """)" '.Hyperlinks.Add Anchor:=.Range("H1"), Address:=strPathLink End With End Sub

Beliebteste Forumthreads (12 Monate)

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread