AW: Hyperlink ohne Dateiendung (Suffix)
17.02.2011 08:04:42
A.B.
Nachfolgend der Code mit der nicht funktionierenden Variante da der Link immer auf ein pdf verweist.
Private Sub Hyperlinks()
Pfad = ActiveWorkbook.Path & "\" 'Falls Zeichnungsdateien in einem anderen Verzeichniss _
stehen hier den Pfad aendern
Zeichnungsnummern = 26 'Spalte mit den Zeichnungsnummern eingeben
Revision = 23 'Spalte der letzten Revision eingeben
FirstSubmission = 25 'Spalte der Firstsubmission eingeben
Application.FileSearch.Filename
zeile = 56
Cells(zeile, Zeichnungsnummern).Select
Do Until zeile = 309
If ActiveCell.Value "" Then
If Cells(zeile, Revision).Value "" Then
Link = Pfad & Cells(zeile, Zeichnungsnummern).Value & "_" & Cells(zeile, _
Revision).Value & ".pdf"
End If
If Cells(zeile, FirstSubmission).Value "" Then
Link = Pfad & Cells(zeile, Zeichnungsnummern).Value & "_" & Cells(zeile, _
FirstSubmission).Value & ".pdf"
Else
Link = Pfad & Cells(zeile, Zeichnungsnummern).Value & ".pdf"
End If
Text = Cells(zeile, Zeichnungsnummern).Value
ActiveCell.Hyperlinks.Add Anchor:=Selection, Address:=Link, TextToDisplay:=Text
End If
zeile = zeile + 1
Cells(zeile, Zeichnungsnummern).Select
Loop
End Sub