Private Sub MultiPage_Berechnung_Change()
Select Case MultiPage_Berechnung.SelectedItem.Index
Case Is = 0
TxBx_EWjeEFH.Value = TxBx_EL_EWjeEFH.Value
TxBx_NumEFH.Value = TxBx_AnzEFH.Value
TxBx_NumMFH.Value = TxBx_AnzMFH.Value
Case Is = 2
TxBx_EL_EWjeEFH.Value = TxBx_EWjeEFH.Value
TxBx_AnzEFH.Value = TxBx_NumEFH.Value
TxBx_AnzMFH.Value = TxBx_NumMFH.Value
End Select
End Sub