Sub DateienLesen() Call EventsOff Dim DateiName As String DateiName = Dir("C:\Ungesichert\TBM_Daten\Advance \" & "*.xlsx") Do While DateiName <> "" If ThisWorkbook.Name <> DateiName Then Workbooks.Open Filename:="C:\Ungesichert\TBM_Daten\Advance \" & DateiName 'aendere noch bei der naechsten zeile,bei dieser silbe "A1:A" bis zu welcher spalte z.b. "A1:C" Workbooks(DateiName).Worksheets(1).Range("A1:A" & Workbooks(DateiName).Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row).Copy ThisWorkbook.Worksheets(1).Range("A" & ThisWorkbook.Worksheets(1).Range("A" & Rows.Count).End(xlUp).Row + 1).PasteSpecial Paste:=xlValues, Operation:=xlNone Workbooks(DateiName).Close SaveChanges:=True End If DateiName = Dir Loop Call EventsOn End Sub
Public Sub EventsOff() With Application .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual End With End Sub
Public Sub EventsOn() With Application .ScreenUpdating = True .EnableEvents = True .Calculation = xlCalculationAutomatic End With End Sub
58.4k Fragen
249k Antworten
7k Nutzer