versuchs mal damit. ohne garantie
Sub DatenHolen()
Dim oWB As Workbook, oWS As Worksheet, Pfad1 As String, EXPORTDATEI, lastrow As Long
EXPORTDATEI = Application.GetOpenFilename("Microsoft Excel-Dateien (*.xlsm),*.xlsm")
If EXPORTDATEI <> "" Then
Set oWB = Workbooks.Open(Filename:=EXPORTDATEI)
Pfad1 = CurDir
For Each oWS In oWB
If oWS.Name Like "*(55i)*" Then
oWS.Range("AA10:AI72").Copy
With Workbooks("Serienpunkte auslesen.xlsm").Worksheets("Tabelle1")
lastrow = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("A" & lastrow + 1).PasteSpecial xlPasteValues
End With
End If
Next
End If
End Sub