ich möchte gerne den Hyperlink aus einer Zelle auslesen und die Anzahl der darinbefindlichen Dateien zählen.
Leider gunktioniert das auslesen der Hyperlinks nicht besonder gut. Ausirgendeinem Grund werden die Backslashes zu slashes.
Das Ergebnis der Hyperlinks sieht dann beispielsweise so aus:
O:\Ordner\Unterordner\GB/23
O:\Ordner\Unterordner\VF-UV50/24
O:\Ordner\Unterordner\VF-UV50/25
O:\Ordner\Unterordner\HP/26
O:\Ordner\Unterordner\Q\27
O:\Ordner\Unterordner\VF-UV50/28
O:\Ordner\Unterordner\HP/29
O:\Ordner\Unterordner\VF-UV50/30
O:\Ordner\Unterordner\Q\31
O:\Ordner\Unterordner\HP\32
woran liegt das? Mein Code:Sub DateienZaehlen()
Dim strPfad As String
Dim strDatei As String
Dim strSuchMuster As String
Dim intCounter As Integer
Dim WB As Workbook
Dim WS As Worksheet
Dim z As Integer
Dim i As Integer
Dim RelativerOrdner As String
Set WB = ThisWorkbook
Set WS = ThisWorkbook.Sheets(1)
z = WS.Cells(Rows.Count, 2).End(xlUp).Row
For i = 2 To z
RelativerOrdner = WS.Cells(i, 2).Hyperlinks(1).Address
strPfad = ThisWorkbook.Path & "\" & RelativerOrdner
strSuchMuster = "*.*" 'Alle Dateitypen suchen
Debug.Print strPfad
strDatei = Dir(strPfad & strSuchMuster, vbDirectory)
Do While strDatei ""
intCounter = intCounter + 1
strDatei = Dir
Loop
WS.Cells(i, 14).Value = intCounter
Next
End Sub