vba -- summe zuordnen
22.02.2019 10:21:43
Fred
Hallo VBA Profis,
Ich möchte nach Kriterien Treffer mehrerer Teams (BB6:BB20) entsprechend jedem Teams summieren und entsprechend (BF6:BF20) ausgeben.
VBA
Sub Schaltfläche8_Klicken()
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 n
Tabelle1.Range("BF6:BF20").Value = summe
End Sub
Das Ergebnis ist, das in den Zellen BF6:BF20 überall die Trefferanzahl von der ersten Berechnung eingetragen wird.Was mache ich da falsch? Bitte um Hilfe.
Gruß
Fred Neumann