beste lezer,
Ik heb een (goed ) werkende macro gemaakt, waarin ik op een apart tabblad genaamd "gekoppelde bestanden" een lijst laat zien van in dit file gekoppelde bestanden.
maar ik wil graag de namen van de gekoppelde bestanden ook als Hyperlinks laten zien. Dit lukt mij nog niet....
Wie kan mij helpen?
Dank alvast voor de moeite!!
met vriendelijke groet,
Gesus
Ik heb een (goed ) werkende macro gemaakt, waarin ik op een apart tabblad genaamd "gekoppelde bestanden" een lijst laat zien van in dit file gekoppelde bestanden.
maar ik wil graag de namen van de gekoppelde bestanden ook als Hyperlinks laten zien. Dit lukt mij nog niet....
Wie kan mij helpen?
Sub Lijst_met_gekoppelde_bestanden()
Sheets("Gekoppelde bestanden").Visible = True
Dim wb As Workbook
Set wb = Application.ThisWorkbook
With ThisWorkbook.Sheets("Gekoppelde bestanden")
.Columns(2).Clear
End With
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
ThisWorkbook.Sheets("Gekoppelde bestanden").Activate
xIndex = 2
For Each link In wb.LinkSources(xlExcelLinks)
Application.ActiveSheet.Cells(xIndex, 2).Value = link
xIndex = xIndex + 1
Next link
End If
End Sub
Sheets("Gekoppelde bestanden").Visible = True
Dim wb As Workbook
Set wb = Application.ThisWorkbook
With ThisWorkbook.Sheets("Gekoppelde bestanden")
.Columns(2).Clear
End With
If Not IsEmpty(wb.LinkSources(xlExcelLinks)) Then
ThisWorkbook.Sheets("Gekoppelde bestanden").Activate
xIndex = 2
For Each link In wb.LinkSources(xlExcelLinks)
Application.ActiveSheet.Cells(xIndex, 2).Value = link
xIndex = xIndex + 1
Next link
End If
End Sub
Dank alvast voor de moeite!!
met vriendelijke groet,
Gesus
Laatst bewerkt: