sorry, dass ich heute soviel Fragen stelle.
Aber ich habe da noch eine. Wenn ich den folgenden Code ausführen will,
dann hackt es hier an der Stelle:
"Datei = Dir(Pfad & *.xls*)"
Kann mir jemannd sagen wie ich das entsprechend abändern muss?
Sub Kopieren()
Dim Datei As String
Dim Pfad As String
Pfad = "S:\Pulverstatus\export\"
Datei = Dir(Pfad & *.xls*)
Do While Datei ""
Workbooks.Open Pfad & Datei
ActiveWorkbook.Sheets("Tabelle1").UsedRange.Copy
With ThisWorkbook.Sheets("Tabelle1")
.Cells(.SpecialCells(xlCellTypeLastCell).Row + 1, 1).PasteSpecial xlPasteAll
End With
ActiveWorkbook.Close
Kill Pfad & Datei
Datei = Dir
Loop
Application.OnTime Now + TimeSerial(0, 5, 0), "Kopieren"
End Sub
Vorab vielen lieben Dank.LG
Sascha