Tipps & Tricks 26.05.2003, 12:45 Uhr

Eingang fortlaufend zum Lagerbestand addieren

Ich habe eine Excel-Tabelle mit einem Feld Lagerbestand F2 und ein Feld Eingang G2. Wie muss die Formel lauten, damit der Eingang G2 beim Lagerbestand F2 immer hinzuaddiert wird?
Um den neuen Lagerbestand nach einem Eingang zu berechnen, benötigen Sie eigentlich ein weiteres Feld wenn Sie nicht immer die Formel in F2 ändern wollen. Die Formel in H2 würde dann ganz einfach "=F2+G2" lauten.
Eine weitere Lösung wäre mit einem Makro realisierbar. Das Makro berechnet die Summe von Lagerbestand und Eingang und fügt das Ergebnis in die Zelle für den Lagerbestand ein. Der Eingang wird auf 0 zurückgesetzt.
Um es noch einfacher zu gestalten (jedoch auch fehleranfälliger), könnten Sie es so einrichten, dass das Makro bei einem Doppelklick auf die Zelle G1 (EINGANG) automatisch ausgeführt wird. Dazu doppelklicken Sie Projektexplorer vom VBA Editor direkt die entsprechende Tabelle
und wählen dann aus den Listen im Code-Fenster links "Worksheet" und rechts "BeforeDoubleClick" aus. Dann müssen Sie nur noch den Code dazwischen ergänzen.
Nun können Sie ganz einfach die entsprechenden Eingänge vermerken
und dann auf die Zelle G1 doppelklicken um den Lagerbestand zu aktualisieren
----------------------------------------------
Makros zum kopieren:
----------------------------------------------
Sub LagerNeu()
Dim S As Integer
[F2].Select
S = ActiveCell.Value + ActiveCell.Offset(0, 1).Value
ActiveCell.Value = S
ActiveCell.Offset(0, 1).Value = 0
End Sub
----------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal _
Target As Range, Cancel As Boolean)
If Target.Address(0, 0) = "G1" Then
Call LagerNeu
End If
End Sub
----------------------------------------------



Kommentare
Es sind keine Kommentare vorhanden.