Hey,
hier mal die Ausgangsdaten. Ich habe eine Liste die bei L8 beginnt, die Summe der Einträge ist in O1 eingetragen. Anschließend lese ich die Dateien eines Ordners (Pfad in A5) aus und lasse ihn ab E8 ausgeben.
Funktionierte soweit alles perfekt, nur ist es zum Abarbeiten ungeeignet, da ich gleiche Werte nicht in der gleichen Zeile habe.
Hab danach in der Ausgabeschleife (If Not objDatei Is Nothing Then) eine weitere If-Abfrage hinzugefügt und genau hier muss irgendwo der Fehler liegen.
Zum Verdeutlichen: [url]https://imgur.com/a/xfOuY[/url]
Die Ausgabe soll so erfolgen wie im unteren Bild zu sehen. Die aktuelle Ausgabe ist im mittleren Bild zu sehen. Das obere Bild zeigt die Ausgabe vor der If-Abfrage.
Hier der VBA Code:
Sub DateienAuflistenA5()
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Set objFileSystem = CreateObject("scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder(Cells(5, 1))
Set objDateienliste = objVerzeichnis.Files
lngZeile = 8
lngZeile2 = Cells(1, 15) + lngZeile
For Each objDatei In objDateienliste
If Not objDatei Is Nothing Then
If ActiveSheet.Cells(lngZeile, 12).Value = objDatei.Name Then
ActiveSheet.Cells(lngZeile, 5) = objDatei.Name
ActiveSheet.Cells(lngZeile, 10) = Right(objDatei.Name, 3)
lngZeile = lngZeile + 1
Else
ActiveSheet.Cells(lngZeile2, 5) = objDatei.Name
ActiveSheet.Cells(lngZeile2, 10) = Right(objDatei.Name, 3)
lngZeile2 = lngZeile2 + 1
End If
End If
Next objDatei
End Sub