Metrodominon
Bekanntes Mitglied
Habe da ein problem bei mir kommt der oben genannt fehler.
was stimmt bei mir nicht?
es geht um die zweiten(rot) zeile da scheint er sich ins unendliche zu rechnen sobald ich eine eingabe mache, aber warum?
Sub addnum(ByRef a As String)
If TextBox1.Text = 0 Then
TextBox1.Text = a
Else
TextBox1.Text = TextBox1.Text & a
End If
If stat = 1 Then
TextBox1.Text = a
stat = 0
End If
End Sub
wäre nett wenn ich hilfestellung bekommen könnte,
gruß,
Metrodominon
was stimmt bei mir nicht?
es geht um die zweiten(rot) zeile da scheint er sich ins unendliche zu rechnen sobald ich eine eingabe mache, aber warum?
Sub addnum(ByRef a As String)
If TextBox1.Text = 0 Then
TextBox1.Text = a
Else
TextBox1.Text = TextBox1.Text & a
End If
If stat = 1 Then
TextBox1.Text = a
stat = 0
End If
End Sub
wäre nett wenn ich hilfestellung bekommen könnte,
gruß,
Metrodominon