ich habe mal diese Makro erhalten bzw. gefunden.
Das Funktioniert einwandfrei.
NUR ein Problem, das ENDE der Spalte für die Zahl einzugeben,
sollte bei C18 enden, da darunter noch andere Informationen
stehen.
Ich weiß nicht wie man die nächste freie Zelle in der Spalte C
angefangen bei C4 finden kann.
Also im Bereich "C4:C18".
Würde mich freuen, wenn jemand helfen kann.
mfg
kurt k
Dim lngCount As Long
Dim strPath, strPathV As String, lngRow As Long
Dim strDatei
Dim strTabName As String
strTabName = ActiveSheet.Name
strPath = ShellBrowseForFolder(ActiveSheet.Range("T1"))
If Sheets(strTabName).Range("S1") = 1 Then
ActiveSheet.Range("C3").Select
If Len(strPath) Then
If Range("C5") = "" Then
lngRow = 5
Else
lngRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
End If
ActiveSheet.Range("T2").Value = strPath
Cells(lngRow, 3) = CountFiles(Directory:=strPath, SubFolders:=True)
End If
End If