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

Maximum per VBA

Forumthread: Maximum per VBA

Maximum per VBA
09.04.2018 11:47:44
Jens
Hallo,
kann mir jemand helfen, wie man das Maximum eines Wertes in abhängigkeit zweier Kriterien per VBA bestimm?
https://www.herber.de/bbs/user/120942.xlsm
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Maximum per VBA
09.04.2018 14:58:39
ChrisL
Hi Jens
Sub t()
Dim WS1 As Worksheet: Set WS1 = Worksheets("Tabelle2")
Dim WS2 As Worksheet: Set WS2 = Worksheets("Tabelle3")
Dim lngZeile1 As Long, lngZeile2 As Long
Dim lngWertHeim As Long, lngWertAusw As Long
Application.ScreenUpdating = False
For lngZeile2 = 4 To WS2.Cells(Rows.Count, 4).End(xlUp).Row
For lngZeile1 = 4 To WS1.Cells(Rows.Count, 1).End(xlUp).Row
If WS1.Cells(lngZeile1, 1) = WS2.Cells(lngZeile2, 1) And _
WS1.Cells(lngZeile1, 2) = WS2.Cells(lngZeile2, 2) Then
If WS1.Cells(lngZeile1, 4) = "Heim" Then
If lngWertHeim

cu
Chris
Anzeige
AW: Maximum per VBA
09.04.2018 15:13:57
Jens
Super genau so.
Besten Dank.
Kriegt man die Nuller noch weg wenn kein Wert in den Stammdaten vorhanden ist. Aktuell wird hier eine 0 eingefügt. Leer wäre besser.
AW: Maximum per VBA
09.04.2018 15:24:26
ChrisL
Hi
If lngWertHeim > 0 Then WS2.Cells(lngZeile2, 19) = lngWertHeim
If lngWertAusw > 0 Then WS2.Cells(lngZeile2, 27) = lngWertAusw
If WorksheetFunction.Max(lngWertHeim, lngWertAusw) > 0 Then _
WS2.Cells(lngZeile2, 11) = WorksheetFunction.Max(lngWertHeim, lngWertAusw)
cu
Chris
Anzeige
AW: Maximum per VBA
09.04.2018 16:26:33
Jens
Dank.
Funktioniert sehr gut.
hast du vieleicht noch für mein zweites Problem eine Lösung.
Sprich es müssen noch für die Spalten 10,18 und 26 in Tabelle 3 die abhängigen Summen der Spiele für die Spieler gebildet werden.
Die Summe wird aus den Daten der Splate 11 der Tabelle 2 gebildet.
Für heim natürlich nur die Heimspiele. Für Auswärts nur die Auswärtsspiele
Dann wäre alles drinnen, was nötig ist.
Anzeige
offen
09.04.2018 16:39:15
ChrisL
Hi
Als Sportmuffel habe ich keine Ahnung was berechnet werden müsste. Abgesehen davon habe ich gleich Feierabend ;)
"abhängige Summen" hört sich nach der Formel SUMMEWENN oder SUMMEWENNS an.
cu
Chris
AW: offen
09.04.2018 16:41:48
Jens
Nur eine Summenbildung über VBA abhängig vom Spieler nach Heim und auswärts...
Anzeige
dann SUMMEWENNS()
09.04.2018 16:57:23
ChrisL
Die Formel kannst du auch per VBA einsetzen... Standardformeln mit VBA nachzubauen finde ich sinnlos.
;

Beliebteste Forumthreads (12 Monate)

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