MySQL Abfrage artikelbezogener Umsatz pro Jahr ?

Sub Artikelumsätze_aktualisieren()

  Sheets("Artikelumsätze").Activate  
  ActiveSheet.Label1.Visible = True   ' "Bitte Warten" einblenden (wird am Ende des Programms wieder ausgeblendet  
    
  Dim zaehler As Integer   'Dieser Zähler wir hochgezählt wenn eine leere Zeile aktualisiert wird. Wenn 4 leere Zeilen hintereinander kommen dann kann man sich sicher sein dass das ende der Liste erreicht worden ist.  
  Dim zeile As Integer
  Dim Artikelnummer As String
  Dim SQLstring(20) As String
  
  zeile = 3
  zaehler = 0
  Do
    Artikelnummer = Range("A" & zeile)  
    If Artikelnummer = "" Then zaehler = zaehler + 1 Else zaehler = 0  
    
  ' Begin mit der ersten Auswertung (Gesamtumsatz,Gesamtmenge)  
    SQLstring(0) = "SELECT SUM(`GP`), SUM(`MENGE`)"  
    SQLstring(1) = "FROM `mand9`.`sg_auf_fpos`, `mand9`.`sg_auf_fschrift`, `mand9`.`sg_auf_artikel`"  
    SQLstring(2) = "WHERE `sg_auf_fpos`.`SG_AUF_FSCHRIFT_1_FK`=`sg_auf_fschrift`.`SG_AUF_FSCHRIFT_PK`"  
    SQLstring(3) = "AND `sg_auf_artikel`.`ARTNR`='" & Artikelnummer & "'"  
    SQLstring(4) = "AND `sg_auf_artikel`.`SG_AUF_ARTIKEL_PK`= `sg_auf_fpos`.`SG_AUF_ARTIKEL_FK`"  
    SQLstring(5) = "AND `ERFART`='04RE'"  
    SQLstring(6) = "AND `sg_auf_fschrift`.`KUNDGR`='Vertreter'"  
    SQLstring(7) = "GROUP BY `sg_auf_fpos`.`SG_AUF_ARTIKEL_FK`"  
    SQLstring(8) = ""  
    
    With ActiveSheet.QueryTables.Add(Connection:="ODBC;DATABASE=mand9;DSN=GS-Abfrage;OPTION=0;PWD=gast;PORT=0;SERVER=server-pu;UID=gast;", Destination:=Cells(zeile, 3))  
        .CommandText = SQLstring(0) & SQLstring(1) & SQLstring(2) & SQLstring(3) & SQLstring(4) & SQLstring(5) & SQLstring(6) & SQLstring(7) & SQLstring(8)
        .Name = ""  
        .FieldNames = False
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlOverwriteCells
        .SavePassword = True
        .SaveData = True
        .AdjustColumnWidth = False
        .RefreshPeriod = 0
        .PreserveColumnInfo = True
        .Refresh BackgroundQuery:=False
    End With
    Cells(zeile, 3).NumberFormat = "#,##0.00 $"  
    Cells(zeile, 4).NumberFormat = "0"  
    If Cells(zeile, 3).Value = "" And Artikelnummer <> "" Then Cells(zeile, 3).Value = 0  
    If Cells(zeile, 4).Value = "" And Artikelnummer <> "" Then Cells(zeile, 4).Value = 0  
    
    Dim zaehler2 As Integer
    Dim Jahr As Integer
    zaehler2 = 5
    Jahr = Cells(1, zaehler2).Value
    Do
    
      ' Beginn mit der Jahresauswertung (Gesamtumsatz,Gesamtmenge pro Jahr)  
      SQLstring(0) = "SELECT SUM(`GP`), SUM(`MENGE`)"  
      SQLstring(1) = "FROM `mand9`.`sg_auf_fpos`, `mand9`.`sg_auf_fschrift`, `mand9`.`sg_auf_artikel`"  
      SQLstring(2) = "WHERE `sg_auf_fpos`.`SG_AUF_FSCHRIFT_1_FK`=`sg_auf_fschrift`.`SG_AUF_FSCHRIFT_PK`"  
      SQLstring(3) = "AND `sg_auf_artikel`.`ARTNR`='" & Artikelnummer & "'"  
      SQLstring(4) = "AND `sg_auf_artikel`.`SG_AUF_ARTIKEL_PK`= `sg_auf_fpos`.`SG_AUF_ARTIKEL_FK`"  
      SQLstring(5) = "AND `ERFART`='04RE'"  
      SQLstring(6) = "AND `sg_auf_fschrift`.`KUNDGR`='Vertreter'"  
      SQLstring(7) = "AND `sg_auf_fschrift`.`DATUM` LIKE '" & Jahr & "%'"  
      SQLstring(8) = "GROUP BY `sg_auf_fpos`.`SG_AUF_ARTIKEL_FK`"  
    
      With ActiveSheet.QueryTables.Add(Connection:="ODBC;DATABASE=mand9;DSN=GS-Abfrage;OPTION=0;PWD=gast;PORT=0;SERVER=server-pu;UID=gast;", Destination:=Cells(zeile, zaehler2))  
          .CommandText = SQLstring(0) & SQLstring(1) & SQLstring(2) & SQLstring(3) & SQLstring(4) & SQLstring(5) & SQLstring(6) & SQLstring(7) & SQLstring(8)
          .Name = ""  
          .FieldNames = False
          .RowNumbers = False
          .FillAdjacentFormulas = False
          .PreserveFormatting = True
          .RefreshOnFileOpen = False
          .BackgroundQuery = True
          .RefreshStyle = xlOverwriteCells
          .SavePassword = True
          .SaveData = True
          .AdjustColumnWidth = False
          .RefreshPeriod = 0
          .PreserveColumnInfo = True
          .Refresh BackgroundQuery:=False
      End With
      Cells(zeile, zaehler2).NumberFormat = "#,##0.00 $"  
      Cells(zeile, zaehler2 + 1).NumberFormat = "0"  
      If Cells(zeile, zaehler2).Value = "" And Artikelnummer <> "" Then Cells(zeile, zaehler2).Value = 0  
      If Cells(zeile, zaehler2 + 1).Value = "" And Artikelnummer <> "" Then Cells(zeile, zaehler2 + 1).Value = 0  
    
      zaehler2 = zaehler2 + 2
      Jahr = Cells(1, zaehler2).Value
    Loop While Jahr <> 0
    
    zeile = zeile + 1
  Loop While zaehler < 4
  ActiveSheet.Label1.Visible = False     ' "Bitte Warten" wieder ausblenden  
End Sub