DAO- Auswertung einer Abfrage - Hilfe
10.09.2003 11:13:58
Tina
ich versuche mich gerade in DAO Programmierung, dabei bin ich auf folgendes Problem gestoßen. Ich möchte eine Abfrage auslesen und diese in eine Excel Datei schreiben. So eine ganz einfache eins zu eins Übertragung klappt prima.
Die Tabelle der Abfrage entspricht folgendem Muster:
Kostenstelle, Währung, Wert
Die Tabelle in Excel soll nun folgendes Format haben
Kostenstelle, Euro, US Dollar, Australische und Kanadische Dollar und als Inhalt die jeweiligen Werte. Die Übertragung erfordert es nun, das in der Exceltabelle immer wieder zu der nur einmalig auftretenden Kostenstelle zurück gesprungen wird und die anderen Werte der Währung dort eintragen wird. Ich weiß bloß nicht wie?
So sieht der Ursprungscode aus. Kann jemand helfen?
Dim i As Long
i = 3
Do
With daten
Worksheets(2).Cells(i, 1) = .Fields("KSt")
Worksheets(2).Cells(i, 2) = .Fields("Ort")
Worksheets(2).Cells(i, 3) = .Fields("Adresse")
If .Fields("Währung") = "EUR" Then
Worksheets(2).Cells(i, 4) = .Fields("Ergebnis")
End If
If .Fields("Währung") = "AUD" Then
Worksheets(2).Cells(i, 6) = .Fields("Ergebnis")
End If
If .Fields("Währung") = "CAD" Then
Worksheets(2).Cells(i, 7) = .Fields("Ergebnis")
End If
If .Fields("Währung") = "USD" Then
Worksheets(2).Cells(i, 5) = .Fields("Ergebnis")
End If
.MoveNext
End With
Worksheets(2).Cells(i + 2, 8) = Worksheets(2).Cells(i + 2, 4) + Worksheets(2).Cells(i + 2, 5) + Worksheets(2).Cells(i + 2, 6) + Worksheets(2).Cells(i + 2, 7)
summe1 = summe1 + Worksheets(2).Cells(i + 2, 4)
summe2 = summe2 + Worksheets(2).Cells(i + 2, 5)
summe3 = summe3 + Worksheets(2).Cells(i + 2, 6)
summe4 = summe4 + Worksheets(2).Cells(i + 2, 7)
i = i + 1
Loop Until daten.EOF = True