Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
18.04.2024 17:45:21
Shellkommando ausführen, stderr auslesen
18.04.2024 17:41:41
Summe: Bestimmter Bereich mit sverweis
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1468to1472
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
1468to1472
1468to1472
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

=SUMME von unterschiedlichen Zeilen

=SUMME von unterschiedlichen Zeilen
23.01.2016 12:27:05
unterschiedlichen
Schönen Samstag im Forum
Im Sheets "Drucken" möchte ich die Summe von "Nachsortierte Ware" & von "Personal in Schicht & NS Ware am NS Packer" errechnen.
Leider sind die Zeilenanzahlen jedesmal unterschiedlich, nicht so wie im Beispiel immer I18 + I25 und die Summe in I29,Spalten bleiben immer gleich.
Die Summe sollte dann nach 3 oder 4 Leerzeilen am Ende stehen.
So wie in der Beispielmappe.
Hätte jemand bitte eine Lösung dazu?
Danke, Heinz
https://www.herber.de/bbs/user/102981.xlsx

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: noch etwas unklar ...
23.01.2016 19:09:42
...
Hallo Heinz,
... erstens hast Du in Deiner Datei im Gegensatz zu Deiner Beschreibung hier in die Summe noch J10 integriert und zweitens passt sich die Formel automatisch zusätzlich eingefügter oder gelöschter Zeilen doch von selbst an.
Gruß Werner
.. , - ...

AW: noch etwas unklar ...
23.01.2016 20:05:33
Heinz
Hallo Werner
Erstals Danke für dein Hilfeangebot.
hier in die Summe noch J10 integriert

Bitte die Summe im rot hinterlegten Bereich ausser acht lassen.
Es geht nur um die Summen der grün & blau hinterlegten Werte.
Es wird jeden Tag der Sheets "Drucken" neu angelegt.
Darum werden die Summen von blau & grün immer in den Zeilen Variabel sein.
Es kann auch einmal vorkommen, das die Summe der blauen & grünen Werte in "I40" gehört.
Gruß Heinz

Anzeige
AW: wenn dem so ist , ...
24.01.2016 10:34:09
...
Hallo Heinz,
... dann müsstest Du die Summe mit dem Erstellen der Tabelle in VBA lösenn. Da ich mich aus VBA-Lösungen heraus halte, solltest Du Deinem Antwortbetreff z.B. "VBA-Lösung gesucht" schreiben.
Gruß Werner
.. , - ...

AW: wenn dem so ist , ...
24.01.2016 17:00:07
Heinz
Hallo Werner
Danke für deinen Willen mir helfen zu wollen.
Vielleicht findet sich jemand,der das mittels VBA lösen kann.
Gruß Heinz

AW: VBA-Lösung gesucht owT
24.01.2016 17:11:05
...
Gruß Werner
.. , - ...

Lösung für Faule in VBA
24.01.2016 19:56:04
Michael
Hi zusammen,
es gibt in VBA ja immer mehrere Möglichkeiten; WENN man das schon anwirft, kann man das Rechenergebnis auch gleich direkt in die Ergebniszelle schreiben, das ist weniger Aufwand, als eine Summenformel zu konstruieren - abgesehen davon tun's in dem Fall ja auch ein paar "+" Zeichen...
Beide Varianten bedienst (so, wie ich's jetzt programmiert habe) Du wie folgt: Du markierst alle zu summierenden und *zuletzt* die Ergebniszelle (Mehrfachmarkierung mit Strg-Taste, wie Du weißt).
Dann wirfst Du wahlweise eines der Makros an:
Option Explicit
Sub summerechnen()
Dim summe As Long
' auf double umstellen, falls doch noch
' Kommawerte auftauchen
Dim letzte As Long
Dim c As Range
Dim letzteAdresse As String
If Selection.Count > 1 Then
For Each c In Selection
letzte = c.Value
letzteAdresse = c.Address
summe = summe + letzte
Next
Range(letzteAdresse).Value = summe - letzte
End If
End Sub
Sub summeFormel()
Dim summe As Long
' auf double umstellen, falls doch noch
' Kommawerte auftauchen
Dim letzter As String
Dim c As Range
Dim letzteAdresse As String, formel As String
formel = "="
If Selection.Count > 1 Then
For Each c In Selection
letzter = c.Address
letzteAdresse = c.Address
formel = formel + letzter + "+"
Next
formel = Left(formel, Len(formel) - Len(letzter) - 2)
'  MsgBox formel
Range(letzteAdresse).FormulaLocal = formel
End If
End Sub

Diese Lösung erfordert a) kein großes Gesuche in VBA (auch wenn man das in den jeweiligen Spalten mit .find in Formeln nach =Summe bla erledigen hätte können) und ist b) auch völlig flexibel, sowohl was die Positionen als auch die Anzahl der Summanden angeht.
Die Datei: https://www.herber.de/bbs/user/103000.xlsm
Schöne Grüße,
Michael

Anzeige
AW: @Michael; kleiner Hinweis
24.01.2016 21:32:09
Gerd
Hallo Michael!
Die bei gedrückter STRG-Taste zuletzt einzeln angeklickte Zelle ist die
ActiveCell
Gruß Gerd

@Gerd
25.01.2016 05:19:26
Michael
Hi Gerd,
danke für den Hinweis.
Bei der Schleife hätte es mich aber nicht groß weitergebracht, oder? Ein Konstrukt wie foreach c in sel ohne actcell gibt's ja nicht, d.h. die Schleife muß ganz durchlaufen werden, mit irgendeiner Sonderbehandlung der letzten (oder auch: active) Zelle.
Eigentlich hatte ich es ganz anders angehen wollen, sinngemäß
for i=1 to selection.count -1
summe=summe+selection(i)
' usw. usf.
msgbox selection(i).address
next
aber da kam was völlig irrwitziges raus, nämlich *immer* $I$20 - obwohl I18, I25 und I29 selektiert war.
Ich hab's nicht weiterverfolgt; vielleicht geht's ja nur mit einer zugewiesenen range-Variable.
Happy Exceling,
Michael
Anzeige

300 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
Formel nach unten...
werner

Hallo zusammen,
wenni ch in Zelle D10 z.B. die Formeln = B10+C10 kann ich diese nach unten in Zelle D11,D12.......ziehen um die Formel zu übernehmen.
Meine Frage ist folgende , geht das auch mit = Tabelle1!C9 ,wenn ich da nach unten ziehe solte sich die Formel auch anpassen d.h Tabelle2...
12.01.2009 20:24:00
Thread-ID: 1039009
4 Beiträge
Formel automatisch nach unten ziehen
Hartwig

Hallo Leute,
Ich habe eine Frage.
In A1 steht ein Wert, in B1 eine Formel.
Gibt es eine Möglichkeit dass sich die Formel von B1 in die
angrenzenden unteren Zellen (B2, B3 usw.) erweitert, wenn die Zellen
A2, A3 usw. mit Werten gefüllt werden?
Danke schon mal für eure Hil...
27.01.2009 11:03:00
Thread-ID: 1044121
7 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
Makro: Wort ersetzen bis letzte Zeile von...
Julia

Hallo,
ich habe ein Makro geschrieben welches mir in der Spalte I das Wort "Fixed" durch "Behoben" ersetzt.
Funktioniert auch wunderbar.
Sub fixed_behoben() Sheets("Datenbasis").Select ActiveWindow.SmallScroll ToRight:=-3 Columns("I:I").Select Selection.Replace What:="Fixed", Repl...
30.06.2009 11:17:32
Thread-ID: 1085300
3 Beiträge
Bereich benennen (bis letzte Zeile)
onkelbobby

Hallo,
in einer Excel Tabelle möchte ich gerne (für Weiterbearbeitung in Access) einen Bereich benennen. Dieser Bereich soll aber nicht fest, sondern in Abhängigkeit der Eintragungen sein.
Der Bereich soll von Spalte A bis Spalte AQ und von Zeile 2 bis "letzte Zeile mit Eintrag in Spal...
28.04.2010 16:22:08
Thread-ID: 1154330
6 Beiträge
Formatieren nur bis zur letzten Zeile
Finus

Ich habe ein Makro aufgezeichnet, in dem unter anderem Zeilen formatiert werden sollen.Da die zu formatierende csv-Dateien aber immer unterschiedliche Längen (30-150 Zeilen) haben, formatiere ich momentan immer bis zur Zeile 500, was beim Ausdrucken nachher aber alles als Leerzeilen mitkommt. :...
06.05.2002 16:23:46
Thread-ID: 118883
5 Beiträge
Filtern und wegkopieren von bestimmten Zeilen
Josef

Guten Morgen!Ich habe z.B.in der Tabelle1 in Spalte A 20 Zeilen mit 1, danach 45 Zeilen mit 2, danach 80 Zeilen mit 3 usw.(von 1-9)Jetzt sollen alle Zeilen in denen in der Spalte A eine 2 vorkommt ausgeschnitten und in ein neues Blatt z.B.Tabelle2 kopiert werden. Das gleiche mit 3 in Tabelle3 u...
07.05.2002 08:43:09
Thread-ID: 119035
7 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
2
3
6
3
1
2
5
4
6
3
13
6
3
18
2
2
1
3
11
5
1
4
8
3