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.