AW: Report nach Schleife
04.02.2022 09:00:37
Julian
Hallo Thorsten,
tut mir Leid, das ist verständlich.
Der Code sieht etwa wie folgt aus:
For i = 1 To NumRows
'Basisausbildung
'Basisausbildung
'Basisausbildung
'Basisausbildung
'Basisausbildung
If Cells(i, 48).Value = 1 And Cells(i, 6).Value = "Basisausbildung" And Cells(i, 17).Value "Storniert" Then
If Dir$("XXX\200 - Extern\100 - Hausarbeiten Kunden\100 - Kurse\Basisausbildung " & Worksheets("Bestellungen").Range("AE" & i).Text, vbDirectory) = "" Then MkDir ("XXX\200 - Extern\100 - Hausarbeiten Kunden\100 - Kurse\Basisausbildung " & Worksheets("Bestellungen").Range("AE" & i).Text)
MkDir ("XXX\200 - Extern\100 - Hausarbeiten Kunden\100 - Kurse\Basisausbildung " & Worksheets("Bestellungen").Range("AE" & i).Text & "\" & Worksheets("Bestellungen").Range("D" & i).Text & ", " & Worksheets("Bestellungen").Range("C" & i).Text)
MkDir ("XXX\200 - Extern\100 - Hausarbeiten Kunden\100 - Kurse\Basisausbildung " & Worksheets("Bestellungen").Range("AE" & i).Text & "\" & Worksheets("Bestellungen").Range("D" & i).Text & ", " & Worksheets("Bestellungen").Range("C" & i).Text & "\" & "HA 1")
MkDir ("XXX\200 - Extern\100 - Hausarbeiten Kunden\100 - Kurse\Basisausbildung " & Worksheets("Bestellungen").Range("AE" & i).Text & "\" & Worksheets("Bestellungen").Range("D" & i).Text & ", " & Worksheets("Bestellungen").Range("C" & i).Text & "\" & "HA 2")
MkDir ("XXX\200 - Extern\100 - Hausarbeiten Kunden\100 - Kurse\Basisausbildung " & Worksheets("Bestellungen").Range("AE" & i).Text & "\" & Worksheets("Bestellungen").Range("D" & i).Text & ", " & Worksheets("Bestellungen").Range("C" & i).Text & "\" & "HA 3")
MkDir ("XXX\200 - Extern\100 - Hausarbeiten Kunden\100 - Kurse\Basisausbildung " & Worksheets("Bestellungen").Range("AE" & i).Text & "\" & Worksheets("Bestellungen").Range("D" & i).Text & ", " & Worksheets("Bestellungen").Range("C" & i).Text & "\" & "HA 4")
MkDir ("XXX\200 - Extern\100 - Hausarbeiten Kunden\100 - Kurse\Basisausbildung " & Worksheets("Bestellungen").Range("AE" & i).Text & "\" & Worksheets("Bestellungen").Range("D" & i).Text & ", " & Worksheets("Bestellungen").Range("C" & i).Text & "\" & "HA 5")
MkDir ("XXX\200 - Extern\100 - Hausarbeiten Kunden\100 - Kurse\Basisausbildung " & Worksheets("Bestellungen").Range("AE" & i).Text & "\" & Worksheets("Bestellungen").Range("D" & i).Text & ", " & Worksheets("Bestellungen").Range("C" & i).Text & "\" & "Mündliche Abschlussprüfung")
Range("AU" & i).Value = 1
'Eignungstest
'Eignungstest
'Eignungstest
'Eignungstest
'Eignungstest
ElseIf Cells(i, 33).Value = 1 And Cells(i, 6).Value = "Eignungstest" And Cells(i, 17).Value "Storniert" Then
If Dir$("XXX\200 - Extern\400 - Eignungstest\Eignungstest " & Worksheets("Bestellungen").Range("AE" & i).Text, vbDirectory) = "" Then MkDir ("XXX\200 - Extern\400 - Eignungstest\Eignungstest " & Worksheets("Bestellungen").Range("AE" & i).Text)
Range("AF" & i).Value = 1
End If
Next i
Wenn man sich die obere If z.B. anschaut, wird die Liste mehrere Durchläufe machen, also für verschiedene Teilnehmer Ordner anlegen. Ich möchte aber nur ein einmaliges Feedback, dass Ordner angelegt wurden, nicht für jeden Durchlauf der Schleife. Und wenn gar kein Ordner angelegt wird, weil die Schleife nicht greift, möchte ich gar kein Feedback haben,
Um die Liste jetzt zu preparieren wegen Datenschutz, fehlt mir gerade leider die Zeit ;(