Prüfen ob Ordner vorhanden, wenn nicht anzeigen

Computer: Software & Programmierung Visual Basic
#1

Hi zusammen,

ich habe folgendes Problem. Ich habe eine Excel Tabelle mit einer Spalte A in welcher Seriennummern stehen. Des weiteren habe ich einen Ordner in dem weitere Ordner sind die jeweils den Namen der verschiedenen Seriennummern haben.
Da die Excel Tabelle immer wieder erneuert wird ändern sich auch die Seriennummern in Spalte A immer wieder.
Nun möchte ich, dass Excel beim Start der Tabelle jedesmal einmal kurz checked ob für jede Seriennummer ein entsprechender Ordner vorhanden ist, und falls nicht diese Zelle markiert und noch irgendwo hinschreibt welche Zellen markiert sind.

Wäre saugut wenn mir jemand helfen könnte.

Danke schonmal.

Ben

#2

Hallo Ben,

das sollte kein Problem sein. Aber gleich eine Frage: Da das ganze ohnehin nur mit VBA geht: Was ist der Zweck, die fehlenden Ordner hervorzuheben? Man könnte sie dann auch gleich anlegen lassen, sofern die Berechtigungen vorhanden sind.

Gruß, Manfred

#3

Ich habe eine Excel Tabelle mit
einer Spalte A in welcher Seriennummern stehen. Des weiteren
habe ich einen Ordner in dem weitere Ordner sind die jeweils
den Namen der verschiedenen Seriennummern haben.
Nun möchte ich, dass Excel beim Start der Tabelle jedesmal
einmal kurz checked ob für jede Seriennummer ein
entsprechender Ordner vorhanden ist, und falls nicht diese
Zelle markiert und noch irgendwo hinschreibt welche Zellen
markiert sind.

Hallo Ben,

in ein Standardmodul, z.B. Modul1:

Option Explicit
'
Sub Vorhanden()
Dim fso, Zei As Long
Const Pfad As String = "C:\Test\" 'anpassen
With Worksheets("Tabelle1")
 .Columns(1).Interior.ColorIndex = xlNone
 .Range("X1").Value = ""
 Set fso = CreateObject("Scripting.FileSystemObject")
 For Zei = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
 If .Cells(Zei, 1).Value "" And fso.folderexists(Pfad & .Cells(Zei, 1).Value) Then
 .Cells(Zei, 1).Interior.ColorIndex = 34
 .Range("X1").Value = .Range("X1").Value & "," & .Cells(Zei, 1).Address(0, 0)
 End If
 Next Zei
End With
End Sub

in Modul DieseArbeitsmappe

Private Sub Workbook\_Open()
Call Vorhanden
End Sub

Gruß
Reinhard

#4

Funktioniert wie geschmiert, Danke.

#5

Die Idee ist gut, ich überdenk das mal und schreib dann die Tage nochmal hier rein. Dankeschön.