Suche Makro zum Inhalt kopieren
12.03.2021 07:43:30
Markus
Entweder von Zeile 2 bis Zeile 30, oder alle Zellen ab Zeile 2. Der Teil mit dem öffnen uns selektieren
funktioniert, aber ich kenne die korrekte Syntax nicht, um das Workbook anzusprechen.
Wäre super, wenn mir jemand helfen könnte den Loop Teil anzupassen.
Sub MergeAllWorkbooks()
Application.ScreenUpdating = False
Dim SummarySheet As Worksheet
Dim FolderPath As String
Dim NRow As Long
Dim FileName As String
Dim WorkBk As Workbook
Dim SourceRange As Range
Dim DestRange As Range
Set SummarySheet = Workbooks.Add(xlWBATWorksheet).Worksheets(1)
FolderPath = "c:\AIOPCBtest1\"
NRow = 2
FileName = Dir(FolderPath & "*.xl*")
Do While FileName ""
' Hier klemmt es:
Set WorkBk = Workbooks.Open(FolderPath & FileName)
Set SourceRange = WorkBk.Sheets("Vorlage").Rows("2:40").Select
Selection.Copy
Set DestRange = SummarySheet.Range("A" & NRow).Select
ActiveSheets.Paste
Loop
SummarySheet.Columns.AutoFit
NRow = NRow + 30
Application.ScreenUpdating = True
End Sub
Anzeige