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
14.10.2015 12:55:32 BigBen
NotSolved
14.10.2015 19:37:01 Alexander
NotSolved
Blau Gleitender Durchschnitt
 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 23:53:40		 Views:
1073		 Rating:
     
Antwort:
  Ja
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

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