Herbers Excel-Forum - das Archiv

VBA-Code zur Lagerbestandsanpassung

Bild

Betrifft: VBA-Code zur Lagerbestandsanpassung
von: Micha

Geschrieben am: 05.04.2005 20:29:22
Hallo guten Abend,
nachdem ich hier schon so toll geholfen wurde, kann mir jemand villeicht den folgenden Code mit anpassen helfen.
In "Maske" steht eine Rechnung und in "Artikeldatei" Artikel.
In Maske " Spalte H steht die Menge.So nun habe ich den unteren Teil mit der Nachproduktion schon selber probiert. Ich möchte das die Meldung per MsGBox nicht kommt wenn ich auf die Makroschaltfläche klicke, sondern direkt bei der Eingabe der Menge in Maske Spalte H !
So, dann soll noch folgendes hinzu: Wenn der Lagerbestand in "Artikeldatei" Spalte C 0 ist, dann Fehlermeldung: Der Lagerbestand ist 0 ! Die Meldung soll auch direkt bei der Eingabe kommen. Bitte per Makro und nicht über Gültigkeit, wenn möglich !
Public
Sub abbuchen()
Dim sh As Worksheet, shA As Worksheet
Dim i%, x%, lz%, lzR%
Set sh = Sheets("Maske")
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 = 17 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
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
If sh.Cells(x, 2) = shA.Cells(i, 1) And _
sh.Cells(x, 8) <= 20 Then
MsgBox "Artikel  " & shA.Cells(i, 2) & _
" bitte Nachproduktion!", 64, "Info"
End If
Next
Next
Application.ScreenUpdating = True
Set sh = Nothing
Set shA = Nothing
End Sub


Vielen Dank
Micha
Bild

Betrifft: AW: VBA-Code zur Lagerbestandsanpassung
von: Tobias Marx
Geschrieben am: 06.04.2005 09:54:44
Servus!
Mit ein paar kleinen Aenderungen musst du den Code in Sub Workbook_Change() reinmachen, dann fuehrt er das Makro aus, sobald irgendwelche Aenderungen am Sheet vorgenommen werden, sprich eine Eingabe im Blatt erfolgt.
Gruss

Tobias
Bild

Betrifft: AW: VBA-Code zur Lagerbestandsanpassung
von: Michael_loe
Geschrieben am: 06.04.2005 10:14:25
Hallo
vielen Dank erstmal. Wäre nett wenn Du den Code entsprechend anpassen könntest, da ich wenifg Ahnung von VBA habe.

Besten Dank.
Michael_loe
Bild

Betrifft: AW: VBA-Code zur Lagerbestandsanpassung
von: Tobias Marx
Geschrieben am: 06.04.2005 10:19:06
Servus!
Dann waere es nett, wenn du mir deine Beispieldatei mal hochladen wuerdest :)

Gruss

Tobias
Bild

Betrifft: AW: VBA-Code zur Lagerbestandsanpassung
von: Michael_loe

Geschrieben am: 06.04.2005 11:42:08
Hallo Tobias,
bitte schick mir mal kurz eine Mail, damit ich Dir diese dann per Antwort zumailen kann, ist nämlich ca. 1 MB.
mloegering@imail.de
Gruß loe
 Bild
Excel-Beispiele zum Thema "VBA-Code zur Lagerbestandsanpassung"
Für ein VBE-Projekt mit VBA-Code ein Paßwort festlegen UserForm mit ComboBoxes durch VBA-Code erstellen
ComboBoxes per VBA-Code in Tabellenblatt erzeugen VBA-Code auf Schaltflächen-Klick auskommentieren
VBA-Code als Zellkommentar anzeigen Aktive Arbeitsmappe ohne VBA-Code und Button speichern