Als Antwort auf diesen Beitrag
Moin!
Leider hast du den VBA-Teil mit Passwort ausgeblendet, daher kann ich da weder reinschauen, noch testen.
Theoretisch müsste es aber so klappen:
Kopiere den Code in das Worksheet-Modul, in CHANGE
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.count > 1 Then Exit Sub
If Target.Address(0, 0) <> "E5" Then Exit Sub
If Target.Value = "Luftgewehr 1.10" Or _
Target.Value = "Luftpistole 2.10" Then
Sheets("Wertung-Einzel").Range("F9:I12").NumberFormat = "0"
Else
Sheets("Wertung-Einzel").Range("F9:I12").NumberFormat = "0.0"
End If
End Sub
Den Bereich zum ändern hab ich schon auf den Wertebereich erweitert, sicher willst du aber in den Zeilen noch was dazumachen.
Viel Erfolg!
Gruß, MCO