ich habe folgendes Anliegen:
Auf meiner Festplatte habe ich verschiedene Ordner mit den Namen, z.B. „Beispiel 1“, „Neuer Ordner“. Außerdem habe ich eine Excelliste, in der die Worte "Beispiel ", „Neuer Ordner“ und viele andere in
einer Spalte vorkommen. Geht es mit einem Makro oder sonst wie, dass der PC automatisch die Festplatte mit der Exceltabelle vergleicht und z.B. die Worte markiert, die nicht als Ordner auf der Festplatte sind.
Betriebssystem ist Windows XP; Office 2003.
Auf meiner Festplatte habe ich verschiedene Ordner mit den
Namen, z.B. „Beispiel 1“, „Neuer Ordner“. Außerdem habe ich
eine Excelliste, in der die Worte "Beispiel ", „Neuer Ordner“
und viele andere in
einer Spalte vorkommen. Geht es mit einem Makro oder sonst
wie, dass der PC automatisch die Festplatte mit der
Exceltabelle vergleicht und z.B. die Worte markiert, die nicht
als Ordner auf der Festplatte sind.
Hallo Birgit,
der nachfolgende Code müßte das machen was du möchtest.
Kommst du damit klar?
Gruß
Reinhard
Option Explicit
Dim FSO, FO, FU, F, Zei, Ind
Sub OrdnerAuflisten()
Set FSO = CreateObject("Scripting.FileSystemObject")
Zei = Cells(Rows.Count, 1).End(xlUp).Row
Range("A1:A" & Zei).Interior.ColorIndex = 6
GetSubFolders ("C:\")
End Sub
Function GetSubFolders(pfad)
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
If Application.CountIf(Range("A1:A" & Zei), F.Name) \> 0 Then
Ind = Application.Match(F.Name, Range("A1:A" & Zei), 0)
Range("A" & Ind).Interior.ColorIndex = xlNone
End If
GetSubFolders F.Path
Next F
End Function
der nachfolgende Code müßte das machen was du möchtest.
Kommst du damit klar?
Gruß
Reinhard
Hallo Reinhard,
vielen Dank für Deine Mühe! Ich bin VBA Anfänger. Wenn ich das richtig, sehe Listet dieses Makro mit die Ordner und Unterordner auf, aber vergleicht nichts.
Ich habe jetzt eine Möglichkeit gefunden (mit DirPrintOK) die Ordner auf der Festplatte anzeigen zulassen und das ganze in einer Exceltabelle zu speichern. Ich poste jetzt noch ne Frage zu dem Vergleich. Da bin ich leider noch nicht ganz zufrieden.
