Supportnet / Forum / Tabellenkalkulation

Hallo erst mal alle. Ich möchte gerne folgendes in Excel lösen. In Spalte A ist der Eingang eines Produktes (Anzahl).In Spalte B Ausgang eines Produktes und in C hätte ich gerne den Totalbestand.Es sollte wenn ich in A erneut eine Anzahl eingebe den vorhandenen Wert hinzuzählen(4+3=7)Was ich bis jetzt zustande gebracht habe ist das es wohl zusammenzählt aber den Wert immer so abändert wie die Neue Eingabe ist bsp. 6 vorhanden 4 neu =10 gebe ich nun einen neuen Wert ein, zum Beispiel 2, erhalte ich 8.Buah... ich hoffe das ist nicht zu umständlich erklärt. Wäre Nett wenn mir jemand auf die Sprünge helfen könnte. Für etwelche Hilfe besten Dank im voraus. Daniel

Hallo Daniel,

das läßt sich nur mit VBA lösen, was nicht zu meinen Stärken gehört.
Ich weiss aber, dass zu diesem Thema hier im Excel-Bereich schon mal ANfragen waren. Der aufsummierte Wert wurde m.E. in einer Variablen gespeichert und um den neuen EIngabewert erhöht. Ich hoffe, du wirst bei der SUche fündig oder es opfert siche einer aus der VBA-Fraktion (oder es erinnert sich jemand an die genaue Fundstelle).

CU
want2cu

Hallo Daniel,

Ich könnte diese Lösung anbieten.
Das Makro wird in der Arbeitsmappe eingetragen und wird bei Doppelklick auf das betreffende Feld aktiviert.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim i As Integer

    i = InputBox("Welcher Lagermengenänderung möchten sie eintragen", "Lagerverwaltung")
    ActiveCell.Value = ActiveCell.Value + i
    
End Sub

Grüße
Tino

hi hydro :)

wie gewuenscht :)

gruss nighty

einzufuegen alt f11(vbeditor)/projektexplorer/DeineTabelle

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
On Error GoTo ende
Application.EnableEvents = False
If Target.Column = 1 Then Cells(Target.Row, Target.Column + 2) = Cells(Target.Row, Target.Column + 2) + Target.Value
If Target.Column = 2 Then Cells(Target.Row, Target.Column + 1) = Cells(Target.Row, Target.Column + 1) - Target.Value
ende:
Application.EnableEvents = True
End Sub

Hallo zusammen
ihr seid aber von der schnellen Truppe :-) Als erstes ist es mir mal ein Trost das es mit den landläufigen Excelformeln nicht zu funktionieren scheint (bin echt ins Grübeln gekommen). Nun stehe ich aber echt vor dem nächsten Berg weil ich mich mit VBA noch weniger auskenne als mit Excel. Ich werde aber mal Googeln und hoffe das ich in kürze mit einer Erfolgsmeldung aufwarten kann.Mir sind diese Variablen nicht so ganz klar und ob das auch funzt wenn die Werte die ich oben genannt habe auch in einer anderen Spalte sind zum Beispiel Spalte F oder so? Nun wie gesagt ich mach mich mal schlau. Bis dahin vielen Dank für die Unterstützung.
Daniel

Hallo,

also die Variante von nighty kannst du anpassen indem du die Spalten (Column) Nummern anpasst nicht 1 und 2 sonder für F z.B 6.
Und meine Variante geht in jeder Zelle, unterscheidet diese aber nicht.
War ja nur die schnelle Lösung

Fürs eintragen muss ich leider passen da hab ich gerade nicht die Zeit das alles zu erklären aber schau die mal hier um da gibts schon einige Threads in denen das getan wurde.
Der erste Tipp in den Editor gelangst du am schnellsten per ALT+F11

Grüße
Tino

Danke nochmals..... Habe deine Version (Tino) schon mal versucht. Zählt in jedem Feld das ich Doppelklicke zusammen, ich müsste aber auch Minus und ein Total haben. Die Version von nighty werd ich mal dieses Wochenende testen. Hab mir jetzt aber auch mal ein Buch bestellt in der Art VB für Dummis (wer möcht schon immer Unwissend sein).Ihr seid hier wirklich eine aufgeweckte Truppe. Werd mich sicher nochmals melden und über den Stand der Dinge berichten.
VIELEN Dank
Daniel

Hi hydro,

warum wendest du nicht die Funktion DATEN / MASKE an? Macht die Sache doch einfach.

Gruß G.

Hallo Hydro,

Ja so war das ja gemeint, minus geht wenn du ne negative Zahl eingibst :)

Als Buch kann ich "VBA mit EXCEL" von Markt+Technik von Bernd Held empfehlen.

Ist nicht so teur und hat mir total viel beigebracht, war echt skeptisch weil es immer viele schlechte "Anfängerbücher" gibt aber das ist O.K. Den Rest im Froum hier erfragt und ich bekomme schon recht viel hin. Als Hinweis vor 2 Wochen hatte ich noch keine Ahnung von VBA.
(und einfach mal im Forum schauen ich konnte schon ab und zu helfen) :)


Grüße
Tino

• Grafikkarte defekt ?
• Homepage aber wo ???
• problem beim bilder-einbinden
• Vorschaufenster wieder aktivieren - wie?
• wie kann man das kleine r mit dem kleinen v darüber auf einer website darstellen?