Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabelle min,max,mittelwert

Forumthread: Tabelle min,max,mittelwert

Tabelle min,max,mittelwert
25.01.2004 11:53:55
Karlheinz
Hallo
ich habe folgendes Problem:
erstelle mit Makro eine Arbeitsmappe mit x Tabellen, immer verschiedene Tabellennamen, die Tabellen sind alle gleich aufgebaut, soweit so gut,
mein Problem: in Tabellenblatt "Auswertung" sollte nun von allen anderen vorhandenen Tabellen in der Arbeitsmappe, ausser "Auswertung" ,geprüft werden ob A1 den Wert 1 hat, wenn nicht Tabelle löschen, dann sollte in Tabelle "Auswertung" von den anderen Tabellen der min,max und Durchschnittswert von zB. TabelleA!A1, TabelleB!A1 eingetragen werden.

Für eine Hilfe wäre ich sehr froh
Gruß
Karlheinz
Anzeige

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle min,max,mittelwert
25.01.2004 13:12:23
Worti
Hallo Karlheinz,
folgendes Makro macht dir das:

Sub Tab_Auswert()
Dim myMin As Double
Dim myMax As Double
Dim mySum As Double
Dim myAverage  As Double
Dim Anzahl As Integer
Dim AnzDelete As Integer
Dim ws As Worksheet
Anzahl = 0
AnzDelete = 0
mySum = 0
myMax = 0
myMin = 100000
For Each ws In ActiveWorkbook.Worksheets
If Not (ws.Name = "AUSWERTUNG") Then
If ws.Cells(1, 1).Value = 1 Then
If myMin > ws.Cells(1, 1).Value Then
myMin = ws.Cells(1, 1).Value
End If
If myMax < ws.Cells(1, 1).Value Then
myMax = ws.Cells(1, 1).Value
End If
Anzahl = Anzahl + 1
mySum = mySum + ws.Cells(1, 1).Value
Else
ws.Delete
End If
End If
Next
myAverage = mySum / Anzahl
Worksheets("AUSWERTUNG").Cells(1, 1).Value = myMin
Worksheets("AUSWERTUNG").Cells(2, 1).Value = myMax
Worksheets("AUSWERTUNG").Cells(3, 1).Value = myAverage
End Sub

Aber so wie du es haben willst, steht bei den zu berücksichtigenden Tabellen immer 1 in A1 und damit sind Minimum, Maximum und Mitelwert immer 1.
Worti

Anzeige
AW: Tabelle min,max,mittelwert
25.01.2004 14:38:22
Karlheinz
Danke Worti,
habe beim Bsp. nicht Aufepasst. Die Auszuwertenden Daten stehen natürlich nicht in A1 sonder in den anderen Zellenbereiche.
Kann ich dein Vorschlag nun auch für weitere Zellen nutzen, indem ich das Makro jeweils der entsprechende Zelle umändere und anhänge?

Gruß
Karlheinz
Anzeige
AW: Tabelle min,max,mittelwert
25.01.2004 20:41:25
Worti
Hallo Karlheinz,
klar kann das Makro beliebig abgewandelt werden, dass es auch für andere Zellen funzt. Kommt aber immer drauf an, was du machen willst.
Worti
AW: Tabelle min,max,mittelwert
25.01.2004 21:40:27
Karlheinz
Hallo Worti,
hab mal ne datei mitgeschickt, es funzt irgendwie nicht richtig mit der löschabfrage und dem max wert.
Gruß
Karlheinz
Anzeige
AW: Tabelle min,max,mittelwert
25.01.2004 21:45:06
Karlheinz
Hallo Worti,
hab mal ne datei mitgeschickt, es funzt irgendwie nicht richtig mit der löschabfrage und dem max wert.
https://www.herber.de/bbs/user/3205.xls
Gruß
Karlheinz
AW: Tabelle min,max,mittelwert
25.01.2004 21:55:08
Karlheinz
hab gerade den Fehler bei max behoben :myMax = -100000
Anzeige
AW: Tabelle min,max,mittelwert
26.01.2004 07:50:34
Worti
Hallo Karlheinz,
in deiner Beispieldatei kann ja auch kein Blatt gelöscht werden, der Wert in G7 ist ja immer 1 und bei 1 wird nicht gelöscht.
Worti
AW: Tabelle min,max,mittelwert
26.01.2004 13:41:55
Karlheinz
Hallo Worti,
er löscht aber immer die Tabelle Auswertung
Gruß
Karlheinz
AW: Tabelle min,max,mittelwert
26.01.2004 15:35:37
Wortii
Hallo Karlheinz,
das ist klar, denn deine Tabelle heißt nicht "AUSWERTUNG" sondern "Auswertung".
Ersetze 

If Not (ws.Name = "AUSWERTUNG") Then
durch 

If Not (UCase(ws.Name) = "AUSWERTUNG") Then
, dann sollte es funzen. Worti
Anzeige
;

Forumthreads zu verwandten Themen

Max,Min, Mittelwert von letzter Zeile
letzter

Hallo
Ich habe in einer Tabelle Temperaturwerte die jeden Tag ergänzt werden. Nun möchte ich für den jeweils letzten eingetragenen Tag die Min, Max und Mittelwerte angezeigt bekommen. Kann ich das ohne VBA mit den Excel Funktionen lösen, das immer die letzte Zeile verwendet wird?
Zude...
08.01.2009 08:53:00
Thread-ID: 1037754
3 Beiträge
Maximum und Minimum in Diagramm
mellaab

Hallo, ihr Lieben,
ich hab mal wieder ein kleines Problem:
Ich möchte in einem Diagramm eine Linie anzeigen, die ein variables Maximum beschreibt und eine Linie, die ein Minimum darstellt.
Ist das möglich, ohne, dass man die entsprechenden Daten mit in die Tabelle packt, aus der man...
11.11.2009 10:23:13
Thread-ID: 1116092
5 Beiträge
Anzeige
MIN / MAX /Mittelwert ohne Ausreißer
Jens Bartels

Ich muß aus einer Liste von Werten die MIN / MAX / Mittel-Werte ermitteln, ohne daß Ausreißer, die sehr stark von den anderen Werten abweichen, berücksichtigt werden. Dabei sollen die Ausreißer allerdings nicht gelöscht werden. Von Hand gehts doch sehr langsam. Kennt ihr einen einfacheren Weg??...
05.06.2002 13:11:50
Thread-ID: 126157
2 Beiträge
Mittelwert minus Maxwert
Heinz

Hallo Leute im Forum
Ich bräuchte bitte eine Formel für folgendes.
Zb. In A1 steht 128, In A2 steht 87, In A3 steht 55, In A4 steht 63
Nun sollten die Werte zusammengezählt werden,wobei die größte Zahl immer rausfällt.
Im obrigen Beispiel sollten aus A2+A3+A4 die Summe gebildet...
22.05.2013 19:00:49
Thread-ID: 1314412
6 Beiträge
Min,Max,Mittelwert in Abhängigkeit zur Kategorie
amn

Hallo,
ich hoffe, daß sich auch über die Osterfeiertage jemand in dieses Forum schaut und vieleicht eine Idee hat wie ich folgendens Problem lösen kann:
Auf Tabellenblatt1 gibt es in D2:E2, F2:G2, usw. (D2:E2 wg. Span) bis AP2:AQ2 Überschriften wie Global to Global, Global to Local, Loc...
20.04.2014 16:28:25
Thread-ID: 1357951
3 Beiträge
Minium, Maximum und Mittelwert mit VBA
Manuel

Hallo liebes Forum,
ich hab ein kleiens Problem, bei dem ich leider komplett überfordert bin und hoffe das ihr mir weiterhelfen könntet.
Ich habe in einem Excel Sheet(Upload) eine lange Liste an unterschiedlichen Teilen, die nach dem Upload nicht sortiert sind, jetzt würde ich gerne von...
26.10.2015 16:02:52
Thread-ID: 1454491
27 Beiträge
Anzeige
Mittelwertwenns unter Berücksichtigung MIN&MAX
Tim

Hallo zusammen,
ich möchte gern einen Mittelwert bilden und dabei den MIN&MAX-Wert ignorieren wenn die Bedingung "V40" im Bereich erfüllt ist.
So sieht die Formel aus, jedoch greift die Abfrage des "V40" nicht wenn ich es manuelle nachrechne.
=MITTELWERTWENNS(I3:I21;B3:B21;"V40"...
26.01.2018 11:27:44
Thread-ID: 1605013
11 Beiträge
Anzeige
Mittelwert mit MIN&MAX
Tim

Hallo zusammen,
folgende Formel berechnet mir den Mittelwert bisher perfekt, jedoch brauche ich noch die Möglichkeit, dass er mir MIN&MAX Werte ignoriert, wer bekommt das eingebaut?
=WENNFEHLER(MITTELWERT(WENN(WOCHENTAG($D$2:$AH$2;2)=1;WENN($D4:$AH4"";WENN($D4:$AH40;$D4:$AH4)))) ;""...
15.06.2018 09:55:46
Thread-ID: 1628929
4 Beiträge
Min / Max Mittelwert Ohne Ausreißer
Olaf
Hallo Zusammen,
ich benötige eine Formel für Min / Max Mittelwert Ohne Ausreißer
wie folgt dargestellt,es
sollte eigentlich 200 ergeben 5 100 200 300 1005
kriege ich aber leider nicht hin. Diese Formel klappt so leider nicht
=MITTELWERT(wenn(E13:I13)>Min(E13:I13);
und(wenn(e1...
13.03.2004 15:01:25
Thread-ID: 397071
7 Beiträge
Diagramm-Minim/Maximimum für X-Achse vorgeben
Horst

Hallo User,
benötige mal kleine Hilfe. Wie kann ich mit VBA einem Liniendiagramm, bei dem über der Datumsachse (x-Achse) Werte abgetragen werden, vorschreiben, welche
x-Werte er als Minimum und Maximum benutzen soll, damit die Skalierung bzw. die Aufteilung der x-Achse sinnvoll ist ?
26.09.2005 18:00:38
Thread-ID: 672678
6 Beiträge
Min,Max,Mittelwert - mit Bedingungen
thekla_mangold

Hallo liebe EXCEL-Experten,
In einem "Jahresprotokoll" mit Monatswerten von Jan bis Dez
soll das Minimum, Maximum, der Mittelwert berechnet werden
in Abhängigkeit vom akt. Datum:
D.h. heute, 7.11.05, sollen nur die Monatswerte von Jan bis Okt zur Berechung herangezogen werden, a...
07.11.2005 19:35:32
Thread-ID: 692736
4 Beiträge
Anzeige
Minimum/Maximum und Mittelwert
Markus
Hallo,
ich bin auf der Suche nach einem Diagrammtyp, der von verschiedenen Fällen den Mittelwert als Balken anzeigt. Zusätzlich sollen das Minimum und Maximum erkennbar sein. Habs bisher über den Fehlerindikator probiert, aber da bekomme ich Probleme mit der Achsenbeschriftung.
Kann mir wer...
27.03.2006 16:19:18
Thread-ID: 749083
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige