Dim SQL As String
 
        SQL = "SELECT   ver.test1, ver.test2, " & _
        "(CASE ver.test3 " & _
        "WHEN '12345' " & _
        "THEN '65432' " & _
        "WHEN '54321' " & _
        "THEN '65847' " & _
        "ELSE ver.test3 " & _
        "END) " & _
'DIE ERSTE CASE FUNKTIONIERT!!!
'AB HIER KRACHT ES DANN ( habe ih hier irgendwelche klammern falsch gesetzt?)
        ",(CASE ver.test3 " & _
        "WHEN '12345'  " & _
              "THEN (SELECT SUM (a.menge) " & _
                       "FROM Table2 a " & _
                      "WHERE a.TEST4 = ver.TEST4 " & _
                        "AND a.TEST5 = ver.TEST5 " & _
                        "AND a.TEST3 IN " & _
                                     "('30014Z', '30033B', '156337', '300175')" & _
                                     "" & _
                        "AND a.TEST6 = ver.TEST6) " & _
        "WHEN '30014X' " & _        
               "THEN (SELECT SUM (a.menge) " & _
                       "FROM Table2 a " & _
                         "WHERE a.TEST4 = ver.TEST4 " & _
                        "AND a.TEST5 = ver.TEST5 " & _
                        "AND a.TEST3 IN " & _
                        "AND a.leart IN ('30014X', '30033B', '156337') " & _
                        "AND a.TEST6 = ver.TEST6) " & _
        "ELSE ver.menge " & _
        "END ver.menge) " & _
        "FROM Table1 ver " & _
        "WHERE ver.Test7 = 'HALLO' " & _
       "ORDER BY owner_name, leart, bemerkung"