hab einen Tauschordner wo nach und nach Dateien eingeschoben,
aber auch wieder entfernt werden.
In einem festen Tabellenblatt mit u.g. Code sehe ich jeweils was gelistet ist.
Souzusagen in Spalte A wird der Ordnerinhalt aufgelistet, In Spalte B
soll dazu ein Link erscheinen, womit ich diese Daten öffnen kann.
Wenn ich in Spalte B,
z.B.=HYPERLINK("D:\Users\BKU\janreinbacher\Desktop\Tauschordner";A2)
eintippe, lande ich im Tauschordner.
Das soll es nicht sein. Sondern eine Datei, zum Beispiel ein .pdf, soll geöffnet werden.
Vielleicht hat jemand von Euch einen Tipp, was in der Formel fehlt?
Oder man kann sogar den VBA Code erweitern, dass der Hyperlink mitgeneriert wird.
Mit freundlichen Grüßen.
Jan
Sub Einlesen_Tauschordner()
Dim zeile As Variant
Dim sFile As String, sPattern As String, sPath As String
Dim iRow As Integer
ActiveSheet.Columns(1).ClearContents 'löscht die erste Spalte!
sPath = "D:\Users\BKU\janreinbacher\Desktop\Tauschordner" ' Hier gibst Du Deinen Pfand _
zum gewünschten Verzeichnis an
iRow = 1
If Right(sPath, 1) "\" Then sPath = sPath & "\"
sPattern = "*.*"
sFile = Dir(sPath & sPattern)
Do Until sFile = ""
iRow = iRow + 1
ActiveSheet.Cells(iRow, 1).Value = sFile
sFile = Dir()
Loop
For zeile = 1 To Cells.SpecialCells(xlLastCell).Row
Next
End Sub