Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1424to1428
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
1424to1428
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Summe bilden am Tabellenende

VBA Summe bilden am Tabellenende
27.05.2015 08:44:14
Michael
Hallo Forum,
Ich würde gerne realisieren, dass ich mittels VBA die Summe aller positiven Werte am Ende einer Tabelle in der Spalte M ermittle.
folgender Code funktioniert leider nicht bzw. ich verstehe nicht ganz wie ich ihn eventuell für meine Zwecke anpassen könnte.
Meine Tabelle:
https://www.herber.de/bbs/user/97860.xls
Gruß
Michael

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Summe bilden am Tabellenende
27.05.2015 08:48:30
Michael
Ich vergass den Code:
Sub Summe() Dim lngLast As Long lngLast = Cells(Rows.Count, 13).End(xlUp).Row Cells(lngLast + 2, 13).FormulaR1C1Local = "=SUMME(Z1S:Z(-2)S)" End Sub

AW: VBA Summe bilden am Tabellenende
27.05.2015 08:52:20
Matthias
Hallo
Warum benutzt Du denn keine Formel
 M
3113
437
524
611
710
89
91
101
110
120
13-1
14-1
15-3
16-3
17-4
18-4
19-6
20-9
21-11
22-11
23-12
24-14
25-15
26-19
27-20
28-22
29-22
30-23
31-50
32206

Formeln der Tabelle
ZelleFormel
M32=SUMMEWENN(M3:M31;">0";M3:M31)


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Matthias

Anzeige
VBA Summe > 0
27.05.2015 09:00:31
Matthias
Hallo
Hier als VBA-Code
Option Explicit
Sub Summe()
Dim lngLast As Long
lngLast = Cells(Rows.Count, 13).End(xlUp).Row
Cells(lngLast + 2, 13).FormulaR1C1Local = "=SUMMEWENN(Z(-31)S:Z(-3)S;"">0"";Z(-31)S:Z(-3)S)"
End Sub
Gruß Matthias

AW: VBA Summe > 0
27.05.2015 09:05:52
Michael
Danke Matthias,
ich probiere es gleich mal aus. Als Code weil ich zig Tabellen aus einem Sheet heraus generiere und er soll mir dann automatisch immer unter das Tabellenende die Summe bilden.
Gruß
Michael

AW: VBA Summe > 0
27.05.2015 10:02:26
Michael
Hallo Matthias,
leider ergibt der Code einen Fehler: Application-defined or object-defined error
könntest Du mir vielleicht sagen was die folgende Zeile im konkreten macht damit ich vielleicht selber auf eine Lösung komme:
Cells(lngLast + 2, 13).FormulaR1C1Local = "=SUMIF(Z(-31)S:Z(-3)S;"">0"";Z(-31)S:Z(-3)S)"
Gruß
Michael

Anzeige
AW: VBA Summe > 0
27.05.2015 10:45:19
Matthias
Hallo

Die Datei https://www.herber.de/bbs/user/97869.xls wurde aus Datenschutzgründen gelöscht


Gruß Matthias

AW: VBA Summe > 0
28.05.2015 09:52:21
Michael
Hallo Matthias,
der Code funktioniert super. Danke an dieser Stelle. Eine weitere Frage ohne nerven zu wollen. Wenn ich jetzt neben der errechneten Summe auch "Summe" hinschreiben wollte, also in der Spalte daneben. Eine Idee wie ich das handhabe?
Gruß
Michael

301 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige
Per VBA prüfen, ob ein Namen in einer Spalte
stefan

vorhanden ist.
Hallo,
ich einer Spalte mit 10000 Namen möchte ich per VBA rausfinden, ob ein Name (in Celle A1) vorhanden ist.
Wie mache ich das?
Vielen Dank
11.10.2011 18:56:09
Thread-ID: 1233433
4 Beiträge
VBA Formel ändern nach einfügen einer Spalte
Timonski

Servus...
ich hab in meiner Tabelle viele VBA Formeln, z.b. VLookup... oder mit Cells(r, 5)...
wenn ich jetzt eine Spalte einfüg... nehmen wir mal an zwischen 3 und 4... dann heißt ja die Spalte 5 nun 6...
d.h. die Formel mit cells(r, 5) stimmt ja nicht mehr.. die sollte ja Cells(r,...
23.03.2012 15:25:44
Thread-ID: 1256320
3 Beiträge
Summe wenn Text in einer Spalte
Tim

Hallo,
ich habe mehrere Bereiche in einer Tabelle. In der ersten Spalte sind Werte und in der Zweiten sind ggf. Texte.
Nun soll eine Summe über die Bereiche gebildet werden, aus allen Zeilen, bei denen in der zweiten Spalte Text steht.
Bereich 1: N346:N354 (hier sind die Werte) und...
15.10.2012 11:32:00
Thread-ID: 1282065
4 Beiträge
Summenbildung in einer Spalte mittels VBA
josef

Guten Morgen!
Ich habe verschiedene Tabellen, mit jeweils verschiedenen anzahlen von Zeilen.
Ich möchte nun in der Spalte G, in welcher Beträge ab Zeile 2 stehen, in der nächsten freien Zelle in der Spalte G mittels VBA eine Summe bilden.
Mit
Sub Test() With Sheets("Tabelle1")...
03.04.2013 06:53:48
Thread-ID: 1306974
3 Beiträge
Summe bis letztem Wert einer Spalte
Burghard

Hallo,
ich möchte die Summe der Werte einer Spalte variabel berechnen. In meiner Formel
="Noch zu zahlen: "&TEXT(SUMME($E$2:VERWEIS(9^99;E:E));"#.0,00 €") ist aber der Wurm drin. Wie müsste die Formel korrekt lauten?
Hilfe wäre nett.
Gruß
Burghard
07.06.2013 17:54:53
Thread-ID: 1316699
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
2
5
1
20
11
3
2
3
2
5
7
25
5
2
2
14
3
3
2
13
1
2
1
3
1