Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1472to1476
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
addieren von Zahlen
12.02.2016 15:05:28
Zahlen
Hallo Expertenteam,
Vorweg, Grundkenntnisse habe ich wenige in Programmierung von Makros, und auch das Recording Tool hilft mir wenig weiter. Mein Problem:
2 Worksheets: Lager & Lagereingang
Im Worksheet "Lager" steht folgendes:
A B C
1 Barcode Beschreibung Anzahl
2 A1234 aaaaaaa 5
3 A5678 bbbbbbb 1
4 A9012 ccccccc 7
Im Worksheet "Lagereingang":
Hier wird in Zelle A10 ein Barcode eingescannt. Bsp. A5678
Wenn dieser vorhanden ist, wir mir folgendes wiedergeben:
A C
Beschreibung Anzahl
bbbbbb 1
In Zelle C10 gebe ich manuell die Stückzahl der Ware ein welche angekommen ist. Bsp 8.
Nun soll über die Schaltfläche bei klick, im Worksheet "Lager" die Zeile gesucht werden wo A5678 steht und die neue Stückzahl zu der alten hinzugefügt werden.
Ergebnis: In Worksheet "Lager" verändert sich die Zelle C3 von 1 zu 9.
Ich hoffe dies war deutlich genug und ihr könnt mir entsprechend helfen.
Vielen lieben Dank.
Sandra

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: addieren von Zahlen
12.02.2016 16:12:49
Zahlen
Hallo Sandra,
In meinem Test habe ich neben der Zelle für die Eingabe der Anzahl die Formel eingegeben:
= verweis(a2;lager!a2:a100;zeile(a2:a100)
In meinem Beispiel steht der Verweis in Zelle Eingang C2.
In "Eingang" a2 steht der neue Barcode
Um den neuen Eingang zu addieren, ist ein event notwendig, dass ich im nächsten post beschreibe.

AW: addieren von Zahlen
12.02.2016 16:20:56
Zahlen
Mit alt-f11 geht es ins vbproject, dann auf die Tabelle "Eingang" klicken.
Dann das event worksheet_change durch Auswahl in den drop-down menus erzeugen.
In diesem event ist der code:
If target.address = "$c$3" then
MyRow = sheets("Eingang").cells(2, "c")
Sheets("Lager").cells(myrow, "C") = sheets("lager").cells(myrow, "c") + cells(2,"c")
End if
End sub
Botte prüfe die Bezüge, da mein Nachbau sicher nicht ganz passt.
Mfg
Anzeige

135 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige