Thema Datum  Von Nutzer Rating
Antwort
06.02.2024 10:55:37 Sabi
NotSolved
06.02.2024 12:57:16 Gast14877
NotSolved
06.02.2024 13:10:18 Gast98112
NotSolved
Blau Ja, jetzt wird n Schuh draus
06.02.2024 13:14:42 Gast81475
*****
Solved
06.02.2024 14:07:42 Sabi
NotSolved
06.02.2024 14:10:33 Gast98696
NotSolved
06.02.2024 14:10:46 Sabi
NotSolved
06.02.2024 14:22:09 Sabi
NotSolved
06.02.2024 15:07:59 Gast17694
NotSolved
06.02.2024 15:16:04 Sabi
NotSolved
06.02.2024 15:45:39 Gast17436
NotSolved
06.02.2024 15:59:27 Sabi
NotSolved
07.02.2024 07:46:37 Gast73374
NotSolved
07.02.2024 07:52:58 Sabi
NotSolved
07.02.2024 08:05:43 Gast83734
NotSolved
07.02.2024 08:11:47 Serdal
NotSolved
07.02.2024 09:14:08 Gast12836
NotSolved
07.02.2024 08:12:46 Sabi
NotSolved
07.02.2024 09:20:43 Sabi
NotSolved
07.02.2024 09:45:51 Gast62333
*****
Solved
07.02.2024 11:28:47 Sabi
NotSolved

Ansicht des Beitrags:
Von:
Gast81475
Datum:
06.02.2024 13:14:42
Views:
81
Rating: Antwort:
 Nein
Thema:
Ja, jetzt wird n Schuh draus
    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

 


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
06.02.2024 10:55:37 Sabi
NotSolved
06.02.2024 12:57:16 Gast14877
NotSolved
06.02.2024 13:10:18 Gast98112
NotSolved
Blau Ja, jetzt wird n Schuh draus
06.02.2024 13:14:42 Gast81475
*****
Solved
06.02.2024 14:07:42 Sabi
NotSolved
06.02.2024 14:10:33 Gast98696
NotSolved
06.02.2024 14:10:46 Sabi
NotSolved
06.02.2024 14:22:09 Sabi
NotSolved
06.02.2024 15:07:59 Gast17694
NotSolved
06.02.2024 15:16:04 Sabi
NotSolved
06.02.2024 15:45:39 Gast17436
NotSolved
06.02.2024 15:59:27 Sabi
NotSolved
07.02.2024 07:46:37 Gast73374
NotSolved
07.02.2024 07:52:58 Sabi
NotSolved
07.02.2024 08:05:43 Gast83734
NotSolved
07.02.2024 08:11:47 Serdal
NotSolved
07.02.2024 09:14:08 Gast12836
NotSolved
07.02.2024 08:12:46 Sabi
NotSolved
07.02.2024 09:20:43 Sabi
NotSolved
07.02.2024 09:45:51 Gast62333
*****
Solved
07.02.2024 11:28:47 Sabi
NotSolved