VBA, Suchkriterium, Ergänzung
26.05.2023 16:28:16
Fred
Hallo Excel Profis,
ich habe vor Monaten von Onur ein Makro erhalten, welches u.a.
die Remisse des HeimTeams zählt
unabhängig ob dies Team zuhause oder auswärts spielte:
' WICHTIG !!! Es müssen die Spiele abwärts (Datum) sortiert sein
' Kriterium >= 3 Tore
' zählt die Anzahl (wenn Kriterium erfüllt) eines Heimteams in Heim,- Auswärtsspielen
' der vorherigen 3 Spiele
Dim z, anz, lz, zz, anf
anf = 11 ' ab Zeile 11
lz = ActiveSheet.Cells(Rows.count, 12).End(xlUp).Row ' bezieht sich auf HeimTeams, Spalte 12
For z = anf To lz ' von Zeile 11 bis letzte
anz = 0 ' Zähler auf Null zu Beginn
For zz = z + 1 To z + 3 ' relevant, die nächsten 3 Spiele mit Heimteam
If Cells(zz, 12) = Cells(z, 12) Or Cells(zz, 13) = Cells(z, 12) Then
If Cells(zz, 15) = Cells(zz, 16) Then ' Kriterium, wenn Remis
anz = anz + 1 ' zählt,- Remis
'Stop
End If
End If
Next zz
Cells(z, 24) = anz ' trägt die Anzahl in Spalte 24 ein
Next z ' nächste Zeile in Spalte 12
End Sub
Ich fand das Makro damals einfach, effizient und verständlich aufgebaut und habe es auf unterschiedlichste Weise (leicht verändert) genutzt.
Nun bin ich aber wieder an meine Grenze gekommen.
z.B. ist das obere Makro darauf begrenzt, das die nächsten 3 Zeilen nach dem HeimTeam (zz, 12) in zz, 12 und zz, 13 gesucht wird und dann daraufhin die Anzahl der Remisse (aus folgenden 3 Zeilen) ermittelt wird.
Meine Frage:
Kann ein Experte das Makro dahin ergänzen,
das nicht nur die nächsten 3 Zeilen "durchsucht werden, sondern solange, bis das HeimTeam (zz, 12) 3 x gefunden würde? In "zz, 12 und zz, 13"
Gruss
Fred