division durch null
26.03.2009 09:11:22
Hans
Habe einen Code, aber es kommt immer die Fehlermeldung 11 Division durch Null. Dabei sollte dies doch mit dem if abgedeckt sein oder?
Wie muss ich das machen?
Private Sub Label61_Click()
If CLng(Label54) = CLng(Label55) = 0 Then
Label61.Caption = 0
Else
Label61.Caption = 100 / (CLng(Label54) + CLng(Label55)) * CLng(Label54)
End If
End Sub
Gruss Hans