Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1616to1620
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
Inhaltsverzeichnis

Maximum per VBA

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
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...
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige