Suche jemanden, der mir was programmiert.

[schauan]

Hallöchen,

hier mal ein Anfang. Also, wenn in D4:E8 etwas eingegeben wird, was größer ist als der Wert in F4:F8 der zugehörigen Zeile, soll dieser Wert überschrieben werden.

Das könntest Du so lösen, Code gehört in das Tabellenblattmodul:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
'Makro verlassen, wenn mehr als eine Zelle geaendert wird
If Target.Cells.Count > 1 Then Exit Sub
'Wenn auslesende Zelle im Datenbereich D4:E8 liegt, dann
If Not Intersect(Target, Range("D4:E8")) Is Nothing Then
  'Wenn der Wert der Rekordzelle kleiner als der Wert der Datenzelle ist, dann
  If Cells(Target.Row, 6).Value < Target.Value Then
    'neuen Rekord eintragen
    Cells(Target.Row, 6).Value = Target.Value
  'Ende Wenn der Wert der Rekordzelle kleiner als der Wert der Datenzelle ist, dann
  End If
'Ende Wenn auslesende Zelle im Datenbereich D4:E8 liegt, dann
End If
End Sub

Das Löschen der Spiele und Rekorde könnte so gehen, der Code gehört in ein Modul.

Code:

Sub Spiele_Loeschen()
' Spiele_Loeschen Makro
    Range("D4:F8").ClearContents
End Sub

[schauan]

Hallo Sniper,

das erste Makro fügst Du in das Modul vom Tabellenblatt ein, wo Du die Daten einträgst.
Für das zweite Makro fügst Du ein Modul ein und tust den Code dort hinein. Ich habe das hier mal beispielhaft getan.