Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mittelwert über VBA bilden

Mittelwert über VBA bilden
Helmut
Hallo Excel-Profis,
kann mir jemand von Euch helfen, mittels VBA den Mittelwert zu einer Spalte zu bilden?
Das Problem liegt darin, dass oberhalb der Zelle, in der der Mittelwert stehen soll, manchmal 3, manchmal 5, manchmal 2, oder eine andere unbekannte Anzahl Zahlen stehen. Oberhalb der Zahlen, die berücksichtigt werden sollen, befindet sich immer eine Leerzeile.
Ich wäre Euch sehr dankbar, wenn Ihr mir eine Lösung über VBA zeigen könntet (die Funktion Teilergebnisse über das Menü Daten ist für mein Fall absolut nicht geeignet).
Vielen Dank im voraus und Gruß Helmut

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
MITTELWERT per VBA berechnen
05.07.2010 18:27:06
NoNet
Hallo Helmut,
hier ein Code-Beispiel für Werte der Spalte A :
Sub MittelwertPerVBA()
Dim lngEZ As Long, lngLZ As Long
Dim dblMittelwert As Double
lngEZ = Cells(1, 1).End(xlDown).Row + 2 'Leerzelle finden
lngLZ = Cells(Rows.Count, 1).End(xlUp).Row
dblMittelwert = Application.Average(Range(Cells(lngEZ, 1), Cells(lngLZ, 1)))
MsgBox "Mittelwert der Zahle aus A" & lngEZ & ":A" & lngLZ & _
":" & vbLf & dblMittelwert
End Sub
Gruß, NoNet
PS: Deutschland spielt "Vier gewinnt" :
gegen 4:0    gegen 4:1    gegen 4:0    gegen ?:? ;-)
Anzeige
AW: MITTELWERT per VBA berechnen
05.07.2010 20:13:10
Helmut
Hallo NoNet,
zuerst mal vielen Dank für Deine Unterstützung.
Allerdings habe ich mir die Lösung ein bisschen anders vorgestellt, warscheinlich habe ich mich unklar ausgedrückt.
Ich habe mal ein Beispiel angehängt. Inzwischen soll auch noch die Summe in einer weiteren Spalte gebildet werden.
https://www.herber.de/bbs/user/70439.xls
Vielen Dank nochmal für die Unterstützung.
Gruß Helmut
MITTELWERT() blockweise einfügen
05.07.2010 20:49:52
NoNet
Hallo Helmut,
das hatte ich anders verstanden, nicht dass die Funktionen mehrfach blockweise eingefügt werden sollen.
Das folgende Makro sollte das lösen (bitte lngEZ=5 beachten und ggf. anpassen !) :
Sub MittelwerteInLeerzellen()
Dim rngZelle As Range
Dim lngEZ As Long, lngLZ As Long
lngLZ = Cells(Rows.Count, 3).End(xlUp).Row  'Letzte Zeile der Spalte C ermitteln
lngEZ = 5 'Zeile mit der ersten auszuwertenden Zahl
For Each rngZelle In _
Union(Range("C5:C" & lngLZ).SpecialCells(xlCellTypeBlanks), Cells(lngLZ + 1, 3))
'MITTELWERT()-Funktion :
Cells(rngZelle.Row, 3).FormulaR1C1 = _
"=AVERAGE(R" & lngEZ & "C:R" & rngZelle.Row - 1 & "C)"
'SUMME()-Funktion :
Cells(rngZelle.Row, 4).FormulaR1C1 = _
"=SUM(R" & lngEZ & "C:R" & rngZelle.Row - 1 & "C)"
'Beginn des nächsten Zahlenblocks auf nächste Zeile setzen :
lngEZ = rngZelle.Row + 1
Next
'Speicher für Objektvariable wieder freigeben :
Set rngZelle = Nothing
End Sub
Gruß, NoNet
Anzeige

300 Forumthreads zu ähnlichen Themen

Letzter Wert einer Spalte (Matrixformel)
{mskro}

Hallo Excelaner,
ich benötige mal wieder eine Hilfestellung.
Es soll der Wert in einer Spalte angezeigt werde, der in der untersten Zeile steht.
Mittels der Recherche habe ich nun folgende MatrixFormel erstellt:
=INDEX(Z1:Z5000;MAX(WENN(Z1:Z5000"";ZEILE(1:5000)));1)
Nur wird...
28.08.2008 09:59:21
Thread-ID: 1005303
9 Beiträge
Anzeige
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 15:11:51
Thread-ID: 1006816
2 Beiträge
In Spalte alles hinter einer Leerstelle löschen
Hans

Hallo Leute.
Wie kann ich in einer Spalte alles löschen was hinter einer Leerstelle (ink. Leerstelle) kommt?
mfg
Hans
19.09.2008 13:51:11
Thread-ID: 1011037
2 Beiträge
Anzeige
Berechnen von Werten in einer Spalte
Werten

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
05.10.2008 12:52:00
Thread-ID: 1014231
5 Beiträge
Doppelte Einträge in einer Spalte farbig markieren
Robert

Hallo,
ich hab eine Tabelle mit riesigem Datenbestand. Mein Problem ist nun, dass doppelte Eintrage, die in einer Spalte vorkommen, farbig markiert werden sollten - und das gleiche bei jeder weiteren Spalte mit Inhalt.
Sollten in einer Spalte doppelte Einträge vorhanden sein, müsste die...
27.10.2008 19:09:00
Thread-ID: 1019713
11 Beiträge
Anzahl gleicher Elemente einer Spalte
Pascal

Hallo,
wie kann ich die Anzahl der gleichen elemente in einer Spalte ermitteln?
die Tabelle sieht etwa so aus:
1
3
0
1
1
2
0
1
das ergebis soll dieses sein:
0: 2
1: 4
2: 1
3: 1
03.11.2008 08:35:37
Thread-ID: 1021264
5 Beiträge
Werte in einer Spalte(5zeilig) suchen und löschen!
adrian

Hi,
kann mir jemand erklären warum das nicht funzt funktioniert?
liegt es daran, dass ich "SpalteR" als range deklariert habe, anstatt als string?
nur wie durchsuche ich dann den "string"?
Möchte nur folgendes:
Falls Werte in der Spalte (Bereich von nur 5 zeilen) sind, lösch...
24.11.2008 12:04:00
Thread-ID: 1027253
5 Beiträge
Wiedergabe von Werten aus einer Spalte
Werten

Hallo zusammen,
ich habe in einem Tabellenblatt in einer Spalte ca. 16000 Werte stehen (Form: Buchstaben+Zahlenkombinationen (Auftragsnummern)) die beliebig häufig vorkommen können. Es sind aber nur ca. 30 verschiedene Werte. Nun möchte ich in einer automatisierten Ausgabe in einer neuen Sp...
16.01.2009 10:27:00
Thread-ID: 1040456
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
8
1
1
1
4
10
4
4
5
1
13
2
2
2
6
1
9
1
3
4
10
9
6
3