'Berechnungs Menü!
Private Sub Text1_Change(Index As Integer)
 
  Dim EPreis As Long
  Dim GPreis As Long
 
  EPreis = CInt(Val(Replace(Text1(2), ",", ".")) * 100)
  GPreis = EPreis * Val(Text1(9).Text)
  lblGPreis.Caption = Format$(GPreis / 100, "0.00")
 
  BerechneSummen
 
  Dim EPreis1 As Long
  Dim GPreis1 As Long
  EPreis1 = CInt(Val(Replace(Text1(3), ",", ".")) * 100)
  GPreis1 = EPreis1 * Val(Text1(9).Text)
  lblGPreis1.Caption = Format$(GPreis1 / 100, "0.00")
 
  BerechneSummen1
 
End Sub
 
Private Sub BerechneSummen()
 
  Dim SummeNetto As Long
  Dim SummeMWSt As Long
  Dim SummeBrutto As Long
  Dim I As Integer
 
  SummeNetto = 0
  SummeNetto = SummeNetto + CInt(Val(Replace(lblGPreis, ",", ".")) * 100)
  SummeMWSt = CInt(SummeNetto / 100 * 16 + 0.5)
  SummeBrutto = SummeNetto + SummeMWSt
 
  lblSummeNetto.Caption = Format$(SummeNetto / 100, "0.00")
  lblSummeMWSt.Caption = Format$(SummeMWSt / 100, "0.00")
  lblSummeBrutto.Caption = Format$(SummeBrutto / 100, "0.00")
 
End Sub
 
Private Sub BerechneSummen1()
 
  Dim SummeNetto1 As Long
  Dim SummeMWSt1 As Long
  Dim SummeBrutto1 As Long
  Dim I As Integer
 
  SummeNetto1 = 0
  SummeNetto1 = SummeNetto1 + CInt(Val(Replace(lblGPreis1, ",", ".")) * 100)
  SummeMWSt1 = CInt(SummeNetto1 / 100 * 16 + 0.5)
  SummeBrutto1 = SummeNetto1 + SummeMWSt1
 
  lblSummeNetto1.Caption = Format$(SummeNetto1 / 100, "0.00")
  lblSummeMWSt1.Caption = Format$(SummeMWSt1 / 100, "0.00")
  lblSummeBrutto1.Caption = Format$(SummeBrutto1 / 100, "0.00")
 
End Sub