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 |
|
|
Gleitender Durchschnitt |
14.10.2015 12:55:32 |
BigBen |
|
|
|
14.10.2015 19:37:01 |
Alexander |
|
|
|
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 12:55:32 |
Views:
933 |
Rating:
|
Antwort:
|
Thema:
Gleitender Durchschnitt |
Hallo,
die Lösung schaut so aus:
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
b = 0
While a <= i
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
Mit bOffset wird die Anzahl der Lücken gezählt. Wenn mindestens eine Lücke vorhanden ist, wird diese von b abgezogen. Gleichzeitig wird die Summenformel entsprechend angepasst.
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 |
|
|
Gleitender Durchschnitt |
14.10.2015 12:55:32 |
BigBen |
|
|
|
14.10.2015 19:37:01 |
Alexander |
|
|
|
14.10.2015 23:53:40 |
BigBen |
|
|
|
19.10.2015 21:08:18 |
Gast99794 |
|
|
|
20.10.2015 17:39:46 |
BigBen |
|
|