Code:
Private Sub Best_Click()If (UserForm.ChkDeuSch = True Xor txtDeuSch <> "") And _
(ChkEngSch = True Xor txtEngSch <> "") And _
(ChkSpac = True Xor txtSpac <> "") And _
(ChkRat = True Xor txtRat <> "") Then 'Wenn alle Felder ausgefuellt sind dann, sonst nicht alle Informationen angegeben
If txtDeuSch <> "" Then 'Wenn ein Text eingegeben wurde dann
Deusch = IsNumeric(txtDeuSch.Value) 'Wenn der eingegebene Text eine Zahl ist dann
If Deusch = True Then
Deutsch = txtDeuSch.Value
Else
MsgBox "Es wurde keine Zahl eingegeben!"
End If
End If
If txtEngSch <> "" Then
EngSch = IsNumeric(txtEngSch.Value)
If EngSch = True Then
Englisch = txtEngSch.Value
Else
MsgBox "Es wurde keine Zahl eingegeben!"
End If
End If
If txtSpac <> "" Then
Spac = IsNumeric(txtSpac.Value)
If Spac = True Then
Spacing = txtSpac.Value
Else
MsgBox "Es wurde keine Zahl eingegeben!"
End If
End If
If txtRat <> "" Then
Rat = IsNumeric(txtRat.Value)
If Rat = True Then
Ratio = txtRat.Value
Else
MsgBox "Es wurde keine Zahl eingegeben!"
End If
End If
If ChkDeuSch = True Then 'Wenn die Checkbox aktiviert ist dann
Deutsch = 3.5
End If
If ChkEngSch = True Then
Englisch = 2.5
End If
If ChkSpac = True Then
Spacing = 0
End If
If ChkRat = True Then
Ratio = 100
End If
Else
MsgBox "Es wurden nicht alle Informationen angegeben!"
End If
End Sub
Private Sub Canc_Click()
End
End Sub
Private Sub ChkDeuSch_Click()
If ChkDeuSch.Value = True Then 'Wenn die Checkbox aktiv ist wird das Textfeld geloescht und unsichtbar
txtDeuSch.Locked = True
txtDeuSch.Text = ""
txtDeuSch.Visible = False
Else
txtDeuSch.Locked = False
txtDeuSch.Visible = True
End If
End Sub
Private Sub ChkEngSch_Click()
If ChkEngSch.Value = True Then 'Wenn die Checkbox aktiv ist wird das Textfeld geloescht und unsichtbar
txtEngSch.Locked = True
txtEngSch.Text = ""
txtEngSch.Visible = False
Else
txtEngSch.Locked = False
txtEngSch.Visible = True
End If
End Sub
Private Sub ChkRat_Click()
If ChkRat.Value = True Then 'Wenn die Checkbox aktiv ist wird das Textfeld geloescht und unsichtbar
txtRat.Locked = True
txtRat.Text = ""
txtRat.Visible = False
Else
txtRat.Locked = False
txtRat.Visible = True
End If
End Sub
Private Sub ChkSpac_Click()
If ChkSpac.Value = True Then 'Wenn die Checkbox aktiv ist wird das Textfeld geloescht und unsichtbar
txtSpac.Locked = True
txtSpac.Text = ""
txtSpac.Visible = False
Else
txtSpac.Locked = False
txtSpac.Visible = True
End If
End Sub
Private Sub GraSta_Click()
ChkDeuSch = True
ChkEngSch = True
ChkRat = True
ChkSpac = True
End Sub
Private Sub txtDeuSch_Change()
CheckUserInputs
End Sub
Private Sub txtEngSch_Change()
CheckUserInputs
End Sub
Private Sub txtRat_Change()
CheckUserInputs
End Sub
Private Sub txtSpac_Change()
CheckUserInputs
End Sub
Sub CheckUserInputs()
End Sub