Option Explicit

Private Sub berechnung_click()

Dim pran As Double
Dim prae As Double
Dim prav As Double

Dim prnn As Double
Dim prne As Double
Dim prnv As Double

Dim marche_alt As Double
Dim marche_neu As Double

'Löschen der Fehlermeldung
        Label15 = " "

'Initialisieren der Variablen
        marche_alt = 0.9
        marche_neu = Val(txtmarche)

'Initialisierung der Variablen durch Textfeldeinträge
        pran = Val(txtPreisaltNBR)
        prae = Val(txtPreisaltEPDM)
        prav = Val(txtPreisaltVITON)

'Ueberprfuefung der Marche auf Plausibilität
        If (marche_neu = 0 Or marche_neu < 0) Then

            Label15 = "Marche muss grösser 0 sein"


        Else
'Berechnen der neuen Preise
            prnn = pran * marche_alt / marche_neu
            prne = prae * marche_alt / marche_neu
            prnv = prav * marche_alt / marche_neu
'Ausgabe der neuen Preise auf die unteren Textfelder
            txtnbrneu = prnn
            txtepdmneu = prne
            txtvitonneu = prnv

        End If


End Sub




Private Sub CommandButton1_Click()
'Durchführung der Berechnung
        Call berechnung_click

End Sub


Private Sub CommandButton2_Click()
' Zurücksetzen der Zelleninhalte
         txtnbrneu = 0
         txtepdmneu = 0
         txtvitonneu = 0
         'Wert setzen in einer Tabelle
         'Worksheets(1).Range("A50").Value = 3.14159
          
         txtPreisaltNBR = 0
         txtPreisaltEPDM = 0
         txtPreisaltVITON = 0
          
         txtmarche = 0
         Label15 = " "
 
End Sub

Private Sub CommandButton3_Click()
'Definition des Ende Buttons
        Unload Me
End Sub



Private Sub CommandButton4_Click()
'Uebernehmen der Werte aus der Tabelle und auslesen in die entsprechenden Textfelder
        txtPreisaltNBR = Val(Worksheets(1).Range("L14"))
        txtPreisaltEPDM = Val(Worksheets(1).Range("L15"))
        txtPreisaltVITON = Val(Worksheets(1).Range("L16"))

End Sub