Private Sub cmdLos_Click()
TachSchön,
bin dabei eine Userform zur Datenauswertung von Bauteilen zu entwickeln und beschäftige mich aktuell mit dem ErrorHandling. Nun gibt es zwei Felder in denen der User Zahlenwerte (vorher über Keypress eingeschränkt) eingeben kann. Leider öffnet er den ErrorHandler 8 nicht, obwohl im txbStd nichts drinsteht. Komisch daran ist, dass die Methode von txbBKT (im Prinzip identisches Feld) hier nicht funktioniert hat und ich daher schon etwas anderes versucht habe.
Dim p As Integer
Dim b, h As Double
p = lstPAnz.Value
b = txbBKT.Value
h = txbStd.Value
If txbBKT.Value = "" Then
GoTo ErrorHandler9
End If
'funktioniert
h = CDbl(txbStd)
If h = 0 Then
GoTo ErrorHandler8
'funktioniert nich
End If