Herbers Excel-Forum - das Archiv

Lagerbestand errechnen

Bild

Betrifft: Lagerbestand errechnen
von: Michael

Geschrieben am: 23.03.2005 02:32:01
Hallo,
ich habe folgendes Problem:
Wenn etwas verkauft wird, soll der Lagerbestand im Blatt „Artikeldatei“ um die verkaufte Menge ruduziert werden. Es kann Natürlich auch zur Hilfe eine weitere Spalte „Verkauft“ eingefügt werden !
Wenn die verkaufte Menge höher ist, als der derzeitige Lagerbestand, soll eine Meldung kommen „Lagerbestand nicht ausreichend“
https://www.herber.de/bbs/user/20020.xls

Vielen Dank im voraus !!!!
Gruß
Micha
Bild

Betrifft: AW: Lagerbestand errechnen
von: Herbert H.

Geschrieben am: 23.03.2005 06:57:40
Morgn Micha,
ich hab dir den zweiten Teil auch noch gemacht...


Public Sub abbuchen()
Dim sh As Worksheet, shA As Worksheet
Dim i%, x%, lz%, lzR%
Set sh = Sheets("Rechnung")
Set shA = Sheets("Artikeldatei")
Application.ScreenUpdating = False
lz = shA.Cells(Rows.Count, 1).End(xlUp).Row
lzR = sh.Cells(Rows.Count, 2).End(xlUp).Row
For x = 25 To lzR
 For i = 4 To lz
  If sh.Cells(x, 2) = shA.Cells(i, 1) And _
     sh.Cells(x, 8) > shA.Cells(i, 3) Then
     MsgBox "Lagerbestand bei Artikel " & _
     shA.Cells(i, 2) & " nicht ausreichend !", 64, "Info"
  End If
   
  If sh.Cells(x, 2) = shA.Cells(i, 1) And _
     sh.Cells(x, 8) <= shA.Cells(i, 3) Then
     shA.Cells(i, 3) = shA.Cells(i, 3) - sh.Cells(x, 8)
     MsgBox "Artikel " & shA.Cells(i, 2) & _
              "wurde abgebucht !", 64, "Info"
  End If
 Next
Next
Application.ScreenUpdating = True
Set sh = Nothing
Set shA = Nothing
End Sub

     
Gruß Herbert
Bild

Betrifft: AW: Lagerbestand errechnen
von: Michael (loe)
Geschrieben am: 23.03.2005 15:05:03
Hallo Herbert,
absolut Spitze was Du "gezaubert" hast.
Vielen Dank dafür.
Michael
Bild

Betrifft: Erledigt (oT)
von: xxx
Geschrieben am: 23.03.2005 16:43:06
 Bild
Excel-Beispiele zum Thema "Lagerbestand errechnen"
Artikel im Lagerbestand austragen Anpassung des Lagerbestands bei Ein- und Ausgang
Portokosten aus einer Gewichts-/Gebietsmatrix errechnen Zeitdifferenz in Schulstunden (45 Minuten) errechnen
Schulnote anhand einer Punktetabelle errechnen Werte summieren, in erste freie Zeile eintragen, Differenz errechnen
Vorgegebenes Datum plus 33 1/3 Jahr errechnen Nachtstunden ermitteln und Lohn errechnen
Km/h errechnen