Vba Berechnen Einfach Gleitender Durchschnitt

Moving Average Dieses Beispiel lehrt Sie, wie Sie den gleitenden Durchschnitt einer Zeitreihe in Excel berechnen können. Ein gleitender Durchschnitt wird verwendet, um Unregelmäßigkeiten (Gipfel und Täler) zu glätten, um Trends leicht zu erkennen. 1. Zuerst schauen wir uns unsere Zeitreihen an. 2. Klicken Sie auf der Registerkarte Daten auf Datenanalyse. Hinweis: Kann die Schaltfläche Datenanalyse nicht finden Hier klicken, um das Analysis ToolPak-Add-In zu laden. 3. Wählen Sie Moving Average und klicken Sie auf OK. 4. Klicken Sie in das Feld Eingabebereich und wählen Sie den Bereich B2: M2. 5. Klicken Sie in das Feld Intervall und geben Sie 6 ein. 6. Klicken Sie in das Feld Ausgabebereich und wählen Sie Zelle B3. 8. Zeichnen Sie einen Graphen dieser Werte. Erläuterung: Da wir das Intervall auf 6 setzen, ist der gleitende Durchschnitt der Durchschnitt der bisherigen 5 Datenpunkte und der aktuelle Datenpunkt. Dadurch werden Gipfel und Täler geglättet. Die Grafik zeigt einen zunehmenden Trend. Excel kann den gleitenden Durchschnitt für die ersten 5 Datenpunkte nicht berechnen, da es nicht genügend vorherige Datenpunkte gibt. 9. Wiederholen Sie die Schritte 2 bis 8 für Intervall 2 und Intervall 4. Fazit: Je größer das Intervall, desto mehr werden die Gipfel und Täler geglättet. Je kleiner das Intervall, desto näher sind die gleitenden Mittelwerte zu den tatsächlichen Datenpunkten. Wie berechnen Bewegungsdurchschnitte in Excel Excel Datenanalyse für Dummies, 2. Auflage Der Datenanalyse-Befehl bietet ein Werkzeug für die Berechnung von beweglichen und exponentiell geglätteten Mittelwerten in Excel. Angenommen, aus Gründen der Veranschaulichung, dass Sie die tägliche Temperaturinformation gesammelt haben. Sie wollen den dreitägigen gleitenden Durchschnitt berechnen 8212 der Durchschnitt der letzten drei Tage 8212 als Teil einer einfachen Wettervorhersage. Um die gleitenden Durchschnitte für diesen Datensatz zu berechnen, gehen Sie wie folgt vor: Um einen gleitenden Durchschnitt zu berechnen, klicken Sie zuerst auf die Schaltfläche Daten tab8217s Datenanalyse. Wenn Excel das Dialogfeld Datenanalyse anzeigt, wählen Sie aus der Liste die Option Durchschnitt verschieben aus, und klicken Sie dann auf OK. Excel zeigt das Dialogfeld Moving Average an. Identifizieren Sie die Daten, die Sie verwenden möchten, um den gleitenden Durchschnitt zu berechnen. Klicken Sie in das Eingabefeld Eingabebereich des Dialogfelds "Verschieben von Mittel". Dann identifizieren Sie den Eingabebereich, indem Sie entweder eine Arbeitsblattbereichsadresse eingeben oder mit der Maus den Arbeitsblattbereich auswählen. Ihr Bereichsreferenz sollte absolute Zellenadressen verwenden. Eine absolute Zellenadresse geht dem Spaltenbrief und der Zeilennummer mit Zeichen vor, wie bei A1: A10. Wenn die erste Zelle im Eingabebereich eine Textbeschriftung enthält, um Ihre Daten zu identifizieren oder zu beschreiben, markieren Sie das Kontrollkästchen Etiketten in der ersten Zeile. Vergewissern Sie sich im Textfeld Intervall, wie viele Werte in die gleitende Durchschnittsberechnung einbezogen werden sollen. Sie können einen gleitenden Durchschnitt mit einer beliebigen Anzahl von Werten berechnen. Standardmäßig verwendet Excel die letzten drei Werte, um den gleitenden Durchschnitt zu berechnen. Um festzulegen, dass eine andere Anzahl von Werten verwendet wird, um den gleitenden Durchschnitt zu berechnen, geben Sie diesen Wert in das Intervall-Textfeld ein. Sagen Sie Excel, wo die gleitenden Durchschnittsdaten platziert werden sollen. Verwenden Sie das Textfeld Ausgabebereich, um den Arbeitsbereich zu identifizieren, in den Sie die gleitenden Durchschnittsdaten platzieren möchten. Im Beispiel des Arbeitsblatts wurden die gleitenden Durchschnittsdaten in den Arbeitsblattbereich B2: B10 eingefügt. (Optional) Geben Sie an, ob ein Diagramm angezeigt werden soll. Wenn Sie ein Diagramm wünschen, das die gleitenden durchschnittlichen Informationen aufgibt, markieren Sie das Kontrollkästchen Diagrammausgabe. (Optional) Geben Sie an, ob Standardfehlerinformationen berechnet werden sollen. Wenn Sie Standardfehler für die Daten berechnen möchten, markieren Sie das Kontrollkästchen Standardfehler. Excel setzt Standardfehlerwerte neben den gleitenden Mittelwerten. (Die Standardfehlerinformation geht in C2: C10.) Nachdem Sie die Angabe festgelegt haben, welche gleitenden durchschnittlichen Informationen Sie berechnen möchten und wo Sie es platzieren möchten, klicken Sie auf OK. Excel berechnet gleitende durchschnittliche Informationen. Hinweis: Wenn Excel nicht genügend Informationen hat, um einen gleitenden Durchschnitt für einen Standardfehler zu berechnen, legt er die Fehlermeldung in die Zelle. Sie können sehen, mehrere Zellen, die diese Fehlermeldung als Wert anzeigen. Hier ist ein Code, der hilfreich sein sollte für diejenigen, die technische Analyse im Handel und wollen Strategien in Excel zu testen. Es berechnet den einfachen, linear gewichteten und exponentiellen gleitenden Durchschnitt. Außerdem werde ich die Schritte zur Erstellung des Formulars und des VBA-Codes vorstellen und erklären. Einfügen einer UserForm 8211 Name: MAForm Hinzufügen von vier Labels aus den Toolbox-Steuerelementen 8211 Beschriftungen wie oben gedruckter Bildschirm Hinzufügen einer ComboBox für die gleitende durchschnittliche Typauswahl. Es wurde als comboTypeMA bezeichnet. Füge zwei RefEdit-Steuerelemente für den Eingabebereich und den Ausgabebereich hinzu. Hinzufügen einer TextBox zum Auswählen der gleitenden durchschnittlichen Periode Hinzufügen von zwei Schaltflächen: Name: buttonSubmit, Beschriftung: Submit and Name: buttonCancel, Beschriftung: Abbrechen Um die Dropdown-Liste für MA-Typ-Auswahl zu generieren und das User-Formular zu laden, wird ein neues Modul Wird mit dem untenstehenden Code eingefügt. Die ComboBox-Elemente, die durch bewegte Mittelwerte und das Benutzerformular belegt werden, werden geladen. Option Explicit Sub loadMAForm () Mit MAFormboTypeMA. RowSource. AddItem Einfache. AddItem Weighted. AddItem Exponentialende Mit MAForm. Show End Sub Unten ist der Code, der der Schaltfläche Submit zugeschrieben wird. Private Sub buttonSubmitClick () Dim inputRange, outputRange As Range Der inputRange enthält die Preisreihe, die für die Berechnung der MAs verwendet wird, und der outputRange wird mit den gleitenden Mittelwerten gefüllt. Dim inputPeriod as Integer Die gleitende durchschnittliche Periode ist deklariert. Dim inputAddress, outputAddress As String Die als String deklarierten Ein - und Ausgabebereiche. Wenn comboTypeMA. Value ltgt Exponential Und comboTypeMA. Value ltgt Simple Und comboTypeMA. Value ltgt Weighted True Dann MsgBox Bitte wählen Sie einen gleitenden Durchschnitt Typ aus der Liste. RefInputRange. SetFocus Exit Sub Dieser Teil des Verfahrens erzwingt die ersten Einschränkungen bezüglich der übermittelten Daten. Wenn der gleitende Mitteltyp nicht in der Dropdown-Liste enthalten ist, geht die Prozedur nicht zum nächsten Schritt über, und der Benutzer wird aufgefordert, ihn erneut auszuwählen. ElseIf RefInputRange. Value Dann MsgBox Bitte wählen Sie den Eingabebereich. RefInputRange. SetFocus Exit Sub ElseIf RefOutputRange. Value Dann MsgBox Bitte wählen Sie den Ausgabebereich. RefOutputRange. SetFocus Exit Sub ElseIf RefInputPeriod. Value Dann MsgBox Bitte wählen Sie die gleitende durchschnittliche Periode. RefInputPeriod. SetFocus Exit Sub ElseIf Nicht IsNumeric (RefInputPeriod. Value) Dann MsgBox Moving Average Periode muss eine Nummer sein. RefInputPeriod. SetFocus Exit Sub End Wenn andere Einschränkungen erstellt werden. Der Eingangsbereich, der Ausgangsbereich und die Eingabeperiode dürfen nicht leer sein. Auch die gleitende durchschnittliche Periode muss eine Zahl sein. InputAddress RefInputRange. Value Set inputRange Range (inputAddress) outputAddress RefOutputRange. Value Set outputRange Range (outputAddress) inputPeriod RefInputPeriod. Value Die Argumente für inputRange und outputRange Bereiche werden eingegebenAddress und outputAddress als Strings deklariert. Wenn inputRange. Columns. Count ltgt 1 Dann MsgBox Input Bereich kann nur eine Spalte haben. RefInputRange. SetFocus Exit Sub Der inputRange muss nur eine Spalte enthalten. ElseIf inputRange. Rows. Count ltgt outputRange. Rows. Count Dann MsgBox Output Bereich hat eine andere Anzahl von Zeilen als der Eingangsbereich. RefInputRange. SetFocus Exit Sub End Wenn der inputRange und outputRange eine gleiche Anzahl von Zeilen haben müssen. Dim RowCount als Integer RowCount inputRange. Rows. Count Dim cRow Als Integer ReDim inputarray (1 To RowCount) Für cRow 1 Zu RowCount inputarray (cRow) inputRange. Cells (cRow, 1).Value Next cRow inputarray wird als array und it8217s Elemente deklariert Entsprechen den Werten aus jeder Zeile des Eingangsbereichs. If inputPeriod gt RowCount Dann MsgBox Anzahl der ausgewählten Beobachtungen ist amp RowCount amp und die Periode ist amp inputPeriod amp. Der Eingangsbereich muss eine höhere oder gleiche Menge an Elementen haben als der ausgewählte Zeitraum. RefInputRange. SetFocus Exit Sub End Wenn eine weitere Einschränkung hinzugefügt wird 8211 Der Eingabebereich muss eine höhere oder gleiche Menge an Elementen als die Periode haben. Wenn inputPeriod lt 0 Dann MsgBox Moving Average Periode muss höher als 0 sein. RefInputPeriod. SetFocus Exit Sub End Wenn die gleitende durchschnittliche Periode höher als Null sein muss. ReDim outputarray (inputPeriod To RowCount) Als Variant Auch die Array-Dimensionen von outputarray werden ermittelt. Die untere Schranke des Arrays ist der inputPeriod-Wert und die obere Grenze ist der Wert von RowCount (die Anzahl der Elemente im inputRange). Unterhalb des Verfahrens wurde der einfache gleitende Durchschnitt berechnet, wenn die Auswahl für comboTypeMA einfach ist. SMA ----------------------------------------- Wenn comboTypeMA. Value Simple Dann Dim i , J Als Integer Dim Temp als Double Für i inputPeriod Zu RowCount temp 0 Für j (i - (inputPeriod - 1)) Zu i temp temp inputarray (j) Weiter j outputarray (i) temp inputPeriod outputRange. Cells (i, 1).Value outputarray (i) Next i outputRange. Cells (0, 1).Value SMA (amp inputPeriod amp) Grundsätzlich berechnet die Prozedur den gleitenden Durchschnitt der letzten x Zahlen (x entspricht der inputPeriod), beginnend mit dem Element von Das inputarray entspricht der inputPeriod. Unten ist ein vereinfachtes Beispiel, das jeden Schritt des Verfahrens zeigt. In diesem Beispiel gibt es vier Zahlen (no01, no02, no03 und no04) von Zeile 1 bis Zeile 4 und die gleitende durchschnittliche Periode ist 3. Nachdem jeder neue gleitende Durchschnitt berechnet wird, nimmt jede Zelle des outputRange den Wert aus dem Outputarray Und nachdem alle gleitenden Mittelwerte berechnet wurden, wird in der Zelle über outputRange ein Titel eingefügt, der die gleitende durchschnittliche Art und Periode enthält. Der nächste Teil wird den exponentiellen gleitenden Durchschnitt berechnen. EMA ------------------------------------------ ElseIf comboTypeMA. Value Exponential Dann Dim Alpha As Double alpha 2 (inputPeriod 1) Für j 1 Zur EingabePeriod temp temp inputarray (j) Weiter j outputarray (inputPeriod) temp inputPeriod Zuerst wird der Wert von alpha ermittelt. Denn in der Berechnung basiert der Wert der EMA auf der vorherigen EMA, der erste wird der einfache gleitende Durchschnitt sein. (I - 1) alpha (inputarray (i) - outputarray (i - 1)) Weiter i Mit dem zweiten gleitenden Durchschnitt werden sie auf der Grundlage der obigen Formel berechnet: die. Deutsch: www. tab. fzk. de/de/projekt/zusammenf...ng/ab117.htm Vorherige EMA plus alpha multipliziert mit der Differenz zwischen der aktuellen Nummer aus dem inputarray und dem vorherigen EMA-Wert. Für i inputPeriod Zu RowCount outputRange. Cells (i, 1).Value outputarray (i) Weiter i outputRange. Cells (0, 1).Value EMA (amp inputPeriod amp) Genau wie der Code für SMA wird das outputarray gefüllt und Die Zelle über outputarray repräsentiert den Typ und die Periode des gleitenden Durchschnitts. Unten ist der Code für die Berechnung des gewichteten gleitenden Durchschnitts. WMA ------------------------------------------ ElseIf comboTypeMA. Value Weighted Then Dim Temp2 Als Integer Für I inputPeriod Zu RowCount temp 0 temp2 0 Für j (i - (inputPeriod - 1)) Zu i temp temp inputarray (j) (j - i inputPeriod) temp2 temp2 (j - i inputPeriod) Weiter j outputarray (i ) Temp temp2 outputRange. Cells (i, 1).Value outputarray (i) Next i outputRange. Cells (0, 1).Value WMA (amp inputPeriod amp) End If Die folgende Tabelle enthält die Schritte zum Berechnen jeder Variablen, die für die verwendet wird WMA-Berechnung. Genau wie im vorherigen Beispiel, in diesem gibt es für Zahlen in der inputRange. Und die Eingabeperiode ist 3. Unten ist der letzte Code der Prozedur, der das Benutzerformular entlädt. Entladen MAForm End Sub Die untenstehende Prozedur ist für die Schaltfläche Abbrechen. Es wird im selben Modul hinzugefügt. Private Sub buttonCancelClick () Entladen MAForm End SubMoving Durchschnittliche Berechnung Umzug Durchschnittliche Berechnung Umzug Durchschnittliche Berechnung Ich versuche, einen gleitenden Durchschnitt für eine Reihe von Daten zu berechnen. Ich möchte den gleitenden Durchschnitt für jeden Punkt innerhalb der Daten generieren, um in einem Graphen zu zeigen. Wie auch immer, unten ist ein Beispiel von MS Support. Ich habe dem Brief gefolgt, aber meine gibt keinen gleitenden Durchschnitt. Es wiederholt den gleichen Datenpunkt immer wieder (der erste Datenpunkt). Also, ich glaube nicht, dass die Funktion das Startdatum in der MyRST. Seek-Zeile findet, also nur den ersten Datenpunkt zurückgibt. Schließlich (vielleicht macht das wirklich einfach) Ich bin verwirrt darüber, wie die Indizes funktionieren. Ich dachte, du könntest nur einen Primärschlüssel haben, aber anscheinend kannst du mehrere Feldbeschränkungen erstellen. Ich habe versucht, dies mit der folgenden Datendefinitionsabfrage zu tun: ALTER TABLE Table1 ADD CONSTRAINT NoDupes UNIQUE (CurrencyType, TransactionDate) Sorry über die Länge dieses Beitrags. Ich schätze Ihre Hilfe. Die folgende Beispielfunktion berechnet die Bewegungsdurchschnitte auf der Grundlage einer Tabelle mit einem Multifeld-Primärschlüssel. Für dieses Beispiel werden die wöchentlichen Werte der Fremdwährungen verwendet. Gehen Sie folgendermaßen vor, um die Beispielfunktion zu erstellen: Erstellen Sie die folgende Tabelle und speichern Sie sie als Tabelle1: Tabelle: Tabelle 1 --------------------------- -------------- Feldname: CurrencyType Primärschlüsseldatentyp: Textfeldgröße: 25 Feldname: TransactionDate Primärschlüssel Datentyp: DateTime Format: Kurz Datum Feldname: Rate Datentyp: Währung Dezimalstellen: 4 Zeigen Sie die Tabelle in der Datenblattansicht an und geben Sie die folgenden Werte ein: CurrencyType TransactionDate Rate ------------------------------- ------------- Yen 8693 0.0079 Yen 81393 0.0082 Yen 82093 0.0085 Yen 82793 0.0088 Yen 9393 0.0091 Marke 8693 0.5600 Marke 81393 0.5700 Marke 82093 0.5800 Marke 82793 0.5900 Marke 9393 0.6000 Öffnen Sie ein neues Modul und geben Sie die Folgende Funktionen: Funktion MAVgs (Perioden als Integer, StartDate, TypeName) Dim MyDB Als DATABASE, MyRST als Recordset, MySum als Double Dim i, x Set MyDB CurrentDb () Set MyRST MyDB. OpenRecordset (Tabelle1) Auf Fehler Wiederaufnahme Weiter MyRST. Index PrimaryKey x Perioden - 1 ReDim Store (x) MySum 0 Für i 0 Zu x MyRST. MoveFirst MyRST. Seek, TypeName, StartDate Diese beiden Variablen sollten in der gleichen Reihenfolge sein wie die Primärschlüsselfelder in Ihrer Tabelle. Speichern (i) MyRSTRate Wenn ich x dann StartDate StartDate - 7 Die 7 hier wähle wöchentliche Daten 1 für tägliche Daten. Wenn StartDate lt 8693 Dann MAVgs Null: Exit Function 8693 wird durch das früheste Datum der Daten in Ihrer Tabelle ersetzt. MySum Store (i) MySum Weiter i MAVgs MySum Perioden MyRST. Close End Function Erstellen Sie die folgende Abfrage basierend auf der Tabelle Table1: Abfrage: Query1 --------------------- ---------------------------------- Feld: CurrencyType Feld: TransactionDate Feld: Rate Feld: Expr1: MAVgs (3 , TransactionDate, CurrencyType) HINWEIS: Diese Abfrage erzeugt einen dreimonatigen gleitenden Durchschnitt der Ratendaten. Um einen längeren oder kürzeren gleitenden Durchschnitt zu berechnen, ändern Sie die Nummer 3 in der Spalte Abfrage Expr1 auf den Wert, den Sie berechnen möchten. Führen Sie die Abfrage aus. Beachten Sie, dass Sie den folgenden dreiwöchigen gleitenden Durchschnitt für jede Währung sehen. Ein Nullwert gibt an, dass es nicht genügend frühere Werte gab, um diesen Wochendurchschnitt zu berechnen. WährungType TransaktionDatum Rate Expr1 Markierung 080693 0.5600 Marke 081393 0.5700 Marke 082093 0.5800 0.57 Marke 082793 0.5900 0.58 Marke 090393 0.6000 0.59 Yen 080693 0.0079 Yen 081393 0.0082 Yen 082093 0.0085 0.0082 Yen 082793 0.0088 0.0085 Yen 090393 0.0091 0.0088 RE: Bewegliche durchschnittliche Berechnung dhookom (Programmierer) 28 Jun 10 21:15 Wie alt ist dieser Code Es ist nicht explizit DAO und nicht erwähnen, dass dies nicht mit verknüpften Tabellen funktionieren wird. Dim MyDB als DAO. Database, MyRST als DAO. Recordset. Ich würde eine Unterabfrage eher als ein Recordset verwenden. Es könnte so aussehen: SELECT CurrencyType, TransactionDate, Rate, (SELECT Avg (Rate) FROM Table1 B WHERE A. CurrencyType B. CurrencyType AND A. TransactionDate BETWEEN B. TransactionDate - 14 UND B. TransactionDate) FROM Table1 A RE: Verschieben Durchschnittliche Berechnung Das ist wirklich perfekt. Ich schätze deine Hilfe sehr. Allerdings ist der Code, den Sie gaben, die Vorwärts-14-Tage-Gleitender Durchschnitt (Platzierung der gleitenden Durchschnitt in den Datensatz für Tag 1 des Durchschnitts, wo ich wollte, dass es sich um eine rückwärts schauende Durchschnitt, platziert in Rekord 14). Ich änderte nur etwas zu den folgenden und es scheint zu funktionieren SELECT A. CurrencyType, A. TransactionDate, A. Rate, (SELECT Avg (Rate) FROM Table1 B WHERE A. CurrencyType B. CurrencyType AND B. TransactionDate BETWEEN A. TransactionDate - 14 UND A. TransactionDate) AS Expr1 von Tabelle1 AS A Sie können sehen, alles was ich tat, war Austausch A für B in der where-Klausel. Das ist eine wirklich große Hilfe für mich und ich schätze es wirklich. Ich habe es noch nicht gesehen, und ehrlich gesagt, das verstehe ich nicht wirklich. Ich weiß nicht, wie die SQL versteht, was B und A sind. Ich gehe davon aus, dass sie eine Art alternativer Bezug auf Tabelle 1 schaffen. Wenn Sie irgendeine Anleitung geben können, würde ich es wirklich schätzen. Auch vielleicht ein Hinweis auf Material, das ich anschauen könnte Ich bin immer sehr aufgeregt, um etwas Neues über VBASQL zu lernen, und ich schätze wirklich Ihre Hilfe RE: Moving Average Calculation PHV (MIS) 29 Jun 10 12:22 versteht was B und A Sind sie alias es RE: Moving Average Calculation Vielen Dank, PHV. Es ist schon besser sinnvoll RE: Moving Average Calculation joshery420 (TechnicalUser) 6 Jul 10 15:06 Wow, schaute niemals auf SQL View vor. Sehr hilfreich Ich versuche, diesen Code zu bekommen, um in meinem eigenen Dataset zu funktionieren und Im auf einem bestimmten Problem festzuhalten. Pd2004, nicht sicher, ob der neue Unterabfrage-Code genauso funktioniert wie dein alter VBA-Code oder nicht, aber mit meinen Daten zeigt es immer noch den rollenden Durchschnitt, auch wenn es dort genug Tage gibt, um diese Länge eines Durchschnitts zu schaffen. z. B. Wenn Im, der einen 7-tägigen Roll-Durchschnitt durchführt, zeigt Tag 1 dieselben Daten in der Spalte 7DayAvg wie in der Tagesdatenspalte. Tag 2 würde den Durchschnitt von Tagen 1 und 2, etc. zeigen. Jeder von euch Jungs wissen, wie man dies durch Zufall zu beheben Auch danke für die tolle Code-Tipp PHV. RE: Verschieben Durchschnittliche Berechnung joshery420 (TechnicalUser) 6 Jul 10 15:08 Woops, gedankt, danke Dhookom für die Code-Tipp, nicht PHV. Aber hey, dank euch beiden. XD RE: Moving Average Calculation Ich werde die besten Lösungen für die Profis hier zu verlassen, aber Sie können in meinem ursprünglichen Post sehen, wie die Microsoft Hilfe Beispiel versucht, das zu behandeln. Hier ist der Code: Wenn StartDate lt 8693 Dann wird MAVgs Null: Exit Function 8693 durch das früheste Datum der Daten in deiner Tabelle ersetzt. Sie verlassen gerade die Funktion, wenn das Datum nicht den Kriterien entspricht. Ich weiß nicht, ob du so etwas in den Aliase-Code einbringen kannst, der von dhookem zur Verfügung gestellt wird. Ich mag ihre Art, dies zu behandeln, und ich vermute, dass dhookem eine viel elegantere Lösung bieten wird. Für meine Zwecke ist die Frage, die du beschreibst, kein Anliegen, aber ich werde daran interessiert sein, irgendwelche Lösungen zu sehen. RE: Moving Average Calculation dhookom (Programmierer) 6 Jul 10 17:05 Du könntest mit IIf () versuchen, auf die Anzahl der Datensätze zu testen. Achtung: Ungetesteter Notepad-Code folgt: SELECT A. CurrencyType, A. TransactionDate, A. Rate, IIF ((SELECT Count (Rate) FROM Table1 C WHERE A. CurrencyType C. CurrencyType AND C. TransactionDate BETWEEN A. TransactionDate - 14 UND A. TransactionDate) 7, (SELECT Avg (Rate) FROM Table1 B WHERE A. CurrencyType B. CurrencyType UND B. TransactionDate BETWEEN A. TransactionDate - 14 AND A. TransactionDate), Null) AS Expr1 AUS Tabelle1 AS A RE: Verschieben der durchschnittlichen Berechnung