Hyperlink: Bezug ungültig
22.05.2018 12:13:41
Alina
ich hab ja jetzt schon öfter zu meinem doofen Link fragen gehabt.
Mittlerweile ist mir das Problem wirklich suspekt geworden.
Ich habe per VBA einen Hyperlink eingefügt.
Wenn ich mit der Maus darüberfahre, ohne zu klicken, wird mir ja in hellgrau angezeigt, wohin mich der Link bringt. Das ist ohne Zweifel die richtige Adresse, ich habe tausendmal auf die richtige Zeichenfolge geprüft.
Wenn man draufklickt, kommt trotzdem "Bezug ungültig".
Hier der Code:
Public Function ExcelDateiEinlesen() As String
Dim oFileDialog As FileDialog
Dim link As String 'Link zur zuletzt eingelesenen Datei
Dim hilflink As String
Set oFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With oFileDialog
.InitialFileName = ActiveWorkbook.Path & "\"
.Title = "Auswahl Projektstatusbericht:"
.Filters.Clear
.Filters.Add "EXCEL-Dateien", "*.xls;*.xlsx"
.ButtonName = "Import"
If .Show = -1 Then
ExcelDateiEinlesen = .SelectedItems(1)
ExcelDateiPath = getFilePath(ExcelDateiEinlesen)
hilflink = ExcelDateiEinlesen
link = Replace(hilflink, "P:", "file:\\XXX")
ActiveSheet.Range("A5").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=link, TextToDisplay:="Zuletzt eingelesen"
With Selection.Font
.Underline = xlUnderlineStyleNone
.Bold = True
.Name = "BMW Group"
.Size = 11
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
End With
Else
ExcelDateiEinlesen = ""
Exit Function
End If
End With
End Function