Thema Datum  Von Nutzer Rating
Antwort
26.08.2016 13:37:45 susi
NotSolved
26.08.2016 13:38:55 susi
NotSolved
26.08.2016 16:48:13 Gast85296
NotSolved
Blau Mittelwerte berehnen schleife
 26.08.2016 18:49:22 Gast61882
*****
Solved
26.08.2016 20:30:05 susi
NotSolved
26.08.2016 21:55:07 Gast85296
NotSolved
26.08.2016 22:01:38 Gast85296
NotSolved
26.08.2016 22:11:54 Gast85296
*****
Solved
27.08.2016 08:35:11 susi
NotSolved
13.09.2016 20:06:01 susi
NotSolved

Ansicht des Beitrags:
Von:
Gast61882		 Datum:
26.08.2016 18:49:22		 Views:
769		 Rating:
     
Antwort:
 Nein
Thema:
Mittelwerte berehnen schleife		 
Sub TestIt()
'Sub MW_berechnen() mit Range
Dim c As Range                         'Zählerzelle
Dim rngMwerte As Range                 'Spalte wo Mittelwerte
Dim lngAb As Long                      'Zeile ab wo Mittelwerte
Dim lngStep As Long                    'Schrittweite

Dim dblMwert As Double                 'Block Mittelwert

lngAb = 2: lngStep = 12                'versorgen

Set rngMwerte = Columns("F:F").Cells(lngAb)                       'Block ab Zelle F2
Set rngMwerte = Range(rngMwerte, rngMwerte.Offset(lngStep - 1))   'Block auf Länge bringen

Do While Not IsEmpty(rngMwerte.Cells(1))            'Schleife bis kein Wert

   dblMwert = WorksheetFunction.Average(rngMwerte) 'Block Mittelwert

   For Each c In rngMwerte                          'durch alle Zellen im Block
      c.Offset(, 4).Value = dblMwert                'J = 4-rechts F
      c.Offset(, 5).Value = c.Value / dblMwert      'ditto
   Next c

   Set rngMwerte = rngMwerte.Offset(lngStep)       'verschiebe Block

Loop

End Sub

Der Algorithmus ist doch mit Zellen/Blöcken/Range-Objekten leichter zu finden!

LG

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
26.08.2016 13:37:45 susi
NotSolved
26.08.2016 13:38:55 susi
NotSolved
26.08.2016 16:48:13 Gast85296
NotSolved
Blau Mittelwerte berehnen schleife
 26.08.2016 18:49:22 Gast61882
*****
Solved
26.08.2016 20:30:05 susi
NotSolved
26.08.2016 21:55:07 Gast85296
NotSolved
26.08.2016 22:01:38 Gast85296
NotSolved
26.08.2016 22:11:54 Gast85296
*****
Solved
27.08.2016 08:35:11 susi
NotSolved
13.09.2016 20:06:01 susi
NotSolved