Meine Frage dazu:
Die Funktion ist jetzt für Zelle A1-A10.
Wie sähe das VBA für die Zellen B3-D6 aus?
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Row > 10 Or Target.Column > 1 Then
Exit Sub
End If
Application.EnableEvents = False
Target.Value = Target.Value / 1.6
Application.EnableEvents = True
End Sub
Vielen Dank!