Thema Datum  Von Nutzer Rating
Antwort
13.10.2015 13:56:41 Alexander
NotSolved
14.10.2015 11:58:24 BigBen
NotSolved
14.10.2015 12:39:51 Gast73293
NotSolved
Blau Gleitender Durchschnitt
 14.10.2015 12:55:32 BigBen
NotSolved
14.10.2015 19:37:01 Alexander
NotSolved
14.10.2015 23:53:40 BigBen
NotSolved
19.10.2015 21:08:18 Gast99794
NotSolved
20.10.2015 17:39:46 BigBen
NotSolved

Ansicht des Beitrags:
Von:
BigBen		 Datum:
14.10.2015 12:55:32		 Views:
837		 Rating:
     
Antwort:
  Ja
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

Ihre Antwort
  • 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: Name: Email:



  • 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
NotSolved
14.10.2015 11:58:24 BigBen
NotSolved
14.10.2015 12:39:51 Gast73293
NotSolved
Blau Gleitender Durchschnitt
 14.10.2015 12:55:32 BigBen
NotSolved
14.10.2015 19:37:01 Alexander
NotSolved
14.10.2015 23:53:40 BigBen
NotSolved
19.10.2015 21:08:18 Gast99794
NotSolved
20.10.2015 17:39:46 BigBen
NotSolved