Hallo Reinhard,
Mist, wie zu erwarten ist der Laufzeitfehler wieder da.
Laufzeitfehler ‚13‘ Typen unverträglich.
'Diese Zeile in der Prozedur TextBoxen_Rechnen Gelb
tbWareneingangSumme.Text = CDbl(tbWareneingangEingabe.Text) + CDbl(tbWareneingangAktuell.Text)
Gruß Skalett!
Private Sub cmdRechnen\_Click()
Call TextBoxen\_rechnen
cmdRechnen.Enabled = CBool(Len(tbWareneingangEingabe) \> 0 And Len(tbAusgangEingabe) \> 0 And Len(tbZurückAktuell) \> 0)
cmdÜbertragen.Locked = False
End Sub
Private Sub tbWareneingangEingabe\_Change()
cmdRechnen.Enabled = CBool(Len(tbWareneingangEingabe) \> 0 And Len(tbAusgangEingabe) \> 0 And Len(tbZurückAktuell) \> 0)
If IsNumeric(tbWareneingangEingabe) = False Then
MsgBox "Bitte nur Zahlen eingeben"
tbWareneingangEingabe.Value = ""
End If
End Sub
Private Sub tbAusgangEingabe\_Change()
cmdRechnen.Enabled = CBool(Len(tbWareneingangEingabe) \> 0 And Len(tbAusgangEingabe) \> 0 And Len(tbZurückAktuell) \> 0)
If IsNumeric(tbAusgangEingabe) = False Then
MsgBox "Bitte nur Zahlen eingeben"
tbAusgangEingabe.Value = ""
End If
End Sub
Private Sub TextBoxen\_rechnen()
If IsNumeric(tbWareneingangAktuell.Text) Then
tbWareneingangSumme.Text = CDbl(tbWareneingangEingabe.Text) + CDbl(tbWareneingangAktuell.Text)
End If
If IsNumeric(tbAusgangAktuell.Text) Then
tbAusgangSumme.Text = CDbl(tbAusgangAktuell.Text) + CDbl(tbAusgangEingabe.Text)
End If
If IsNumeric(tbZurückAktuell.Text) Then
tbZurückSumme.Text = CDbl(tbZurückAktuell.Text)
End If
If IsNumeric(tbWareneingangSumme.Text) Then
tbLagerSumme.Text = CDbl(tbWareneingangSumme.Text) - CDbl(tbAusgangSumme.Text) + CDbl(tbZurückSumme.Text)
End If
End Sub