Deppugfehler, Typen unverträglich
17.02.2004 20:40:42
Heinz
Was mach ich bei diesem Code falsch.
Ich habe eine Userform erstellt in der Artikel, der Benutzername, Eingang, Ausgabe und die Stückzahl eingetragen werden kann.
Hinter der Userform wird für ok folgender Code benutzt.
Private Sub cmdOK_Click()
Dim iRow As Integer
With wksLager
If optAusgabe.Value = True Then
.Cells(cboItems.ListIndex + 2, 3).Value = .Cells(cboItems.ListIndex + 2, 3).Value - CInt(txtPcs.Value)
ElseIf optRueckgabe.Value = True Then
.Cells(cboItems.ListIndex + 2, 3).Value = .Cells(cboItems.ListIndex + 2, 3).Value + CInt(txtPcs.Value)
Else
MsgBox "Es muss unbedingt gewählt werden, ob es sich um einen Eingang" & _
" oder Ausgang handelt." & Chr(13) & _
" Und bitte auch unbedingt die Stückzahl festlegen !!!", vbCritical, "Achtung !!!"
Exit Sub
End If
End With
With wksBewegung
iRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(iRow, 1).Value = cboItems.Value
.Cells(iRow, 2).Value = Worksheets("Lager").Cells(cboItems.ListIndex + 2, 2).Value
.Cells(iRow, 3).Value = CInt(txtPcs.Text)
.Cells(iRow, 4).Value = txtUserName.Value
.Cells(iRow, 5).Value = Now
If optAusgabe.Value = True Then
.Cells(iRow, 6).Value = "Ausgabe"
Else
.Cells(iRow, 6).Value = "Rückgabe"
End If
End With
Unload Me
End Sub
Funktioniert auch alles super. Daten werden auch alle übernommen. Nur einen Haken hat das Ganze. Vergißt man die Stückzahl vor dem ok einzutragen, bekomme ich ständig Deppugfehler (Typen unverträglich).
Fehlerhaft wird mir die erste Zeile nach "If optAusgabe.Value = True Then"
angezeigt.
Woran liegt das oder wie kann ich das abfangen, dass ich statt diesem Fehler noch ein Aufforderung zum Eintragen der Stückzahl bekomme. Für die Wahl Ausgang Eingang habe ich das ja schon.
Danke Gruß Jens