Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 11:48:44
Makro von Excel in Word aufrufen
16.10.2025 11:16:26
SUMMEWENN erweitern
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
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
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

WorksheetFunktion.Sum auf Range beschränken.

Forumthread: WorksheetFunktion.Sum auf Range beschränken.

WorksheetFunktion.Sum auf Range beschränken.
08.02.2009 20:12:00
Chris

Hallo
Der untere Code läuft soweit perfekt, wären nicht noch andere Eingabefelder in der Umbgebung.
Sobald ich in eine Andere Zelle gehen als die von den Range A2:A30 und A50:A80 kommt auch dann
die Meldung. Ich glaube das hängt mit dem Sheet zusammen.
Kann man die WorksheetFunction.Sum auf die Felder A2:A30 und A50:A80 beschränken?
If WorksheetFunction.Sum(Range("A2:A30"), Range("A50:A80")) > Range("B1") Then
MsgBox "Wert ist überschritten"
End If
Gruß
Chris
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: WorksheetFunktion.Sum auf Range beschränken.
08.02.2009 20:20:58
Gerd
Hallo Chris,
wie sieht die gesamte Prozedur aus ?
Gruß Gerd
AW: @ gerd
08.02.2009 20:23:00
hary
Hallo Gerd
war nur zum ueben. Ich hatte den Code ins Worksheet_Change Ereigniss gesetzt, da keine andere Vorgabe.
Gruss Hary
AW: @ Hary
08.02.2009 20:28:00
Gerd
Hallo Hary,
dann schreibe Chris halt noch einen Intersect dazu. :-)
Gruß Gerd
Anzeige
AW:jepp
08.02.2009 20:34:00
hary
hallo Chris
auf die schnelle bin auf Arbeit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("A2:A80")) Is Nothing Then
If WorksheetFunction.Sum(Range("A2:A30"), Range("A50:A80")) > Range("B1") Then
MsgBox "Überschritten"
End If
End If
End Sub


Gruss Hary

Anzeige
AW: So sieht der Code aus
08.02.2009 20:37:00
Chris
Hallo Zusammen
So sieht der ganze Code im Tabelleblatt aus.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If WorksheetFunction.Sum(Range("A2:A30"), Range("A50:A80")) > Range("B1") Then
MsgBox "Wert ist überschritten"
End If
Gruß
Chris
;

Forumthreads zu verwandten Themen

VBA - Summe unter letzter Zeile bilden
mgr

hallihallo!
ich hab jetzt schon ziemlich lang rumgesucht, komm aber leider nicht zum durchbruch. dabei - so unterstelle ich - hab ich ein problem, das schon viele gehabt haben müssten und das wahrscheinlich auch nicht unlösbar ist.
ich habe eine tabelle mit einer variablen anzahl von ze...
07.11.2008 13:39:07
Thread-ID: 1022657
3 Beiträge
Dynamische Summe ohne VBA
Matthias

Hallo,
habe folgendes Problem:
Auf einem Excel Blatt werden immer nur die letzen 31 Tage berechnet, eine Spalte soll aber einen kumulierten Wert übder das ganze Jahr erhalten. Wie bekommt man es ohne Makro hin, das er nach dem gegenwärtigen Datum der Zeile schaut, sich selbiges auf der...
25.11.2008 08:54:00
Thread-ID: 1027559
2 Beiträge
VBA Resume vier mal, dann Resume next
MBorn

Hallöle,
gibt es eigentlich sowas wie in der Überschrift beschrieben:
Resume 4 times: versuche das gleiche vier mal
Wenn es 4 x nicht klappt dann
Resume next: mach weiter
Ich hab noch nichts dazu gefunden, ihr vielleicht?
Danke,
Born
31.01.2009 16:52:00
Thread-ID: 1045686
6 Beiträge
Spezialsumme VBA
Michi

Guten Morgen!
Ich habe eine ergänzende Frage zu einem Problem, das ich hier bereits gepostet hatte. Ich konnte den Thread nicht mehr aus dem Archiv zum Leben erwecken. Bitte verzeiht mir das.
Das Problem war hier beschrieben.
https://www.herber.de/forum/archiv/1044to1048/t1045492.h...
11.02.2009 10:42:00
Thread-ID: 1049477
8 Beiträge
| HERBERS Excel Forum
kai

hallo zusammen,
ich würde gerne per makro die letzten beiden beschriebenen zellen der spalte h löschen?
würde mich freuenn, wenn mir das jemand kurz aufschreiben könnte.
danke und viel grüße kai
26.04.2009 19:51:39
Thread-ID: 1071220
6 Beiträge
Summe bestimmter Werte in einer Spalte
Michael

Hallo zusammen,
bin neu hier und hätte eine Frage bezüglich der Berechnung einer Summe. Folgendes Szenario: Ich möchte in B1 eine Summe berechnen aus Werten der B Spalte. Soweit klar! Die einzelnen Werte in Spalte B werden in jeder Zeile mit einem Wert aus der A Spalte "nebenan" berechnet....
17.06.2009 20:47:04
Thread-ID: 1082369
2 Beiträge
Array Formel summe wenn in VBA umwamdeln
t.wegmann@hengegroup.com

Hallo Liebes Forum,
ich habe ein Problem mit meiner Array-Formel:
=SUMME(WENN(('DATEN NEU'!$F$2:$F$25048=Frachten!$D4)*('DATEN NEU'!$N$2:$N$25048=Frachten!$F4) *('DATEN NEU'!$X$2:$X$25048=Frachten!H$2);'DATEN NEU'!$AB$2:$AB$25048))
Die Formel funktioniert gut, nur wenn ich die Date...
01.03.2010 09:54:52
Thread-ID: 1142293
2 Beiträge
ArraySumme von ABS Werten in VBA
ABS

Hallo Excel Freunde,
ich stehe gerade bei einer vermutlich banalen Sache auf der langen Leitung.
{=SUMME(ABS(A6:G6)) } Diese ArrayFormel bildet die Summe aller Einzelzellen von A6-G6 aus ihren individuellen ABS Werten.
Wie lautet diese Zeile in VBA, wenn testweise A6-G6 die Selectio...
10.03.2010 20:52:23
Thread-ID: 1144997
4 Beiträge
VBA Summenprodukt-Wochentag Typen unverträglich
Alfons

Hallo,
in Spalte A stehen die Tage: 01.02.2010, 02.02.2010 usw.
Zellformat ist Standard.
Mit VBA will ich davon die Anzahl der Montage ermitteln.
Dim rng As Range
Set rng = Range("A2:A65000")
MsgBox WorksheetFunction.SumProduct((Weekday(rng, 2) = 1) * 1)
Warum kommt...
29.03.2010 07:12:46
Thread-ID: 1148988
11 Beiträge
VBA Sumproduct dynamisch
Peter.H

Hallo zusammen
ich bekomme in der nachfolgenden Formel den Teil *** "=""BMW"" *** nicht über eine Variable zugewiesen.
Hier mein Code:
Sub SummenproduktFunktioniert() Dim iCol%: iCol = 3 Dim iLz%: iLz = Cells(Cells.Rows.Count, 1).End(xlUp).Row Dim mon%: mon = 2 With wsSP .[F1] = Eva...
25.07.2010 20:03:23
Thread-ID: 1168796
3 Beiträge
vba SUMPRODUKT und Anführungszeichen
Alfons

Hallo,
es soll eine Collection mit Firmen durchlaufen und die passenden Werte
aus Spalte H-K mit SUMPRODUKT addiert werden.
Problem: enthält der Firmenname Anführungszeichen, liefert SUMPRODUKT #WERT.
Set rngFirmen = ActiveSheet.Range("B2:B" & lngLZ)
Set rngAE = ActiveSh...
30.07.2010 10:47:16
Thread-ID: 1169611
3 Beiträge
Summe einer Spalte - variabel
Ano

Hallo,
folgendes Problem:
In einer Spalte stehen von 1- max. 30 Zahlen untereinander, deren Summe ich in einer anderen Spalte benötige. Danach fängt ein neuer Block an.
Also
3
4
5
Summe: 12
4
9
Summe 13
4
Summe 4
6
7
7
3
2
...
07.08.2010 11:34:15
Thread-ID: 1171032
21 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