VBA-Ordnername auslesen, Neuanlage von Ordnern
03.11.2017 20:29:35
Ordnern
das folgende Makro verwende ich um Ordnernamen aus einem Pfad herauszulesen:
Sub Example1()
Dim objFSO As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim i As Integer
Application.ScreenUpdating = False
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("Pfad")
i = 13
For Each objSubFolder In objFolder.subfolders
Cells(i + 1, 1) = objSubFolder.Name
i = i + 1
Next objSubFolder
Application.ScreenUpdating = True
End Sub
Wäre es möglich, dass das Makro zunächst die Spalte "A" durchläuft, die Namen im Pfad mit den Namen in Spalte "A" abgleicht und wenn ein Name nicht in Spalte "A" gefunden wird, eine neue Zeile eingefügt wird und der nicht gefundene Name in diese Zeile in Spalte "A" geschrieben wird?
Vielen Dank!