Lagerverwaltung zum 2.
20.01.2014 21:47:37
Sabrina
im Juni 2013 habt ihr mir zu diesem Thema schon toll geholfen. Nun benötige ich wieder eure Hilfe.
Wenn ich einen Artikel anlege, gebe ich den Lagerort und den Mindestbestand an.
Der gleiche Artikel ist auf mehreren Lagerorten verteilt. Hierzu wird dann beim Buchen automatisch meine Artikelliste erweitert.
Wenn der Artikel vom Lager ABC1 abgebucht wird und der Bestand ist dann Null, trägt Excel automisch diesen Artikel in die Bestellliste ein.
Würde ich nur einen Lagerort pro Artikel haben, wäre das ja auch in Ordnung.
Aber so möchte ich, dass Excel in die Artikelliste guckt und für DIESEN Artikel die Menge aller Lagerorte addiert und wenn auf allen Lägern der Bestand Null ist, DANN erst soll die Bestellliste gefüllt werden.
Hier ist ein Auszug aus dem VBA, ich hoffe, der reicht:
' Daten in Artikelliste verarbeiten/rechnen
Sheets("Artikelliste").Select
r = Me.ListBox1.List(Me.ListBox1.ListIndex, 1)
Anzahl = Cells(r, 7).Value 'IST-Bestand
Anzahl = Anzahl + Val(TextBox3.Value) 'Eingang
Anzahl = Anzahl - Val(TextBox4.Value) 'Ausgang
Cells(r, 7).Value = Anzahl
Sheets("Artikelliste").EnableAutoFilter = True
Application.ScreenUpdating = True
Cells(r, 2).Select
'Bestellliste füllen
Private Sub UserForm_Initialize()
Dim r As Integer
Dim x As Integer
Bestellliste.Caption = "Bestellliste - Lagerbuchhaltung " & Date & " " & Format(Time, " _
hh:mm") & " h"
Application.ScreenUpdating = False
Sheets("Artikelliste").Select
With Bestellliste
.ListBox1.ColumnCount = 5
.ListBox1.ColumnWidths = "32;80;96;90;100"
.ListBox1.Clear
x = 0
For r = 5 To 10000
If Cells(r, 2).Value = "" Then Exit For
If Cells(r, 7).Value Oh je, ich hoffe, ihr könnt etwas damit anfangen, denn die Datei kann ich nicht online stellen. Sorry.
Bin über jeden Tipp sehr dankbar.
Liebe Grüße
Sabrina