Schwierige Summenformel...

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Tobias,
ich wäre an einer Formel-Lösung auch interessiert, aber wenn Boris schon sagt, dass das nicht einfach ist, brauch ich mich gar nicht erst daran zu versuchen.
Nochmal zum Verständnis:
Zu jedem Maximum aus den Zeilen 6 bis 105 der Spalten U bis BB soll der Wert des Maximums mit dem entsprechenden Betrag aus "Tabelle1" multipliziert werden. Die Einzel-Produkte werden aufsummiert. Das Ergebnis steht in Spalte "T" in der betreffenden Zeile.
Also in T6 steht dann in deiner Bsp-Tabelle:
= 3 * 2,75 + 13 * 2,75 + 10 * 2,75 + 16 *2,75 + 12 * 1,375 + 19 * 2,75 = 184,25
- was ich allerdings noch nicht verstehe ist, warum du bei der Formatierung mit "KGRÖSSTE" arbeitest und nicht mit "MAX".
Deine Formel: =KGRÖSSTE(V$6:V$105;ZÄHLENWENN(V$6:V$105;)+1) bringt nach meinem Verständnis nur den allergrößten Wert, also das Maximum, und nicht wahlweise auch noch den zweitgrößten, o.ä.
Für den Fall, dass ich das richtig verstanden habe, und das sich die betreffenden Zeilen und Spalten-Nummern nicht ändern (ebenso auch nicht der Name der "Tabelle1")
dann müsste dir das folgende Makro helfen können:
ich habe diese modifizierte Datei auf den Server gelegt:
(Die Berechnung erfolgt über die Schaltfläche: Gewinn / Person)
https://www.herber.de/bbs/user/4175.xls
Gruß
Christoph
Option Explicit


Sub GewinnProPerson()
Dim i As Integer, j As Integer, k As Integer
Dim Auszahlung As Double, PersSum As Double
Dim Spieltag As String
For i = 6 To 105                    'relevante Zeilen in der Tabelle: "tagessieger"
PersSum = 0
For j = 21 To 54                    'Spalten "U" bis "BB" in der Tabelle: "tagessieger"
'Wenn der Wert in der Zeile i das Maximum der betreffenden Spalte ist dann:
'den dazugehörigen Betrag in "Tabelle1" ermitteln:
If Cells(i, j).Value = _
Application.WorksheetFunction.Max(Range(Cells(6, j), Cells(105, j))) Then
Spieltag = Cells(4, j).Value
For k = 15 To 48                          'Zeilen in der Tabelle: "Tabelle1"
If Sheets("Tabelle1").Cells(k, 1).Value = Spieltag And _
Sheets("Tabelle1").Cells(k, 3).Value > 0 Then
Auszahlung = Sheets("Tabelle1").Cells(k, 4).Value
End If
Next k
'Summe pro Spieler ist der Betrag aus Tabelle1 mal der Wert aus Tabelle: "tagessieger"
PersSum = PersSum + Auszahlung * Cells(i, j).Value
End If
Next j
'In Spalte "T" das Ergebnis eintragen:
Cells(i, 20).Value = PersSum
Next i
End Sub

Sub GewinnProPerson() Dim i As Integer, j As Integer, k As Integer Dim Auszahlung As Double, PersSum As Double Dim Spieltag As String For i = 6 To 105 PersSum = 0 For j = 21 To 54 If Cells(i, j).Value <> "" And _ Cells(i, j).Value <> 0 And _ Cells(i, j).Value = _ Application.WorksheetFunction.Max(Range(Cells(6, j), Cells(105, j))) Then Spieltag = Cells(4, j).Value For k = 15 To 48 If Sheets("Tabelle1").Cells(k, 1).Value = Spieltag And _ Sheets("Tabelle1").Cells(k, 3).Value > 0 Then Auszahlung = Sheets("Tabelle1").Cells(k, 4).Value End If Next k PersSum = PersSum + Auszahlung End If Next j Cells(i, 20).Value = PersSum Next i End Sub

Hallo Tobias,
zu 1:
wie ich schon in meiner ersten Antwort geschrieben habe, empfehle ich die bedingte Formatierung über "MAX" zu realisieren und nicht über "KGRÖSSTE".
Die Funktion "KGRÖSSTE" ist wahrscheinlich in Tabelle1 bei der Ermittlung der Anzahl der Maximalwerte sinnvoll. (habe ich nicht näher geprüft, da ich die Verknüpfung zu den anderen Tabellen nicht kenne...aber trage mal im Spieltag 20 eine einzelne Zahl größer Null ein, und schon hast du 99 Gewinner in Tabelle1)
In der Tabelle "tagessieger" ist offensichtlich nur der Maximalwert gefragt also formatiere deine Zellen in "tagessieger" wie folgt:
Bsp für U6:
=U6=MAX(U$6:U$105)
so werden allerdings alle Nullen in den Spalten der noch nicht ausgeführten Spieltage auch rot, da jede Null auch gleich das Maximum ist.
Wenn du dies ausschalten willst dann schreib:
=U6=WENN(MAX(U$6:U$105)<>0;MAX(U$6:U$105))
So wird die "18" von "Harti" am 1. Spieltag auch rot (In die Berechung fließt sie auch ein, ohne rot zu werden)
zu 2.
Am 18.Spieltag ist nicht Ludwig, sondern Holger der Tagessieger. Deshalb bekommt Ludwig auch keine Kohle. (Begründung - s.o.: falsche Formatierung.)
Gruß
Christoph

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

167 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Schwierige Summenformel...

27 Beiträge zum Forumthread Beiträge zu diesem Forumthread

167 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

27
Beiträge zum Forumthread

Beiträge zu diesem Forumthread