Bestand zu und abbuchen

Question

Hallo an alle,
Vielen Dank an alle die mir schon das letzte mal so super geholfen haben. Jetzt hab ich mal wieder ein Problem.

Ich habe eine Excel Datei mit 2 Tabellenblättern
Tabellenblatt 1 heißt -Front- und Tabllenblatt 2 heißt -Artikel-

Im Tabellenblatt Artikel ist eine Liste mit folgenden Spalten
Artikelnummer; Artikelbezeichnung; Merkmal;Bestand1;Bestand2;Bestand3;Bestand4;Bestand5;Bestand6 ..... bis Bestand 30
Insgesamt habe ich 10 Artikel von denen ich die Artikelnummer, die Bezeichnung, das Merkmale und den Bestand1 in die Liste schon übertragen habe.

Im Tabellenblatt Front gebe die Artikelnummer in C4 ein so erschein in E4:
die Artikelbezeichnung und in E5 das Merkmal. in C10 erscheint der Bestand1. Dies geschieht mit Sverweis

Jetzt habe ich diesen Artikel gezählt und es sind weniger geworden daher trage ich den neuen Bestand des Artikels in
E10 ein. Dieser neue Bestand soll jetzt im Tabellenblatt Artikel unter Bestand2 geschrieben werden. Wenn ich jetzt diesen Artikel nochmal aufrufe möcht ich natürlich das unter C10 der Bestand2 vom Tablellenblatt Artikel steht. Wenn es diesmal wieder weniger geworden ist trage ich diesen Bestand wieder in E10 ein der dann wieder im Tablellenblatt Artikel in Bestand3 geschrieben wird. usw.

Mit = und Sverweis kann da nicht mehr verwenden da ich ja
10 verschiedene Artikel habe.

Ich weiss das klingt etwas verwirrend - ich hoffe es kann mir trotzdem jemand helfen.

Vielen vielen Dank -

Mira

Answer 1

Hallo Mira,

anbei die Formel für C10

=BEREICH.VERSCHIEBEN(Artikel!A1;VERGLEICH(Front!C4;Artikel!A:A;0)-1;ANZAHL(INDIREKT("Artikel!"&VERGLEICH(C4;Artikel!A:A;0)&":"&VERGLEICH(C4;Artikel!A:A;0)))+1)

Gruß
Rainer

Answer 2

Hallo Rainer, vielen Dank für deine Hilfe.
Leider funktioniert die Formel nicht so wie ich mir das
vorstelle.
Die Formel gibt nur den aktuellen Bestand in Front C10 wieder
schreibt aber in Artikel den neuen Bestand von E10 nicht in Bestand2 usw.

Vielleicht habe ich das auch viel zu verwirrend erklärt. Ich versuche es mal mit einem einfachem Beispiel:

Im Tabellenblatt -Front- gebe ich in Zelle C4 die Artikelnr. 0001 ein. Daraufhin erscheint in Zelle E4 die Artikelbezeichnung
-Holzschrauben- und in Zelle E5 das Artikelmerkmal - Box Nr.5 -
In C10 steht nun der Aktuelle Bestand dieses Artikels - 200 Stk -
[b][b]Diese Daten holt sich das Tabellenblatt -Front- vom Tabellenblatt -Artikel-
Tabellenblatt Artikel ist eine Liste die Aufgeteilt ist in
Artikelnr, Artikelbezeichnung,Merkmal, Bestand1, Bestand2, Bestand3, Bestand4, Bestand,5 usw...[/b][/b]

Jetzt möchte ich in Tabellenblatt -Front- den Bestand des oben genannten Artikels verändern. Dafür gebe ich in Zelle E10 den neuen Bestand ein - 220 Stk - Dieser Bestand soll jetzt in Tabellenblatt - Artikel- in Bestand2 des Artikels 0001 übertragen werden.

Wenn ich den Artikel 0001 jetzt in Tabellenblatt -Front- wieder aufrufe dann sollte jetzt in C10 der Bestand vom Tabellenblatt Artikel stehen - 220 Stk. Jetzt gebe ich in Zelle E10 wieder einen neuen Bestand ein - 240 Stk. - der jetzt in Tabellenblatt Artikel in Bestand3 geschrieben werden soll.

Bei erneutem aufrufen des Artikels soll jetzt in C10 natürlich der
neue Bestand nämlich 240 stehen usw

Dieser ganze Prozess soll für die Aritikel 0001- 0010 und eventuell auch mehr funktionieren.

Irgentwie ist das jetzt wieder zu lang geworden. Kann es leider aber nicht anders erklären. Hoffe du kannst trotzdem was damit anfangen.

Nochmal vielen Dank

Gruß Mira

Answer 3

Hallo Mira,

ich hatte schon eine Testdatei entsprechend Deiner Infos (so wie ich sie verstanden hatte) nachgebaut.
Eine zweite werde ich nicht nachbauen.

Wenn Du kannst/willst lade selbst eine Beispieldatei hoch, dann werde ich versuchen Dir weiter zu helfen. Ansonsten kann ich das leider nicht.

Gruß
Rainer

Answer 4

Hallo Rainer,

jetzt habe ich die Datei hochgeladen.

http://www.file-upload.net/download-1456805/Bestand.xls.html

LG Mira

Answer 5

Hallo Mira,

das geht dann nur mit Makro.

Habe Dir folgendes Makro geschrieben, welche Du mit dem eingefügten Button starten kannst.

Option Explicit

Private Sub CommandButton1_Click()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim intArt As Integer, intNeu As Integer, intZeile As Integer, intSpalte As Integer
Set ws1 = Worksheets("Front"): Set ws2 = Worksheets("Artikel")
intArt = Cells(4, 3).Value: intNeu = ws1.Cells(10, 5).Value
intZeile = WorksheetFunction.Match(intArt, ws2.Range("A:A"), 0)
intSpalte = ws2.Range("A" & intZeile & ":Z" & intZeile).Find("*", searchdirection:=xlPrevious).Column + 1
ws2.Cells(intZeile, intSpalte).Value = intNeu
ws1.Cells(10, 5).ClearContents
End Sub

www.file-upload.net/download-1457142/re_Bestand.xls.html

Gruß
Rainer

Answer 6

Super,das klappt.
Vielen, Vielen Dank

Mira