Mit dem Code funktoniert es jetzt wie gewüscht. Musste nur das Blatt 1x neu starten
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Cells(Selection.Row, 10).Value = "Rund" Then Range("F3") = "Rund" Else Range("F3").ClearContents
End Sub