Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.10.2015 13:56:41 |
Alexander |
|
|
|
14.10.2015 11:58:24 |
BigBen |
|
|
|
14.10.2015 12:39:51 |
Gast73293 |
|
|
|
14.10.2015 12:55:32 |
BigBen |
|
|
|
14.10.2015 19:37:01 |
Alexander |
|
|
Gleitender Durchschnitt |
14.10.2015 23:53:40 |
BigBen |
|
|
|
19.10.2015 21:08:18 |
Gast99794 |
|
|
|
20.10.2015 17:39:46 |
BigBen |
|
|
Von:
BigBen |
Datum:
14.10.2015 23:53:40 |
Views:
809 |
Rating:
|
Antwort:
|
Thema:
Gleitender Durchschnitt |
Hallo,
im Code fehlten lediglich einige Ergänzungen:
Public Sub Durchschnitt()
Dim i As Integer
Dim j As Integer
While Range("B2").Offset(i, 0).Value <> ""
i = i + 1
Wend
While Range("B1").Offset(0, j).Value <> ""
j = j + 1
Wend
Dim a As Integer
Dim b As Integer
Dim bOffset As Integer, strOffset As String
a = 0
While a <= i
bOffset = 0
b = 0
While b <= j
If Range("B2").Offset(a, b).Value = "" Then
b = b + 1
bOffset = bOffset + 1
Else
strOffset = IIf(bOffset = 0, "", "[" & CStr(bOffset) & "]")
Range("B6").Offset(a, b - bOffset).FormulaR1C1 = "=SUM(R2C2:R[-4]C" & strOffset & ")/COUNT(R2C2:R[-4]C" & strOffset & ")"
b = b + 1
End If
Wend
a = a + 1
Wend
End Sub
Erläuterung:
Beim ursprünglichen Entwurf wurde die Variable b nicht auf 0 zurückgesetzt, nachdem eine Zeile komplett abgearbeitet wurde.
Zusätzlich muss bOffset nach dem Abarbeiten einer Zeile ebenfalls wieder auf 0 zurückgesetzt werden.
VG, BigBen
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
13.10.2015 13:56:41 |
Alexander |
|
|
|
14.10.2015 11:58:24 |
BigBen |
|
|
|
14.10.2015 12:39:51 |
Gast73293 |
|
|
|
14.10.2015 12:55:32 |
BigBen |
|
|
|
14.10.2015 19:37:01 |
Alexander |
|
|
Gleitender Durchschnitt |
14.10.2015 23:53:40 |
BigBen |
|
|
|
19.10.2015 21:08:18 |
Gast99794 |
|
|
|
20.10.2015 17:39:46 |
BigBen |
|
|