Sub main()
Dim sSQL As String: sSQL = "SELECT sum(Anzahl), [Einheit], [Pos], [Anlage] FROM `Tabelle1$` GROUP BY [Pos], [Anlage], [Einheit]"
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
End Sub