Ich führe ein VBA-Skript aus, um die Anzahl der Zeilen in jeder Datei in einem ausgewählten Ordner zu zählen und diese dann in einer aktiven Arbeitsmappe anzuzeigen.

 Option Explicit
Sub CountRows()
    Dim wbSource As Workbook, wbDest As Workbook
    Dim wsSource As Worksheet, wsDest As Worksheet
    Dim strFolder As String, strFile As String
    Dim lngNextRow As Long, lngRowCount As Long

    Application.ScreenUpdating = False

    Set wbDest = ActiveWorkbook
    Set wsDest = wbDest.ActiveSheet

    strFolder = Dir(Range("C7").Value)
    strFile = Dir(strFolder & "*.xlsx")
    lngNextRow = 11
    Do While Len(strFile) > 0
        Set wbSource = Workbooks.Open(Filename:=strFolder & strFile)
        Set wsSource = wbSource.Worksheets(1)
        lngRowCount = wsSource.UsedRange.Rows.Count
        wsDest.Cells(lngNextRow, "F").Value = lngRowCount
        wbSource.Close savechanges:=False
        lngNextRow = lngNextRow + 1
        strFile = Dir
    Loop

    Application.ScreenUpdating = True

End Sub

Bei der Auswahl eines Ordners möchte ich das in eine aktive WorkBook-Zelle "C7" eingefügte Verzeichnis verwenden, anstatt ein Verzeichnis in ein Skript zu schreiben. Ich habe versucht zu ersetzen:

strFolder = "C:\Users\user\Desktop\"

mit

 strFolder = Dir(Range("C7").Value)

aber es funktioniert nicht. Vielleicht hat jemand irgendwelche Ideen? Vielen Dank!