online 1
gast (50)

/ Forum / Tabellenkalkulation

TabellenkalkulationTabellenkalkulation

Fragevon juwogi vom 02.01.2019, 14:04 Options

Excel: Frage "Bestand"

Hallo,
ich habe folgende Excel-Tabelle:

http://img41.imagevenue.com/img.php?image=43015_excel_frage_123_322lo.jpg

wenn ich jetzt in d2 bzw. e2 ne zahl eingebe, wird diese bei c2 hinzuaddiert bzw. subtrahiert

das habe ich mit einem code gelöst, den ich freundlicherweise in diesem forum bekam

der code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$D$2" And Target.Address <> "$E$2" Then Exit Sub
Application.EnableEvents = False
Select Case Target.Address
Case "$D$2"
Range("c2") = Range("c2") + Target
Case "$E$2"
Range("c2") = Range("c2") - Target
End Select
Application.EnableEvents = True
End Sub



jetzt würde ich das ganze aber gerne auf die gesamte tabelle ausweiten, dass wenn ich zB in zelle A10 die Artikelnummer 123 eingebe, bei apfel 1 zugang gebucht wird

weiß da jemand was?

thx im vorraus^^
  • Zitat:
    Admininfo: Führ bitte einen Thread nicht fort indem du einen Zweiten eröffnest, und vermeide Mehrfachanfragen. Die Datenbank wird es dir danken. Siehe FAQ 2.


  • Antwort schreiben

    Antwort 1 von Hajo_Zi vom 02.01.2019, 14:45 Options

    Hallo Namensloser,

    Option Explicit

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    Application.EnableEvents = False
    If Target.Column = 4 Then
    Target.Offset(0, -1) = Target.Offset(0, -1) + Target
    ElseIf Target.Column = 5 Then
    Target.Offset(0, -2) = Target.Offset(0, -2) - Target
    End If
    Application.EnableEvents = True

    End Sub

    Gruß Hajo

    Ähnliche Themen

    Warenbestand zurückzählen
    JKF  15.01.2007 - 87 Hits - 4 Antworten

    Problem mit do-while in C
    mrt181  12.09.2007 - 19 Hits - 5 Antworten

    sverweis mit vba
    Kalmi  15.02.2008 - 197 Hits - 4 Antworten

    Excel
    excelniete  14.05.2008 - 36 Hits - 4 Antworten

    Hinweis

    Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..

    Neue Einträge

    Version: supportware 1.9.150 / 10.06.2022, Startzeit:Thu Jan 8 21:07:44 2026