Problemer med OptionButton
Hej experterJeg har et problem med OptionButton
er der en der kan se hvad jeg gør forkert
Private Sub CommandButton1_Click()
TextBox1.Value = Tal2 * 1000 / 3.14 / Tal1 * Tal4
TextBox2.Value = TextBox1.Value * Tal3 * Tal2 * Tal4
End Sub
Private Sub UserForm_Click()
Dim Tal1
Dim Tal2
Dim Tal3
Dim Tal4
If OptionButton1 = True Then
Tal1 = 25
Tal2 = 2
Else
If OptionButton2 = True Then
Tal1 = 32
Tal2 = 3
Else
If OptionButton3 = True Then
Tal1 = 42
Tal2 = 3
Else
'-----------------------------------------------
If OptionButton14 = True Then
Tal2 = 800
Tal3 = 0.2
Else
If OptionButton13 = True Then
Tal2 = 500
Tal3 = 0.4
Else
'------------------------------------------------
If OptionButton4 = True Then
Tal4 = 1
Else
If OptionButton5 = True Then
Tal4 = 1
Else
If OptionButton6 = True Then
Tal4 = 0.9
Else
If OptionButton7 = True Then
Tal4 = 0.9
Else
If OptionButton8 = True Then
Tal4 = 0.8
Else
If OptionButton9 = True Then
Tal4 = 0.8
Else
If OptionButton10 = True Then
Tal4 = 0.7
Else
If OptionButton11 = True Then
Tal4 = 0.6
Else
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub
mvh
mvhansen
