Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
744to748
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
744to748
744to748
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe einer Spalte abfragen und Info

Summe einer Spalte abfragen und Info
20.03.2006 16:58:23
Peter
Guten Tag
Ich möchte innerhalb eines Makros eine zusätzliche Auswertung einfügen. Die auszuwertende Datei / Sheet habe ich wie folgt definiert:
Set aBook = ThisWorkbook
Set aSheet = aBook.ActiveShee
In Spalte AA stehen ab Zeile 5 unterschiedliche Prozentwerte(teilweise gibt es Zeilen ohne Eintrag, die Gesamtanzahl Zeilen kann ändern).
Nun möchte ich ermitteln, wieviel der Durchschnitt aller Wert entspricht und die dann als Meldung ausgeben. Wenn der Prozentwert einen bestimmten Wert unterschreitet (z.B. grösser - 0.5% resp. kleiner + 0.5%) oder überschreitet (z.B. 2% möchte ich eine spezielle Meldung ausgeben.
Fragen:
Wie kann ich abfragen, in welchem Bereich Einträge in Spalte AA enthalten sind?
Wie kann ich die Summe dieses Bereiches bilden?
Wie kann ich abfragen, wieviele Werte insgesamt eingetragen sind (unter Ausklammerung allfälliger NULL Werte)?
Kann mir jemand weiterhelfen?
Danke
Peter

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe einer Spalte abfragen und Info
20.03.2006 18:00:50
ChrisL
Hallo Peter
Wie wärs hiermit:

Sub t()
Dim aSheet As Worksheet
Set aSheet = ThisWorkbook.ActiveSheet
If Abs(WorksheetFunction.Average(aSheet.Columns(27))) > 0.005 Then
If Abs(WorksheetFunction.Average(aSheet.Columns(27))) > 0.02 Then
MsgBox "Grösser 2 %"
Else
MsgBox "Grösser 0.5 %"
End If
End If
End Sub

Gruss
Chris
AW: Summe einer Spalte abfragen und Info
21.03.2006 08:58:14
Peter
Hallo Chris
Vielen Dank für diesen Input. Das hilft mir schon ziemlich weiter. Allerdings habe ich noch ein Problem mit den Null-Werten. Diese möchte ich ja für die Ermittung des Durchschnittswertes ausklammern.
Fall 1: 0, -1%, 2% ergibt Mittelwert NULL
Fall 2: -1%, 2% ergibt Mittelwert 1%
Für meine Problemlösung sollte jedoch auch Fall 1 ein Mittelwert von 1% ergeben
Um dies zu erreichen, muss ich wohl die Summe aller Werte ermitteln, dann die Anzahl Einträge in der Spalte sowie alle Werte die den Wert NULL enthalten (nicht jedoch leer sind), um dann den für meinen Fall richtigen Divisor zu erhalten.
Wo ich anstehe:
- Wie kann ich die Anzahl Einträge einer Spalte, die NULL enthalten, ermitteln?
Danke für eine Rückmeldung
Peter
Anzeige
AW: Summe einer Spalte abfragen und Info
21.03.2006 11:38:25
Reinhard
Hi Peter,
da
Application.WorksheetFunction.CountIf(asheet.Columns(27), "0")
wirre Werte liefert Frage noch auf offen gestellt.
Option Explicit
Sub tt()
Dim asheet As Worksheet, wert, nichtnull
Set asheet = ThisWorkbook.ActiveSheet
wert = Application.WorksheetFunction.SumIf(asheet.Columns(27), "<>0")
nichtnull = Application.WorksheetFunction.CountIf(asheet.Columns(27), ">0")
nichtnull = nichtnull + Application.WorksheetFunction.CountIf(asheet.Columns(27), "<0")
'MsgBox Application.WorksheetFunction.CountIf(asheet.Columns(27), "<>0")
wert = wert / nichtnull
Select Case wert
Case Is > 2
MsgBox "bla1"
Case Is < -2
MsgBox "bla2"
Case Is > 0.5
MsgBox "bla3"
Case Is < -0.5
MsgBox "bla4"
Case Else
End Select
End Sub

Gruß
Reinhard
ps: Ich freue mich über eine Rückmeldung ob diese Antwort hilfreich war oder nicht..
Anzeige
AW: Summe einer Spalte abfragen und Info
25.03.2006 21:34:00
Peter
Hallo Reinhard
Sorry für die späte Rückmeldung. War in den letzten Tagen anderweitig absorbiert. Die beiden Beiträge, die ich auf meine zweite Anfrage erhalten habe, haben mich zu Ziel gebracht.
Herzlichen Dank, Peter
AW: Summe einer Spalte abfragen und Info
21.03.2006 18:12:25
Panicman
Hallo Peter
Anzahl Einträge einer Spalte, die NULL enthalten:
ANZAHL_NULL = WorksheetFunction.CountIf(aSheet.Columns(27), 0)
Anzahl Einträge einer Spalte, die nicht LEER sind:
ANZAHL_ohne_LEER = WorksheetFunction.Count(aSheet.Columns(27))
das bedeutet, Anzahl aller Einträge die nicht LEER und nicht Null sind:
ANZAHL = ANZAHL_ohne_LEER - ANZAHL_NULL
Gruß
Holger
Anzeige
AW: Summe einer Spalte abfragen und Info
25.03.2006 21:32:57
Peter
Hallo Holger
Sorry für die späte Rückmeldung. War in den letzten Tagen anderweitig absorbiert. Die beiden Beiträge, die ich auf meine zweite Anfrage erhalten habe, haben mich zu Ziel gebracht.
Herzlichen Dank, Peter

309 Forumthreads zu ähnlichen Themen

Summen in bestimmte Zeilen
Thomas

Hallo,
ich suche eine sicherlich einfache Möglichkeit Summen in einer bestimmten Zeile bilden zu lassen. Das Problem ist das die Bereiche unterschiedlich groß sind.
Zur besseren Erläuterung habe ich eine Bsp-Datei angehängt.
Vielen Dank!
MfG Tom
Die Datei https://www.herber....
27.08.2008 14:19:00
Thread-ID: 1005088
13 Beiträge
Anzeige
Nur sichtbare Zellen addieren (Spezialfall)
Nicolas

Hallo Zusammen
Ich möchte gern nur die Werte in sichtbaren Zellen addieren. Mit der Nettosummenformel geht das aber nicht, weil bei meiner Problemstellung es kein zusammenhängender Bereich ist, sondern die Werte in Zellen der Spalten A, C, E, G... stehen.
Kann dieser VBA-Code evtl. an...
04.11.2008 14:06:00
Thread-ID: 1021622
6 Beiträge
Makro nur in bestimmten Zellen
TomTom

Hi,
der folgende Code soll in der Spalte Q das Datum umformatieren. Nun habe ich aber auch in der Spalte Q auch leere Zellen drin und der Code schreibt dann in die leeren Zellen immer 01.01.1900 rein, obwohl sie eigentlich leer bleiben sollen.
Wie kann man den Code ändern, dass leere Ze...
13.11.2008 08:56:51
Thread-ID: 1024041
5 Beiträge
Anzeige
Bestimmte Zellen addieren
Willi

Mahlzeit allerseits,
ich möchte folgendes Addieren.
Beginnend In V6 und dann jede siebte Zelle in Spalte V.
V6+V13+V20 usw. bis zum Ende des Tabellenblattes, es kommt
aber zwischendurch vor, das sich Text bzw. Symbole in den
Zellen dazwischen befinden.
Wie kann ich am be...
15.02.2009 11:48:00
Thread-ID: 1050858
5 Beiträge
Ergebnis auslesen und in andere Spalte übertragen
Alex

Hallo,
Kann mir jemand bei folgendem Problem helfen:
Ich habe drei Spalten A, B, C.
In Spalte A steht in wenigen Zellen etwas drin und sehr viele Zellen sind leer. In Spalte B wird die Anzahl leerer Zellen der Spalte A gezählt und jedes Mal wenn in A etwas drin steht, beginnt er mit...
17.03.2009 08:16:28
Thread-ID: 1060992
5 Beiträge
Spalte A und E aus allen Blätern zusammenkopieren
Mindjogger

Servus,
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils die Spalte A und E in eine neue Excel Datei auf ein Sheet kopieren.
Oder noch genauer:
ich möchte aus einer Excel Datei aus allen darin enthaltenen Blättern jeweils ein Schlüsselwort (unique) als...
26.03.2009 17:01:20
Thread-ID: 1064329
4 Beiträge
Spalten mit Makro nach Vorgabe ein und ausblenden
Christoph

Hallo,
will mit Hilfe eines Makros eine bestimmte Anzahl an Spalten ein- bzw. ausgeblendet haben. Habe selbiges mal für Zeilen selbst programmiert:
Sub Zeilenausblenden() Rows("9:209").Hidden = True Rows("9:" & (9 + Range("A4").Value)).Hidden = False End Sub
Für Spalten klapp...
09.04.2009 14:44:26
Thread-ID: 1068032
3 Beiträge
Nur bestimmte Werte auslesen
Nic

Hallo zusammen,
ich versuche Zahlen in einer ComboBox 1-10, die mit jeweiligen Beschreibung versehen sind
z.B. 4 (es handelt sich hierbei um Missmanagement), 5 (Wasserball macht Spass) je nach Wahl in Zellen auszulesen. Dabei möchte ich nicht den Befehl benutzen
Private Sub ComboB...
17.04.2009 22:16:22
Thread-ID: 1069409
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
12
5
5
4
12
4
4
3
2
5
8
1
2
1
4
1
5
3
2
6
5
7
3
4
20