Supportnet / Forum / Tabellenkalkulation

Hallo, ich hab ein kleines Problem mit Excel: Wenn ich in einer Liste 10 Kugelschreiber habe und dann noch 3 kaufe, möchte ich gerne beim "check-in" nur "kugelschreiber" und die anzahl der gekaufen kullis eingeben, und excel soll zum bestand "10" 3 hinzuaddieren. geht das? thx schonmal im vorraus ^^ [*][quote][sup][i]Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Siehe [url=https://supportnet.de/groupfaqs/3][u]FAQ2.[/u][/url][/i][/sup][/quote]

Hi,

angenommen, dein Chek-In findet in Zelle A2 statt und deine Summe soll in B2 erscheinen, dann schreibe folgenden Code in das Codefenster der entsprechenden Tabelle

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$A$2" Then Exit Sub
    Range("B2") = Range("B2") + Target
End Sub

Bis später,
Karin

danke erstmal für den tipp, aber das klappt nich
(der erwartet immer, dass die erste zeile "beendet" wird..)

Hi,

was meinst du mit "erwartet, dass die erste Zeile beendet" wird? Aus deiner Beschreibung kann man leider überhaupt nichts entnehmen. Welcher Fehler trittt auf, was wird dabei genau angezeigt und welche Codezeile wird dabei markiert? Bei mir funktioniert der Code völlig problemlos, andernfalls hätte ich ihn nicht gepostet. Aus der Beschreibung deines gesamten Problems wird man leider auch nicht so 100%ig schlau, deshalb habe ich den Code so geschrieben, wie ich dein Problem verstanden habe. Hast du den Code in das Codefenster der entsprechenden Tabelle geschrieben? Verwendest du vielleicht eine andere Zelle? - Das alles gecht auch aus deiner neuen Bescheribung nicht eindeutig hervor.

Bis später,
Karin

aaarrgghh sry ich bin so dumm^^

da ich irgendwie aus firefox heraus nicht kopieren kann, musste ich den code abtippen, und dabei hab ich wohl nen paar tippfehler gemacht^^

also es klappt bestens, vielen dank!

ach ja eins noch:

wie sähe es denn aus, wenn ich z.B. in zelle A5 den "abgang", also den "Check-out" haben möchte?

ich habe versucht, den code nach

Private Sub worksheet_change(ByVal target As Range)
If target.Address <> "$A$5" Then Exit Sub
Range("B2") = Range("B2") - target
End Sub

hin zu ändern, aber ich bekomme dann immer die meldung "FEhler beim kompilieren: mehrdeutiger name: worksheet_change"

whatz wrong?

Hi,

in einer Tabelle gibt es immer nur ein Worksheet_Change Ereignis, du musst also beide Bedingungen dort reinschreiben

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

Bis später,
Karin

thx, aber das klappt auch nicht wirklcih, cih bekomme immer folgenden fehler:

"unzulässige verwendung der eigenschaft" (bezogen auf das "+ target", wobei die erste zeile gelb unterlegt ist..

ach *Z* shconwieder mein fehler!
habs jetzt an nen amderen pc kopiert, muss wohl irgendwie wieder nen tippfehler gewesen sein... echt klasse wenn man aus firefox nicht kopieren kann ;)

aber nochma fettes thx!!

• seriennummer verwalten
• Warenbestand zurückzählen
• excel zählen von Bestand pro Teilenummer
• Excel Mengen berechnen
• Excel