Lagerverwaltung - Liste wenn Mindesbestand unterschritten
11.12.2023 12:57:35
hoodihoo
als VBA-Einsteiger habe ich mir nach Vorlage eine Lagerverwaltung gebaut.
In der Liste der Produkte gibt es neben dem Bestand auch einen Mindestbestand. Nun würde ich gerne eine Liste exportieren mit allen Artikeln, bei denen der Mindestbestand unterschritten wurde.
Ich kann zwar schon alle Artikel in einer Excelliste exportieren, bekomme es aber leider nicht hin diesen Code für meine Anliegen anzupassen.
Das wäre der Code dafür:
Sub Export()
Application.ScreenUpdating = False
ActiveSheet.ListObjects(1).Range.Copy
Dim wbNew As Workbook
Set wbNew = Workbooks.Add
wbNew.Worksheets(1).Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
Wie kann ich ihn umschreiben, damit nur noch Artikel angezeigt werden, bei denen der Bestand weniger oder gleich dem Mindestbestand ist?
Kein "if" oder "when" hat funktioniert.
Mindestbestand = "MinBestand" , Spalte H
Bestand = "Bestand", Spalte L
Ich bedanke mich für alle Mühen!
Beste Grüße,
hoodihoo