Private Sub abfrage_ok_Click()
Dim datum_von As String
datum_von = Abfrage.datum_t1
Dim datum_bis As String
datum_bis = Abfrage.datum_t2
Dim Counter
Counter = 0
Do While Counter <= 4
sqlstring = "SELECT ABSKPF.COMMAK, ABSKPF.AUNRAK, ABSKPF.MX01AK, ABSKPF.KORPAK FROM S2171AEV.ALMADAT.ABSKPF ABSKPF WHERE ABSKPF.CLASAK='1' AND ABSKPF.LITMAKISO={d '" & datum_von & "'} ORDER BY ABSKPF.COMMAK ASC"
connstring = "ODBC;DSN=ALMADAT;"
With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("A3"), Sql:=sqlstring)
.Refresh BackgroundQuery:=False
Unload Abfrage
End With
sqlstring = "SELECT ABSKPF.LITMAKISO FROM S2171AEV.ALMADAT.ABSKPF ABSKPF WHERE ABSKPF.LITMAKISO={d '" & datum_von & "'} GROUP BY ABSKPF.LITMAKISO ORDER BY ABSKPF.LITMAKISO ASC"
connstring = "ODBC;DSN=ALMADAT;"
With ActiveSheet.QueryTables.Add(Connection:=connstring, Destination:=Range("A1"), Sql:=sqlstring)
.Refresh BackgroundQuery:=False
Unload Abfrage
End With
Counter = Counter + 1
datum_von = DateAdd("d", -1, datum_von)
Loop
End Sub