Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

DAO- Auswertung einer Abfrage - Hilfe

DAO- Auswertung einer Abfrage - Hilfe
10.09.2003 11:13:58
Tina
Hallo Leute,

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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: DAO- Auswertung einer Abfrage - Hilfe
10.09.2003 14:09:54
Nike
Hi,
wie ist denn der Aufbau im Access?
Greifst du dort auf unterschiedliche Tabellen,
oder ziehst du alles aus einer?

Noch etwas mehr von deinem DAO Code könnte auch nicht schaden,
z.B. ist daten ein Recordset oder ne querydef?

Bye

Nike

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige