Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1204to1208
1204to1208
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summenprodukt am Ende der Tabelle

Forumthread: Summenprodukt am Ende der Tabelle

Summenprodukt am Ende der Tabelle
Bernhard
Wertes allwissendes Forum!
Ich probier jetzt schon seit zwei Stunden eine Summenproduktformel ans Ende meiner Tabelle zu bringen, aber ich bekomme es einfach nicht hin.
In Spalte G soll das Summenprodukt von Spalte I und Spalte J gebildet werden, dann durch die Summe aus Spalte K geteilt werden. (Siehe auch blau markierte Zelle im Beispiel)
https://www.herber.de/bbs/user/73884.xlsx
Das fiese ist, dass die Tabelle immer unterschiedlich viele Zeilen hat, der Aufbau sonst ist identisch.
Wie ist es zu schaffen dass die Formel wie dargestellt per VBA ans Ende der Tabelle kommt?
Ich bin unendlich dankbar für jeden Tipp....
Gruß aus Mannheim,
Bernhard
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Summenprodukt am Ende der Tabelle
08.03.2011 10:53:51
Rudi
Hallo,
Cells(Rows,Count, 10).end(xlUp).Offset(2).FormulaR1C1= "=ROUND(SUMPRODUCT(R3C9:R[-2]C9,R3C10:R[-2]C10)/SUM(R3C11:R[-2]C11),2)"
Gruß
Rudi
AW: Summenprodukt am Ende der Tabelle
08.03.2011 14:21:15
Bernhard
Super vielen Dank!
Hat bis auf das Komma nach Row einwandfrei funktioniert! Ich wüßte nicht was ich ohne Euch täte...
Deshalb noch ein herzliches DANKESCHÖÖÖN viele Grüße und ein Hellau.
Bernhard!
Anzeige
AW: Summenprodukt am Ende der Tabelle
08.03.2011 10:59:45
Reinhard
Hallo Bernhard, 

Option Explicit
Sub Summen()
Dim Zei As Long, Formel As String
Formel = "=RUNDEN(SUMMENPRODUKT((I3:I11)*(J3:J11))/SUMME(K3:K11);2)"
With Worksheets("tabelle1")
Zei = .Cells(Rows.Count, 4).End(xlUp).Row
.Range("D" & Zei + 2 & ":L" & Zei + 2).FormulaLocal = "=Summe(D3:D" & Zei & ")"
.Range("J" & Zei + 2).FormulaLocal = Formel
End With
End Sub

Gruß
Reinhard
Anzeige
;

Forumthreads zu verwandten Themen

Rahmen und Formel bis Ende der Tabelle
Alex105

Hallo Zusammen,
ich habe eine Tabelle, die ich mithilfe von einem Makro formatieren lasse. Jetzt benötige ich für 2 Punkte innerhalb dieser Tabelle mal bitte Eure Hilfe.
1. Punkt: In E2 fängt eine Wenn-Formel an, die bis ans Ende der Tabelle laufen soll (Tabellenlänge ist dynamisch)
...
12.05.2014 10:31:47
Thread-ID: 1361048
8 Beiträge
Spalte mit selben Wert bis Ende der Tabelle fuelle
Marvin

Hallo zusammen,
Ich habe folgendes Problem:
Ich habe eine Tabelle mit mehreren Spalten von denen alle ausgefuellt sind, ausser eine, Spalte O. In die soll ueberall der Wert "GBP" eingefuegt werden, allerdings nur bis zum Ende der Tabelle.
Bisher habe ich diesen Code: Sub ContentGBP(...
16.01.2015 15:58:30
Thread-ID: 1403249
9 Beiträge
Autofill bin Ende der Tabelle in anderer Datei
Marvin

Hallo zusammen,
ich habe folgenden Code, der mir die Formel in Zelle A1 bis zum Ende der Tabelle mit einem Autofill "kopiert":
Private Sub CommandButton1_Click() letzte = Cells(Rows.Count, 3).End(xlUp).Row Range("A1").AutoFill Destination:=Range("A1:A" & letzte) End Sub Ich probier...
03.02.2015 11:10:32
Thread-ID: 1406890
4 Beiträge
For i = 3 To Ende der Tabelle?
Chep

Hallo Forum,
ich arbeite momentan mit For i = 3 To 100. Das Poblem ist jedoch das meine Tabelle teilweise darunter bzw darüber mit Werten gefüllt ist. Anstatt 100 fest vorzugeben würde ich gerne das Ende der Tabelle bzw. die letzte Zeile mit Werten angeben. Jemand einen Rat wie ich das umse...
22.05.2015 14:32:18
Thread-ID: 1427348
9 Beiträge
erstelltes Tabellenblatt immer wieder verwenden
Jo

Hallo zusammen,
nachdem mir vorhin schon bei einem anderen Problem sehr gut geholfen wurde, habe ich hier die nächste Hürde.
Ich habe eine Excel-Datei mit 2 Tabellenblättern.
In der Tabelle1 stehen meine Grunddaten in mehreren Zeilen und Spalten. Alle 16 Zeilen wiederholt sich das...
27.10.2015 10:49:51
Thread-ID: 1454665
5 Beiträge
Zeilen abhängig aus/einblenden in anderer Tabelle
Martin

Hallo, habe das Forum durchsucht, aber nicht die Lösung für meine Frage gefunden:
In Tabelle2 ändert sich der Wert in Zelle H1 über die Formel "=Tabelle1!$D$26".(entweder Wert "1" oder "2"), Nun möchte ich, dass sich in Tabelle2 die Zeilen 5 bis 39 ausblenden, wenn in Tabelle2 in Zelle H1 d...
03.05.2016 12:56:30
Thread-ID: 1491659
13 Beiträge
Ansichtgröße der Tabelle festlegen
Hartmut Mengeler

Hallo, ich möchte ein Tabellenblatt als Formular abspeichern. Hierbei habe ich die am Bildschirm sichtbaren Zellen farblich makiert. Nun soll vermieden werden, daß der Anwender mit den Scrollleisten das Formular
hin und herschieben kann, so daß er aus dem Formular herauskommt. Ist dies machb...
14.08.2002 13:58:44
Thread-ID: 148524
3 Beiträge
Anzeige
Pivot-Tabelle ändert "unterliegendes" Blattformat
Tim

Hallo,
ich habe eine Pivot-Tabelle, welche ich durch verschiedene Slicer filtern kann. Das heißt, die Anzahl der gefüllten Zeilen ändert sich in der Pivot-Tabelle.
Nun ist es so, dass ich mein gesamtes Worksheet dunkelgrau gefärbt habe.
Wenn ich nun die Tabelle filtere, sodass stat...
02.08.2017 11:29:58
Thread-ID: 1571975
5 Beiträge
Fehlende Werte der Tabelle zuordnen
Laurent

Folgendes Problem steht mir bevor:
Ich habe zwei Listen mit URL's (Liste A & Liste B)
Die Listen überschneiden sich teilweise
Folgende Fälle fallen an:
1) URL ist in A und nicht in B
2) URL ist in B und nicht in A
3) URL ist in A & B vorhanden
Ich möchte
...
26.10.2017 13:25:46
Thread-ID: 1588020
7 Beiträge
Anzeige
Spalte ausblenden auf anderem Tabellenblatt wenn
Markus

Guten Tag
Ich habe schon einen Tag versucht es alleine zu lösen, bringe es aber nicht fertig.
Wenn auf meinem "Datenblatt" Zelle D13 ="Nein" ist dann soll auf dem "Januar" die Zeile 33 ausgeblendet werden.
Bei F13 ="Nein" dann Zeile 34 ausgeblendet.
bei "Ja" Zeilen bleiben eing...
07.11.2018 13:49:22
Thread-ID: 1655925
7 Beiträge
Tabelle mit Bildern versenden
Andre

Hallo Zusammen
Ich habe mal wieder ein Problem
Was muss ich machen damit ich eine Excel Tabelle mit Bildern versenden kann
Die Bilder werden mittels eines Code's von einen Server eingefügt.
Vielen Dank für ein Tipp im voraus
20.08.2019 13:22:46
Thread-ID: 1708568
4 Beiträge
Anzeige
Tabellenblätter wieder einblenden
konrad

Hi Forum,
vorhin habe ich auf die meine Anfrage, wie man Tabellenblätter so ausblenden kann, dass sie unter Format -> Blatt -> Einblenden nicht mehr sehen kann, folgende geniale lösung bekommen:
Sheets("Tabelle2").Visible = xlVeryHidden.Nun muss ich aber wieder an diese Blätter ran. Das r...
27.01.2003 15:41:44
Thread-ID: 209574
4 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige