Hyperlinkadresse auslesen

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

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