If IsNumeric(txtSoll_Widerst1.Text) = True Then
            If txtSoll_Widerst1.Text > 0 Then
                If chkSollwert1.Checked = True Then
 
 
 
                    SollProzent1 = txtProzent1.Text
                    SollOhm1 = txtSoll_Widerst1.Text
                    picWert_no_1.Visible = False
                    txtSoll_Widerst1.ReadOnly = True
                    txtProzent1.ReadOnly = True
                    lblSollwertRes1.Visible = True
                    lblResSollwert1.Visible = True
                    lblIstwertRes1.Visible = True
                    lblResIstwert1.Visible = True
                    picResistor1.Visible = True
 
                    lblResSollwert1.Text = Vergleichswert1
                    lblResIstwert1.Text = Mess1
 
                    Abweichung1 = (SollOhm1 / 100) * SollProzent1
 
                    If SollOhm1 >= Mess1 Then
                        Vergleichswert1 = SollOhm1 - Abweichung1
                        If Vergleichswert1 > Mess1 Then
                            picWert_Error1.Visible = True
                            picWert_OK1.Visible = False
                        ElseIf Vergleichswert1 <= Mess1 And Vergleichswert1 <= _
                          SollOhm1 Then
                            picWert_OK1.Visible = True
                            picWert_Error1.Visible = False
 
                        End If
                    End If
 
                    If SollOhm1 <= Mess1 Then
                        Vergleichswert1 = SollOhm1 + Abweichung1
                        If Mess1 > Vergleichswert1 Then
                            picWert_Error1.Visible = True
                            picWert_OK1.Visible = False
                        ElseIf Vergleichswert1 <= Mess1 And Vergleichswert1 _
                          > SollOhm1 Then
                            picWert_OK1.Visible = True
                            picWert_Error1.Visible = False
                        End If
                    End If
 
 
 
                ElseIf chkSollwert1.Checked = False Then
                    txtSoll_Widerst1.ReadOnly = False
                    txtProzent1.ReadOnly = False
                    picWert_no_1.Visible = True
                    picWert_Error1.Visible = False
                    picWert_OK1.Visible = False
                    lblSollwertRes1.Visible = False
                    lblResSollwert1.Visible = False
                    lblIstwertRes1.Visible = False
                    lblResIstwert1.Visible = False
                    picResistor1.Visible = False
                End If
            ElseIf txtSoll_Widerst1.Text = 0 Then
                chkSollwert1.Checked = False
 
            End If
        ElseIf IsNumeric(txtSoll_Widerst1.Text) = False Then
            chkSollwert1.Checked = False
        End If