Könnt ihr mir helfen?
'öffnen der Excel Datei
Set objWbk = Workbooks.Open(Pfad & strFile, False, True)
strName = Left(objWbk.Name, Len(objWbk.Name) - 4)
'ich weiß nicht mehr was hier gemacht wird ?
With ThisWorkbook.Worksheets
For Each objWks In objWbk.Worksheets
If Application.WorksheetFunction.CountA(objWks.Cells) > 0 Then
objWks.Copy , .Item(.Count)
Danke