Target.address = range
30.07.2021 16:44:49
Christoph
ich habe da ein Problem mit einer Sache.
Hier
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$7" And WorksheetFunction.IsNumber(Target) Then Target = -Abs(Target)
End Sub
soll statt nur in der Zelle G7, in allen Zellen von G7 bis G49, jegliche Zahlen negativ gerechnet und angezeigt werden, auch wenn sie einfach positiv eingetragen werden.
Das Ganze soll ein ehefrauensicheres Kassenbuch werden. Sie hat sich so oft vertippt und ich habe keine Lust mehr das zu kontrollieren und zu korrigieren. Kostet zu viel Zeit.
Könnt ihr helfen?
Grüße
Christoph