Alle UserFormen werden nicht eingetragen
08.10.2006 17:15:32
Heinz
Habe untern Code von Herby bekommen.
Der mir den Datenbestand aus der Userform in das Tab.Blatt "Lagerbestand" einträgt
Folgende Userformen werden zwar berechnet aber nicht eingetragen.
'txtAbProd - txtAbMatNr
'txtSchProd - txtSchMatNr
Die anderen 3 Userformen werden korrekt eingetragen.
Weiss jemand woran das liegt ?
Danke & Gruss, Heinz
' Daten für Lagerbestand eintragen
Private Sub cmdEintragen_Click()
Call DATEN_eintragen
Dim iRow%
Dim i As Long
'MsgBox "Hier beginnt die Abfragerei ! "
With Sheets("Lagerbestand")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row
'MsgBox "Letzte Zeile in Spalte A: " & iRow
For i = 2 To iRow
' txtAbProd - txtAbMatNr
If InStr(1, .Cells(i, 1).Value, UserForm1.txtAbMatNr, vbTextCompare) > 0 Then
If .Cells(i, 2).Value - Val(UserForm1.txtAbProd.Value) < 0 Then
MsgBox "Achtung ! Bei der Material-Nr. " & UserForm1.txtAbMatNr & " gibt es einen negativen Bestand !" & Chr(10) & "Dieser beläuft sich auf " & .Cells(i, 2).Value - Val(UserForm1.txtAbProd.Value) & " Einheiten "
Else
.Cells(i, 2).Value = .Cells(i, 2).Value - Val(UserForm1.txtAbProd.Value)
End If
End If
' txtPPProd - txtPPMatNr
If InStr(1, .Cells(i, 1).Value, UserForm1.txtPPMatNr, vbTextCompare) > 0 Then
If .Cells(i, 2).Value = .Cells(i, 2).Value - Val(UserForm1.txtPPProd.Value) < 0 Then
MsgBox "Achtung ! Bei der Material-Nr. " & UserForm1.txtPPMatNr & " gibt es einen negativen Bestand !" & Chr(10) & "Dieser beläuft sich auf " & .Cells(i, 2).Value - Val(UserForm1.txtPPProd.Value) & " Einheiten "
Else
.Cells(i, 2).Value = .Cells(i, 2).Value - Val(UserForm1.txtPPProd.Value)
End If
End If
'txtBoProd - txtBoMatNr
If InStr(1, .Cells(i, 1).Value, UserForm1.txtBoMatNr, vbTextCompare) > 0 Then
If .Cells(i, 2).Value = .Cells(i, 2).Value - Val(UserForm1.txtBoProd.Value) < 0 Then
MsgBox "Achtung ! Bei der Material-Nr. " & UserForm1.txtBoMatNr & " gibt es einen negativen Bestand !" & Chr(10) & "Dieser beläuft sich auf " & .Cells(i, 2).Value - Val(UserForm1.txtBoProd.Value) & " Einheiten "
Else
.Cells(i, 2).Value = .Cells(i, 2).Value - Val(UserForm1.txtBoProd.Value)
End If
End If
'txtSchProd - txtSchMatNr
If InStr(1, .Cells(i, 1).Value, UserForm1.txtSchMatNr, vbTextCompare) > 0 Then
If .Cells(i, 2).Value = .Cells(i, 2).Value - Val(UserForm1.txtSchProd.Value) < 0 Then
MsgBox "Achtung ! Bei der Material-Nr. " & UserForm1.txtSchMatNr & " gibt es einen negativen Bestand !" & Chr(10) & "Dieser beläuft sich auf " & .Cells(i, 2).Value - Val(UserForm1.txtSchProd.Value) & " Einheiten "
.Cells(i, 2).Value = .Cells(i, 2).Value - Val(UserForm1.txtSchProd.Value)
Else
End If
End If
'txtPaProd - txtPaMatNr
If InStr(1, .Cells(i, 1).Value, UserForm1.txtPaMatNr, vbTextCompare) > 0 Then
If .Cells(i, 2).Value = .Cells(i, 2).Value - Val(UserForm1.txtPaProd.Value) < 0 Then
MsgBox "Achtung ! Bei der Material-Nr. " & UserForm1.txtPaMatNr & " gibt es einen negativen Bestand !" & Chr(10) & "Dieser beläuft sich auf " & .Cells(i, 2).Value - Val(UserForm1.txtPaProd.Value) & " Einheiten "
Else
.Cells(i, 2).Value = .Cells(i, 2).Value - Val(UserForm1.txtPaProd.Value)
End If
End If
Next i
End With
End Sub
Anzeige