AW: Dann befolge ihn auch-Selbsthilfe?
26.04.2019 18:59:02
cysu11
Hi Jürgen,
prüfe nochmals ob es tatsächlich .xlsm Dateien sind und der Pfad 100% in Ordnung ist und ob in ersten Blatt der Dateien in J3 tatsächlich "Ja" drin steht!
Dann muss der Code funktionieren, ich habe ihn noch bissi überarbeitet (@ Daniel, ich habe den Code aus einer anderen Datei kopiert und habe anscheinend nicht alles gelöscht, was nicht da rein gehört! :) )
Option Explicit
Sub XlsxMassen()
Dim strFile As String, strpath As String, strExt As String
Dim wkb1 As Workbook, lz As Long
strpath = "C:\Users\rabe\Downloads\TestQ\"
strExt = "*.xlsm"
strFile = Dir(strpath & strExt)
If strFile = "" Then
MsgBox "Keine Dateien gefunden!"
Exit Sub
End If
Do While Len(strFile) > 0
Application.ScreenUpdating = False
Set wkb1 = Workbooks.Open(Filename:=strpath & strFile, Local:=True)
With wkb1.Sheets(1)
If .Range("J3").Value = "Ja" Then
lz = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row + 1
ThisWorkbook.Sheets(1).Range("A" & lz).Value = wkb1.Name
End If
End With
Workbooks(strFile).Close SaveChanges:=False
strFile = Dir()
Loop
Application.ScreenUpdating = True
End Sub
Wenn mit diesem Code und der Prüfung der o.g. Sachen trotzdem nicht funktioniert, dann lade deine Zieldatei und eine Quelldatei hoch, dann können wir gucken, wo der Hund begraben ist! :)
LG
Alexandra