Computerhilfen.de Logo
Forum
Tipps
News
Frage stellen

VBA - Suche aus einer Ergebnistabelle bestimmte Bereiche als Mittelwert

hallo
ich lese eine Tabelle mit 1000enden Zahlen (z.B. in Spalte A) ein. Daraus brauche ich von variablen Bereichen z.B. A55:A59 den inhaltlichen Mittelwert. Dies auch noch fortlaufende mit einer bestimmten sprungweite z.B. 10 - also nächster Mittelwert von A65:A69.
Kann jemand einen Tipp abgeben.
gruss alter


Antworten zu VBA - Suche aus einer Ergebnistabelle bestimmte Bereiche als Mittelwert:

Hat dir diese Antwort geholfen?

Danke ButtonHilfreiche Antwort Button

Hi,

- zu dem Thema gibts schon was, nur mal so als Ansatz  8)

http://www.computerhilfen.de/hilfen-14-100336-0.html#460112

leider kann ich
ActiveCell.Formula = Average.Cells([B1], [B5])
diese zeile nicht übernehmen.
ich brauch aber b1 und b5 variabel
kann jemand helfen

Ist es das, was du brauchst ?

Annahme: Die Werte stehen in Spalte A (beginnend in Zeile1 ohne Lücken), in Spalte B sollen die Mittelwerte angezeigt werden.

Die Startzeile (erster Wert für die erste Mittelwertberechnung) steht in C1, die Anzahl der zusammenzufassenden Werte in D1 und die Sprungweite in E1

Lösung:

Sub Calc()
Dim Rws As Long, Strt As Long, Cnt As Long, Incr As Long, Act As Long
   
    Range("A1").Select       'Tabellenstart
    Rws = ActiveCell.CurrentRegion.Rows.Count        'Tabellengröße ermitteln
    Strt = Range("C1").Value
    Cnt = Range("D1").Value
    Incr = Range("E1").Value
    Act = Strt + Cnt - 1
    Columns("A:A").Select
    Selection.Interior.ColorIndex = xlNone       'Hintergrundfarbe löschen
    Columns("B:B").Select
    Selection.Clear          'Spalte B löschen
   
    Do Until Act > Rws
        Range("B" & Act).Select          'Position für die Formel ermitteln
        ActiveCell.FormulaR1C1 = "=AVERAGE(R[-" & Cnt - 1 & "]C[-1]:RC[-1])"         'relativer Bezug
        Selection.Interior.ColorIndex = 35           'Hintergrundfarbe setzen
        Range("A" & Act - Cnt + 1 & ":A" & Act).Select
        Selection.Interior.ColorIndex = 35           'dito
        Act = Act + Incr
    Loop
End Sub

Beispiel:
A       B       C       D       E

1               5      5        10
2        (Start)   (Anzahl)   (Sprung)
3            
4            
5            
6            
7            
14            
1        6,6         
2            
3            
4            
5            
6            
7            
12            
1            
2            
3       5         
   


Gruß

Dieter

« Letzte Änderung: 26.02.06, 07:12:46 von Dieter Bock »

« Tcl/Tk: regular expressionsVB Script »
 

Schnelle Hilfe: Hier nach ähnlichen Fragen und passenden Tipps suchen!

Fremdwörter? Erklärungen im Lexikon!
Subnetz
Ein Subnetz, (englisch "Subnet"), ist ein eigenständiger und abgetrennter Teil eines größeren Netzwerks. Die Aufteilung eines großen Netzwerks in kl...

Active X
ActiveX ist ein im Internet Explorer implementierter Standard von der Firma Microsoft. Eine Vielzahl von Technologien sorgen dafür, dass Windows-Anwendungen mit dem ...