Probiers mal mit
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A2:A80,C2:C80")) Is Nothing Then
For Each SubTarget In Target.Cells
With SubTarget
.Value = SubTarget.Value * 1000
.NumberFormat = "#,##0"
End With
Next
End If
Application.EnableEvents = True
End Sub
wobei man
If Not Intersect(Target, Range("A2:A80,C2:C80")) Is Nothing Then
verschärfen sollte, wenn es auch Bereiche gibt die nicht * 1000 gerechnet werden sollen, die absichtlich oder unabsichtlich gemeinsam kopiert würden
bzw die Bedingung in der For Schleife nochmal anwenden so z.B.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A2:A80,C2:C80")) Is Nothing Then
For Each SubTarget In Target.Cells
If Not Intersect(SubTarget, Range("A2:A80,C2:C80")) Is Nothing Then
With SubTarget
.Value = SubTarget.Value * 1000
.NumberFormat = "#,##0"
End With
End If
Next
End If
Application.EnableEvents = True
End Sub