Supportnet / Forum / Tabellenkalkulation
Zellenwert um eine bestimmte Summe mindern.
Frage
Hallo Leutz,
ich möchte gerne das ein Wert der in die Zelle A1 z.Bsp eingetragen wird sich automatisch um den Wert 13 verringert und so auch angezeigt wird. Das gleiche sollte sich auch nicht auf die Summenformeln auswirken.
z.Bsp.: Zelle A1 24 eingetragen soll 11 anzeigen und auch in der summe nur 11 zählen.
Zell A2 33 eingetragen soll 20 anzeigen.
Summe zusammen soll 31 ergeben.
Danke !!!
Gruß Marco
Antwort 1 von rainberg
Hallo Marco,
folgendes Makro erfüllt deine Wünsche im Bereich A1:A100, den Bereich kannst du aber ändern.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
Target.Value = Target.Value - 13
End If
Application.EnableEvents = True
End Sub
Kopiere den Code ins Codefenster der entsprechenden Tabelle.
Gruß
Rainer
folgendes Makro erfüllt deine Wünsche im Bereich A1:A100, den Bereich kannst du aber ändern.
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
Target.Value = Target.Value - 13
End If
Application.EnableEvents = True
End Sub
Kopiere den Code ins Codefenster der entsprechenden Tabelle.
Gruß
Rainer
Antwort 2 von fightibrandon
DANKE RAINER !!!!!
Klasse das Leute wie du hier on sind !!!!
Gruß Marco
Klasse das Leute wie du hier on sind !!!!
Gruß Marco