Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
868to872
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
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mittelwerte ohne Null in Makro

Mittelwerte ohne Null in Makro
07.05.2007 16:48:08
Pascal
Hallo,
ich habe folgendes Problem: Von einem großen Datensatz (50x10000 Werte) soll blockweise (alle 50x50 Werte) der Mittelwert gebildet werden. Zur Zeit wird mittels for und if Anweisungen jede Zelle durchsucht und wenn größer Null in die Rechnung mit einbezogen.
Ich habe nun die Formel { =Mittelwert(Wenn(A1:A4>0;A1:A4)) } gefunden und würde diese gerne in mein VB-Makro integrieren.
Leider weiss ich nicht wie...vielleicht kann mir jemand helfen?
Vielen Dank schonmal und viele Grüße
Pascal

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

Betreff
Datum
Anwender
Anzeige
AW: Mittelwerte ohne Null in Makro
ransi
HAllo Pascal
Versuche es mal so:
Tabelle1

 AB
175,53247588
2-55,53247588
38 
44 
5-1 
6-2 
79 
85 
95 
10-5 
115 

Formeln der Tabelle
ZelleFormel
B1{=MITTELWERT(WENN(A1:A10000>0;A1:A10000))}
B2=SUMMEWENN(A1:A10000;">0";A1:A10000)/ZÄHLENWENN(A1:A10000;">0")
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
' **********************************************************************
' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit


Public Sub test()
MsgBox WorksheetFunction.SumIf(Range("A1:A10000"), ">0", Range("A1:A10000")) / WorksheetFunction.CountIf(Range("A1:A10000"), ">0")
End Sub

ransi

Anzeige
AW: Mittelwerte ohne Null in Makro
07.05.2007 17:49:00
fcs
Hallo Pascal,
ergänzend zu Ransi's Basisformel hier zwei Vorschläge wie du die Blöcke abarbeiten kannst und das Ergebnis Zeilenweise in einer 2. Tabelle ausgibst.
Gruß
Franz
Sub MittelWerteOhne0_dieerste() 'Per Formeleintrag in eine Hilfstabelle Dim Bereich As Range, wks As Worksheet, wksZiel As Worksheet, Mittelwert As Double Set wks = Worksheets("Tabelle1") 'Tabelle mit den Werten Set wksZiel = Worksheets("Tabelle2") 'Tabelle für Ergebenis With wks ZeileZiel = 1 wksZiel.Cells(ZeileZiel, 1) = "Block Nr" wksZiel.Cells(ZeileZiel, 2) = "Mittelwert" For Zeile = 1 To 301 Step 50 Set Bereich = .Range(.Cells(Zeile, 1), .Cells(Zeile + 49, 50)) ZeileZiel = ZeileZiel + 1 wksZiel.Cells(ZeileZiel, 1) = "Zeile " & Format(Zeile, "00000") & " bis " _ & Format(Zeile + 49, "00000") 'Berechnungsformel eintragen wksZiel.Cells(1, 4).FormulaArray = "=AVERAGE(IF('" & .Name & "'!" & Bereich.Address & _ ">0,'" & .Name & "'!" & Bereich.Address & "))" Mittelwert = wksZiel.Cells(1, 4).Value 'Formel durch Wert ersetzen wksZiel.Cells(ZeileZiel, 2).Value = Mittelwert Next wksZiel.Cells(1, 4).ClearContents End With End Sub Sub MittelWerteOhne0_diezweite() 'mit Ersatzformeln innerhalb VBA Dim Bereich As Range, wks As Worksheet, wksZiel As Worksheet, Mittelwert As Double Set wks = Worksheets("Tabelle1") 'Tabelle mit den Werten Set wksZiel = Worksheets("Tabelle2") 'Tabelle für Ergebenis With wks ZeileZiel = 1 wksZiel.Cells(ZeileZiel, 1) = "Block Nr" wksZiel.Cells(ZeileZiel, 3) = "Mittelwert" For Zeile = 1 To 301 Step 50 Set Bereich = .Range(.Cells(Zeile, 1), .Cells(Zeile + 49, 50)) ZeileZiel = ZeileZiel + 1 wksZiel.Cells(ZeileZiel, 1) = "Zeile " & Format(Zeile, "00000") & " bis " _ & Format(Zeile + 49, "00000") 'Mittelwert für Zellen >0 berechnen Mittelwert = Application.WorksheetFunction.SumIf(Bereich, ">0") / _ Application.WorksheetFunction.CountIf(Bereich, ">0") wksZiel.Cells(ZeileZiel, 3) = Mittelwert Next


Anzeige
AW: Mittelwerte ohne Null in Makro
07.05.2007 18:56:10
Pascal
Vielen Dank für die Vorschläge...hat jetzt geklappt :-)

304 Forumthreads zu ähnlichen Themen

Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
Anzeige
Liste auswerten mit Bedingungen
Bernd

Hallo zusammen,
ich würde gerne mal wieder eine lange Excel auswerten mit verschiedenen Bedingungen. Die relevanten Datensätze, auf die die Suchbedingung zutreffen, sollten in einem Extra-Registerblatt chronologisch aufgelistet werden. Wie kann ich das Problem vorzugsweise mit Excel-Boardmi...
19.11.2008 10:01:00
Thread-ID: 1025891
6 Beiträge
Auswertung mit mehr Bedingungen
dieter

Hallo,
ich möchte eine summierte Auswertung erhalten die 2 Bedingungen berücksichtig. Wenn möglich als Formel. Weiß nicht ob das möglich ist. Ich habe 8 unterschiedliche Kategorien.
Tabelle sieht folgend aus:
A / B / C
Jän / a / 10
Jän / b / 10
Jän / a / 15
Feb / b /...
04.01.2009 16:48:00
Thread-ID: 1036762
5 Beiträge
Anzeige
Wert in Spalte und entsprechender Zeile Finden
Klaus

Hi,
folgendes Problem:
Meine ExcelSpalten werden fortlaufend erweitert mit neuen Nummern.
Ich möchte jetzt eine Möglichkeit, in einer Zelle (usedrange +2) bei Eingabe einer neuen (existierenden)
Spaltenbezeichnung, automatisch den Zellenwert aus einer bestimmten Zeile haben. Da...
18.02.2009 15:51:00
Thread-ID: 1051850
3 Beiträge
Min Werte ohne 0
Eby

Hallo!
Ich möchte aus einer Reihe von Zahlen den kleinsten Wert ausgeben.
Macht man ja eigentlich mit
Aber ich möchte die 0 ausschließlen. D.h. Wenn über der Null der nächste Wert z.b. eine 4 ist soll auch nur 4 und nicht die 0 erscheinen.
Hat da jemand einen Tip für mich?
30.03.2009 11:56:36
Thread-ID: 1065213
5 Beiträge
Minimum ohne Nullen mit VBA
Huwy

Hallo zusammen
Ich stehe gerade vor einem Problem, wofür ich weder im Forum noch mit google eine Lösung gefunden habe.
Und zwar geht es um folgenden Teil eines VBA Macros:
Aus einem Bereich (D31:E121) mit Format "Datum" brauche ich den kleinsten Wert.
= WorksheetFunction.Min(R...
16.04.2009 13:14:33
Thread-ID: 1069068
3 Beiträge
Wert in Spalte finden...
Jens

Hallo,
ich bin Neuling im Bereich Excel und möchte folgendes erreichen:
Ich habe eine Tabelle.
In dieser Tabelle soll in der ersten Spalte ein Wert gefunden werden.
Ist dieser Wert gefunden, soll ein Teil der Tabelle in ein neues Tabellenblatt geschrieben werden.
Kann mir je...
26.04.2009 10:31:50
Thread-ID: 1071168
17 Beiträge
Zellwerte ohne Null kopieren
PWNeiss

Hallo Gurus,
ich habe folgendes Szenario:
Ich habe in der Spalte A Zahlen stehen, welche ich in den Spalten F, G und H mit einem feststehenden Buchstabe verkette. Das passiert, in dem ich in den Spalten C, D oder E ein "X" eingebe. Also steht in den Spalten F, G und H diese Formel:
...
19.08.2009 13:40:30
Thread-ID: 1097107
5 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
2
3
5
4
4
2
4
2
16
4
7
2
3
4
5
1
3
5
2
4
9
6
4
2
2