Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
368to372
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
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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

53 Forumthreads zu ähnlichen 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
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
Anzeige
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
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
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
diagramm mit vba minimum und maximum verändern
chris
hallo
ich bekomme es einfach mit den objekten nicht hin.
Ich habe ein Diagramm sheet und möchte dort abhängig von werten aus einem anderen sheet, die minimal und maximal werte auf der x achse ändern.
ich komme aber nicht weiter.
ich weiß mit charts("Diagramm") ist das sheet aktivierb...
27.02.2004 16:42:33
Thread-ID: 390013
6 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

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
4
1
5
2
26
10
3
5
6
4
1
5
3
3
2
6
2
10
2
4
3
2
1
5