Hi Leute
Ich hab grad ein unerklärliches Problem bei meiner VBA Programmierung.
Die If-Überprüfung von IsNumeric() gibt mir immer false zurück, selbst wenn man eine Zahl eingegeben hat. Was mache ich falsch?
Oder muss ich etwas Spezielles beim Formular einstellen, damits geht?
Unten habe ich ein Screenshot, wie das Ganze aussieht.
Code
Private Sub cmdadd_Click()
' Werte aufsummieren
Dim anzahl As Integer
anzahl = Range("B6").Value
If IsNumeric(txtsum.Text) = False Then
MsgBox ("Sie haben keine Nummer eingegeben. Bitte korrigieren.")
Else
txtsum.Text = Val(txtsum.Text) + Val(txtworth.Text)
anzahl = anzahl + 1
' neue Summe und Anzahl in die Zellen auf der Tabelle ausgeben
Dim durchschnitt As Double
durchschnitt = txtsum.Text / anzahl
Range("B9").Value = txtsum.Text
Range("B6").Value = anzahl
Range("B12").Value = Round(durchschnitt, 2)
End If
End Sub
Alles anzeigen
Screenshot
[Blockierte Grafik: http://hid.white-tiger.ch/03fc7d07f36d76a8e6e772de2d58b8a7.jpg]