Fester Wert automatisch abziehen

19/03/2010 - 16:24 von Marcel Seethaler | Report spam
Hallo NG

Ich habe folgendes Problem. In der Zelle A1 ist ein fester Wert (z.B. 7.00)
eingetragen. In der Zelle A3 wird ein variabler Wert (z.B. 25.20) manuell
eingegeben.
Jetzt will ich dass wenn in der Zelle A3 ein Wert eingegeben wird, von
dieser Zahl automatisch immer der Wert von Zelle A1 abgezogen wird. Hier ein
Beispiel:
A1 = 7.00
A3 = manuell eingegeben 25.20
Jetzt müsste in der Zelle A3 automatisch 18.20 stehen

Geht das überhaupt ? Vielen Dank für eure Hilfe.

Gruss M.Seethaler
 

Lesen sie die antworten

#1 Peter Schleif
19/03/2010 - 16:39 | Warnen spam
Marcel Seethaler schrieb am 19.Mrz.2010 16:24 Uhr:

A1 = 7.00
A3 = manuell eingegeben 25.20
Jetzt müsste in der Zelle A3 automatisch 18.20 stehen
Geht das überhaupt ? Vielen Dank für eure Hilfe.



Ja. Durch Überwachung der Zelle A3. Klicke mit der rechten Maustaste auf
das Tabellen-Register -> Code anzeigen. Dort kopierst Du untenstehenden
Code hinein.

Peter

Private Sub Worksheet_Change(ByVal Target As Range)

Set Target = Intersect(Target, [A3])
If Target Is Nothing Then Exit Sub

On Error GoTo ende
Application.EnableEvents = False

[A3] = [A3] - [A1]

ende:
Application.EnableEvents = True
If Err Then MsgBox Err.Number & " " & Err.Description
End Sub

Ähnliche fragen