Lagerbestand errechnen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
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

Beiträge aus den Excel-Beispielen zum Thema "Lagerbestand errechnen"