Next ohne For
06.02.2022 14:56:10
Christian
es geht um untenstehendes Makro. Irgendwie übersehe ich da was aber ich weiß nicht was. Mir sagt Excel Next ohne For aber ich sehe nicht wo das fehlen sollte.
Bitte sagt es mir.
Markiert wird das erse Next objDatei
Danke
Public Sub DateienAuflisten()
Dim blnFound As Boolean
Dim lngZeile As Long
Dim objFileSystem As Object
Dim objVerzeichnis As Object
Dim objDateienliste As Object
Dim objDatei As Object
Dim objDrives As Object
Dim objDrive As Object
Set objFileSystem = CreateObject(Class:="Scripting.FileSystemObject")
Set objVerzeichnis = objFileSystem.GetFolder("D:\Bilder")
Set objDateienliste = objVerzeichnis.Files
For Each objDatei In objDateienliste
If objDatei.Name Like "MRS*" Then
lngZeile = lngZeile + 1
Cells(lngZeile, 1) = objDatei.Name
Next objDatei
Set objDrives = objFileSystem.Drives
For Each objDrive In objDrives
If objDrive.DriveLetter = "E" Then
blnFound = True
Set objDrive = Nothing
Exit For
End If
Next
If blnFound Then
lngZeile = 0
Set objVerzeichnis = objFileSystem.GetFolder("E:\Bilder")
Set objDateienliste = objVerzeichnis.Files
For Each objDatei In objDateienliste
lngZeile = lngZeile + 1
Cells(lngZeile, 2) = objDatei.Name
Next objDatei
End If
Set objDrives = Nothing
Set objVerzeichnis = Nothing
Set objDateienliste = Nothing
Set objFileSystem = Nothing
End Sub