String als Link aufrufen
17.05.2018 12:44:16
Alina
ich möchte gern einen Hyperlink einfügen, der mich zu einer Exceldatei führt.
Der Link steht auf der "Haupt-Excel", in welche Daten aus "Unter-Exceln" eingelesen werden". Der Link soll mich zur zuletzt eingeleiteten Exceldatei (Unter-Excel) führen.
Ich bin derzeit sowei:
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) 'bis hier hin klappt alles, jetzt _
_
kommt der neue Link, der nicht klappt
hilflink = ExcelDateiEinlesen
link = hilflink.Replace("P:", "")
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
hilflink ist markiert und die Meldung ist "ungültiger beizeichner"
Habt ihr eine Idee?