Dim sSQL As String: sSQL = "SELECT [Position], [Beschreibung], sum([Anlage1]), sum([Anlage2]), sum([Anlage3]) FROM [Tabelle1$] GROUP BY [Position], [Beschreibung]"
Dim rs As Object: Set rs = CreateObject("ADODB.Recordset")
Dim wks As Excel.Worksheet
With rs
.Open sSQL, "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=""Excel 12.0 XML"";Data Source=" & ThisWorkbook.FullName
If Not (.EOF And .BOF) = True Then
Set wks = ThisWorkbook.Worksheets.Add(ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
wks.Range("A2").CopyFromRecordset rs
End If
.Close
End With