Wenn Ich richtig interpretiere, könntest das so umsetzen:
'*** Durchsuche Ordner nach Dateien
'*** Schreibe Dateiname und Hyperlink ins Tabellenblatt
If sPfad Like "*\Dokumente\Abnahmeprotokolle*" Then
For Each fil In fso.GetFolder(sPfad).Files
With ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp)
'*** Hyperlink
.Parent.Hyperlinks.Add Anchor:=.Offset(1, 0), Address:=fil.Path
'*** Dateiname
.Offset(1, 1).Value = fil.Name
End With
Next
End If
Erlernt vor ca 2 Dekaden als "bologna process" noch in aller Munde war.
Das Erlernen ist die eine Sache... konstant am Ball bleiben ...viel lesen oder gar sehr viel lesen und noch mehr lesen ... Praxisbeispiele umsetzen und/oder Lösungswege Anderer nachvollziehen und wieder lesen, lesen, lesen, ist die andere Sache... wobei heutzutage der Zugang zu Informationen weitaus praktischer ist als "damals" bzw für Kollegen von noch früher.
Mit dem derzeitigen Informationsangebot und dem schnellen Zugang ( wie bspw durch Foren, Videolearning) kommt man autodidaktisch zügig voran.
gruß
Marco
|