ich beginne derzeit mit vba und immer wieder stoße ich frühzeitig an meine Grenzen
Das Problem;
Ich habe in Spalte 54 eine Liste die ich mit der Liste in Spalten 3+4 abgleichen will. Es soll als Ergebnis die Treffer eines Teams ermittelt werden (Spalten 5-6)
Ich habe ein Makro geschrieben;
Sub a03_Treffer()
Dim n
Dim Summe
For n = 2 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(n, 3).Value = Cells(6, 54) Then
Summe = Summe + Cells(n, 5).Value
End If
If Cells(n, 4).Value = Cells(6, 54) Then
Summe = Summe + Cells(n, 6).Value
End If
Next
Range("BE6") = Summe
End Sub
Das Ergebnis vom ersten Eintrag meiner Liste wird hier in "BE6" eingetragen (Ergebnis stimmt).
Allerdings möchte ich auch für die unterstehenden Einträge das Ergenis. Bei Zellen-Formel würde ich die Formel ja einfach "runterziehen",- in vba muß wohl aber das komplette Makro umgeschrieben werden.
Kann mir jemand dabei bitte helfen?!
zur Verdeutlichung
https://www.herber.de/bbs/user/127755.xlsb
Mit freundlichen Gruß
Fred Neumann