Entnahme aus Lager
30.01.2005 09:15:13
Georg
Habe ein Lagerprogramm, das einwandfrei mit ganzen Zahlen funktioniert und bisher mit folgendem Makro arbeitet. Nun ist es aber Notwendig, auch mit Kommazahlen zu rechnen; für die Eingabe gehts natürlich, aber bei der Entnahme siehe unten gehts nur mit ganzen Zahlen.
Bitte um Hilfe.
Menge = wks.Cells(10, 4)
men = 0 '--Mengenzähler
With Sheets("Lager")
anz = 10 '--Anzeigezeile
'-----LRow (letzte Reihe wird berechnet)------
LRow = .Cells(Rows.Count, 1).End(xlUp).Row
Mengenrechner:
If men >= Menge Then GoTo Ende
For i = 2 To LRow
If .Cells(i, 1) = wks.Cells(10, 1) And .Cells(i, 4) > 0 Then _
.Cells(i, 4) = .Cells(i, 4) - 1: _
wks.Cells(anz, 8) = wks.Cells(anz, 8) + 1: wks.Cells(anz, 9) = .Cells(i, 3): _
wks.Cells(10, 10) = wks.Cells(10, 1): boFnd = True: _
men = men + 1: GoTo Mengenrechner
If .Cells(i, 1) = wks.Cells(10, 1) And .Cells(i, 4) = 0 Then _
wks2.Rows(i).Delete Shift:=xlUp: _
anz = anz + 1: _
boFnd = False: _
GoTo Mengenrechner
'Exit For
Next i
Ende:
'--Entnahme komplett zusammenzählen und anzeigen--
For i = 10 To anz
erg = erg + wks.Cells(i, 8)
Next i
wks.Cells(anz + 1, 8) = "Gesamt " & erg
Reinigen '--der Lagerliste
Application.ScreenUpdating = True
If boFnd = True Then
MsgBox "es wurde entnommen"
wks.Select
End If
If Not boFnd Then MsgBox "Keine, " & (Chr(13)) & "oder zuwenig lagernd!"
End With
Grüsse Georg.