Ich lese mit untem stehenden Code aus einem Odner eine Verknüfung aus.
Jetzt möchte ich diese öffnen, wie könnte das Funktionieren?
Sub Suchen2()
Dim Pfad1 As String
Dim Name1 As String
Dim iCounter As Integer
Pfad1 = Range("Daten!G58").Value & "\*.lnk" ' in G1 nur "C:\Verz." ohne abschließendes "\"
Name1 = Dir(Pfad1, 0)
iCounter = 2
Do While Name1 ""
Sheets("Daten").Cells(iCounter + 70, 1).Value = Name1
iCounter = iCounter + 1
Name1 = Dir
Loop