lagertool
07.09.2020 12:52:09
Henrique
ich habe die dankbare Aufgabe bekoomen ein Tool zu programmieren das den aktuellen bestand einer unserer Lager zeigen soll. dabei stoße ich aktuell auf ein Problem ich bekomme es nicht hin das bei einem Artikel das bereits im Lager ist die Stückzahl über die userform dazu addiert wird :/ ich pack euch mal den Code mit rein vilt bin ich auf einem Holzweg... Konstruktive Kritik ist gerne willkommen ich beschäftige mich erst seit 3 Wochen mit vba :)
Public Sub StoreFormDataTransfer()
Dim letztesFeld As Long
Dim letztesFeld2 As Long
Dim letztesFeld3 As Long
Dim letztesFeld4 As Long
Dim letztesFeld5 As Long
Dim letztesFeld7 As Long
Dim x As Integer
Dim y As String
Dim z As Integer
Dim i As Integer
Dim temp As Integer
z = Datenblatt.UsedRange.Rows.Count
x = StoreForm.TextBoxArtNr
y = StoreForm.TextBoxLagOrt
If Datenblatt.Cells(i, 1).Value = x And Cells(i, 5).Text = y Then
Datenblatt.Cells(i, 6) = Cells(i, 6) + StoreForm.TextBoxAnzahl
For i = 8 To z
Datenblatt.Cells(i, 1) = StoreForm.TextBoxArtNr
Datenblatt.Cells(i, 2) = StoreForm.ComboBoxBez
Datenblatt.Cells(i, 3) = StoreForm.ComboBoxKat
Datenblatt.Cells(i, 5) = StoreForm.TextBoxLagOrt
Next i
Else
With Datenblatt
letztesFeld = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(letztesFeld + 1, 2).Value = StoreForm.ComboBoxBez.Value
letztesFeld2 = .Cells(.Rows.Count, 3).End(xlUp).Row
.Cells(letztesFeld2 + 1, 3).Value = StoreForm.ComboBoxHer.Value
letztesFeld3 = .Cells(.Rows.Count, 4).End(xlUp).Row
.Cells(letztesFeld3 + 1, 4).Value = StoreForm.ComboBoxKat.Value
letztesFeld4 = .Cells(.Rows.Count, 5).End(xlUp).Row
.Cells(letztesFeld + 1, 5).Value = StoreForm.TextBoxLagOrt.Value
letztesFeld5 = .Cells(.Rows.Count, 6).End(xlUp).Row
.Cells(letztesFeld + 1, 6).Value = StoreForm.TextBoxAnzahl.Value
letztesFeld7 = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(letztesFeld + 1, 1).Value = StoreForm.TextBoxArtNr.Value
End With
End If
Unload StoreForm