Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
588to592
588to592
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Lagerbestand errechnen

Forumthread: Lagerbestand errechnen

Lagerbestand errechnen
23.03.2005 02:32:01
Michael
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
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Lagerbestand errechnen
23.03.2005 06:57:40
Herbert
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
Anzeige
AW: Lagerbestand errechnen
23.03.2005 15:05:03
Michael
Hallo Herbert,
absolut Spitze was Du "gezaubert" hast.
Vielen Dank dafür.
Michael
Erledigt (oT)
23.03.2005 16:43:06
xxx
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige