Office: Ordner mit Unterordner per VBA erstellen

Hallo Leute
Ich möchte gerne Order incl. Unterordner per VBA erstellen. Die Namen der Ordner und Unterordner sind in einer Tabelle gespeichert. Mit nachfolgender Prozedur funktioniert es auch ganz gut, aber in der Tabelle haben unterschiedliche Einträge auch unterschiedliche ID's. Mit dieser Prozedur kann ich aber nicht einzelne ID zugreifen, es wird immer der erste Wert aus der Tabelle genommen.
Wie kann ich hier auf die unterschiedlichen ID Bezugnehmen ???

Danke für Eure Hilfe


Dim Ord As String
Dim Antwort As Integer
Dim Ord1 As String
Dim Antwort1 As Integer
Dim Ord2 As String
Dim Antwort2 As Integer
Dim Ord3 As String
Dim Antwort3 As Integer

Ord = DLookup("[Pfadvar1]", "T_Exportpfade")
Ord1 = DLookup("[Pfadvar2]", "T_Exportpfade")
Ord2 = DLookup("[Pfadvar3]", "T_Exportpfade")
Ord3 = DLookup("[Pfadvar4]", "T_Exportpfade")

If Dir(Ord, vbDirectory) <> "" Then
MsgBox "Ordner ist schon vorhanden"
Else
Antwort = MsgBox("der Ordner " & Ord & " ist nicht vorhanden." _
& vbNewLine _
& "soll der Ordner angelegt werden?!", vbYesNo)
If Antwort = vbYes Then
MkDir Ord
MsgBox "Ordner " & Ord & " wurde angelegt"
Exit Sub
End If
End If

ChDir Ord

If Dir(Ord1, vbDirectory) <> "" Then
MsgBox "Ordner ist schon vorhanden"
Else
Antwort1 = MsgBox("der Ordner " & Ord1 & " ist nicht vorhanden." _
& vbNewLine _
& "soll der Ordner angelegt werden?!", vbYesNo)
If Antwort1 = vbYes Then
MkDir Ord1
MsgBox "Ordner " & Ord1 & " wurde angelegt"
Exit Sub
End If
End If

ChDir Ord1

If Dir(Ord2, vbDirectory) <> "" Then
MsgBox "Ordner ist schon vorhanden"
Else
Antwort2 = MsgBox("der Ordner " & Ord2 & " ist nicht vorhanden." _
& vbNewLine _
& "soll der Ordner angelegt werden?!", vbYesNo)
If Antwort2 = vbYes Then
MkDir Ord2
MsgBox "Ordner " & Ord2 & " wurde angelegt"
Exit Sub
End If
End If

ChDir Ord2

If Dir(Ord3, vbDirectory) <> "" Then
MsgBox "Ordner ist schon vorhanden"
Else
Antwort3 = MsgBox("der Ordner " & Ord3 & " ist nicht vorhanden." _
& vbNewLine _
& "soll der Ordner angelegt werden?!", vbYesNo)
If Antwort3 = vbYes Then
MkDir Ord3
MsgBox "Ordner " & Ord3 & " wurde angelegt"
Exit Sub
End If
End If

ChDir Ord3

 

Hallo
Hast du dir den Aufbau von dlookup schon mal näher angesehen?
Dort kannst du auch das Filterkriterium angeben.
Es liefert immer nur einen Wert zurück.
Gruß MDD

 

Danke MDD, hätte ich eigentlich wissen können, aber manchmal ist man halt Betriebslblind