ich möchte das bei der Eingabe einer Zahl in eine Zelle diese Zahl z.B. automatisch mit 0,45 multipliziert wird. Wie kann ich das am Besten realisieren?
MfG
Nelio
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
On Error GoTo fixit
Application.EnableEvents = False
If Target.Value = 0 Then newvalue = 0
Target.Value = Target.Value * 0.45
newvalue = Target.Value
fixit:
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
On Error GoTo errH
Application.EnableEvents = False
Target = Target * 0.45
errH:
Application.EnableEvents = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Column = 1 And Target.Row < 11 Then
On Error GoTo fixit
Application.EnableEvents = False
If Target.Value = 0 Then newvalue = 0
Target.Value = Target.Value * 0.45
newvalue = Target.Value
fixit:
Application.EnableEvents = True
End If
End Sub