nochmal nachfrage Verzeichnis
14.10.2018 18:40:25
sigrid
hatte schon gestern mal nachgefragt, mein Makro läuft allerdings
möchte ich jetzt den Verzeichnisnamen die in meiner Tabelle
"Info" von A5 bis A 20 stehen.
Jetzt weiß ich nicht wie ich dies hier:
ShellBrowseForFolder("C:\_Muster\__Dokumente\_Geschäftsstelle_Testfirma\ _
_Testfirma_Angebote")
per Auswahl einsetzen kann.
Sub test2()
Dim lngCount As Long
Dim strPath, strPathV As String, lngRow As Long
strPath = ShellBrowseForFolder("C:\_Muster\__Dokumente\_Geschäftsstelle_Testfirma\ _
_Testfirma_Angebote")
If Len(strPath) Then
If Range("C5") = "" Then
lngRow = 5
Else
lngRow = Cells(Rows.Count, 3).End(xlUp).Row + 1
End If
Cells(lngRow, 1) = strPath
Cells(lngRow, 3) = countFiles(Directory:=strPath, SubFolders:=True)
End If
End Sub
sigrid