|
Hallo Forum-User,
Ich hoffe ihr koennt mir helfen. Ich bin ein Vba Neuling und moechte gerne ein kleines Lagerprogramm schreiben. Habe dafuer auch schon fleissig rechachiert und hier im Forum Inspiration gefunden.
Ich moechte gerne, wenn mein Inventar eine Mindestmenge erreicht, dass die Bestellnummern untereinander angezeigt werden. Dazu habe ich bisher mein Inventar minus meiner Mindestmenge in einer extra Zeile anzeigen lassen und mit einer <=0 Bedingung gearbeitet.
Bei Benutzung des Buttons wird erst aktuelle Inventar berechnet und anschliessend soll dann fuer das Inventar das unter oder gleich der Mindesmenge ist die Bestellnummer als String untereinander ausgegeben werden.
Ich hoffe ich habe das vernuenftig erklaert und ihr koennt mir helfen.
Vielen Dank im voraus und mit freundlichen Gruessen
Thorben
Sub Button3_Click()
Dim a, b, s, k, i As Integer
Dim memory As String
a = Worksheets("Pick Sheet").Cells(8, 8)
On Error GoTo ende
b = InputBox("Please, enter Number")
s = a + b
Worksheets("Connector Lookup").Cells(Worksheets("Pick Sheet").Cells(30, 4), 10) = s
// Von hier abwaerts
For i = 2 To 2452
If Worksheets("Connector Lockup").Range("M" & i).Value <= 0 Then
memory = Worksheets("Connector Lockup").Range("N" & i).Value
End If
Worksheets("Pick Sheet").Select
Worksheets("Pick Sheet").Range("J" & k).Value = memory
k = k + 1
Next i
ende:
End Sub
|