Thema Datum  Von Nutzer Rating
Antwort
02.02.2024 10:37:48 Sabi
NotSolved
02.02.2024 11:45:57 Gast72536
NotSolved
02.02.2024 11:58:20 Gast19728
NotSolved
02.02.2024 12:03:08 Gast78158
NotSolved
05.02.2024 06:53:57 Sabi
NotSolved
Blau doppelte summieren je Anlage
05.02.2024 07:59:27 Mase
*****
Solved
05.02.2024 08:25:32 Sabi
NotSolved
05.02.2024 08:50:47 Mase
NotSolved
05.02.2024 10:25:31 Sabi
NotSolved
05.02.2024 11:16:57 Mase
NotSolved
05.02.2024 11:28:48 Sabi
NotSolved
05.02.2024 11:44:35 Mase
NotSolved
05.02.2024 11:57:41 Sabi
NotSolved
05.02.2024 12:15:26 Mase
*****
Solved
05.02.2024 12:25:04 Sabi
NotSolved

Ansicht des Beitrags:
Von:
Mase
Datum:
05.02.2024 07:59:27
Views:
62
Rating: Antwort:
 Nein
Thema:
doppelte summieren je Anlage
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

 

Aber was spricht gegen die Lösung von:


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
02.02.2024 10:37:48 Sabi
NotSolved
02.02.2024 11:45:57 Gast72536
NotSolved
02.02.2024 11:58:20 Gast19728
NotSolved
02.02.2024 12:03:08 Gast78158
NotSolved
05.02.2024 06:53:57 Sabi
NotSolved
Blau doppelte summieren je Anlage
05.02.2024 07:59:27 Mase
*****
Solved
05.02.2024 08:25:32 Sabi
NotSolved
05.02.2024 08:50:47 Mase
NotSolved
05.02.2024 10:25:31 Sabi
NotSolved
05.02.2024 11:16:57 Mase
NotSolved
05.02.2024 11:28:48 Sabi
NotSolved
05.02.2024 11:44:35 Mase
NotSolved
05.02.2024 11:57:41 Sabi
NotSolved
05.02.2024 12:15:26 Mase
*****
Solved
05.02.2024 12:25:04 Sabi
NotSolved