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"