Hyperlink einfügen
26.04.2018 14:23:51
Alina
ich würde gern einen Hyperlink einfügen, der mich zur zuletzt eingeleiteten Excel Tabelle führt
ich habe es so versucht:
Private Sub CommandButton1_Click()
Exceldatei.ForeColor = &H80000012
ExcelDateiName = getFileName(ExcelDateiEinlesen) & ".xlsx"
Exceldatei.Caption = ExcelDateiName
ActiveSheet.Range("A5").Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Exceldatei.Caption, _
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
If ExcelDateiName = ".xlsx" Then
Exceldatei.Caption = "PROJEKTSTATUSBERICHT FEHLT!"
Exceldatei.ForeColor = &HFF&
Else
End If
End With
End Sub
dort funzt der Link nicht
Ich habe noch diese Sub, die mir die Datei einließt:
Public Function ExcelDateiEinlesen() As String
Dim oFileDialog As FileDialog
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)
Else
ExcelDateiEinlesen = ""
Exit Function
End If
End With
End Function
Habt ihr eine Idee, wo mein Fehler ist?
Alles klappt, außer dass mich der link den ich programmiert habe, nirgends hinführt (also das Einlesen der Datei klappt)