Zelle nach Eingabe wieder leer

Question

Moin,

ich habe da so eine Idee, aber keine Ahnung wie ich es umsetzen soll. Nachdem ich in einer Zelle eine Eingabe gemacht habe, soll sie wieder leer sein.
Zur besseren Erklärung:
In C3 steht die Anzahl z.B. 10 des Produkts was ich eingelagert habe.
In D3 gebe ich nun die Anzahl ein die ich entnehme z.B. 2.
Nachdem ich nun Enter drücke, soll in E3 die noch aktuell vorhandene Anzahl stehen und Zelle D3 wieder leer sein.

Die Berechnung an sich bekomme ich hin, nur eben nicht das die Zelle wieder leer ist.

Besten Dank im Voraus für Eure Hilfe!

Gruß
112

Answer 1

hi 112 ^^

ein beispiel .-)

gruss nighty

einzufuegen
alt+f11/projektexplorer/DeineTabelle

in diesem beispiel ist a2 die eingabezelle und b2 erfolgt die addierung

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False 'ereignissausschaltung um einen cirkelbezug zu verhindern
If Selection.Count < 2 Then 'abfrage auf beliebige mehrfach selectierungen
If Target.Column = 1 And Target.Row = 2 Then 'abfrage auf spalte A bzw dessen index 1 und zeile 2 bzw dessen index 2
Range("B2") = Range("B2") + Range("A2") 'addierung der werte
Range("A2").Clear 'loeschen der eingabezelle
End If
End If
Application.EnableEvents = True 'ereignisseinschaltung
End Sub

Answer 2

Hallo Notruf,

probier's mal mit diesem Makro

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Target.Column = 4 Then
Target.Offset(0, -1).Value = Target.Offset(0, -1).Value - Target.Value
Target.Value = ""
End If
Application.EnableEvents = True
End Sub

Gruss
Rainer

Answer 3

Hallo,.

wer zu spät kommt, den bestraft das Leben! Gorbatschow :-))

Gruss
Rainer

Answer 4

Danke Euch Beiden!
Habe mich für die Lösung von rainberg entschieden.

Wie immer, ich muß mich wundern was in Excel so geht und das Ihr es immer wieder sofort hinbekommt!

Gruß
112

Answer 5

Hallo Unbekannte(r),

falls Du den Eingabebereich noch einschränen möchtest.
Eingabe und Summe Link zur Datei

Gruß Hajo

Answer 6

Auch Dir Hajo besten Dank.

Gruß
Rainer