Hallo,
nach langem - nur teilweise erfolgreichem - Lesen möchte ich auch um Eure Hilfe bitten.
Ich habe eine Tabelle mit 5 Spalten (entsprechen 5 Personen) B2-B5.
In den Zeilen B3-B5 werden jeder Person Punktwerte zuordnet, die sich aus der Addition des letzten Werts mit einer einzugebenden Zahl errechnet.
I II III IV V
Eingabe 1 2 3 4 5
Punktestand neu 1 4 7 12 8
Bisher lasse ich mir die Person mit der geringsten Punktezahl durch ein bedingte Formatierung anzeigen und geben dann in der Zeile Eingabe die zu addierende Zahl ein. Über einen VBA Code addiert sich dann der Punktestand auf.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Range("B3").Value = Range("B3").Value + Target.Value
End If
If Target.Address = "$C$2" Then
Range("C3").Value = Range("C3").Value + Target.Value
End If
If Target.Address = "$D$2" Then
Range("D3").Value = Range("D3").Value + Target.Value
End If
If Target.Address = "$E$2" Then
Range("E3").Value = Range("E3").Value + Target.Value
End If
If Target.Address = "$F$2" Then
Range("F3").Value = Range("F3").Value + Target.Value
End If
End Sub
Ich möchte lieber ein Feld haben, in das ich die aufzuaddierende Zahl eintrage. Das Programm sollte sich dann selbst das Feld mit dem niedrigsten Punktestand suchen und die Zahl aufaddieren. Geht das?
(Ganz toll wäre, wenn sich dann auch noch irgendwo der Rechenweg nachvollziehen ließe.)
Vielen Dank schon einmal
S.
Menü
An- und Abmelden
Partner / Links
