Klick auf Schaltfläche => plus eins in einem Textfeld?

[toby.s]

Hallo

hab mal ne Frage:
Wie kann ich das anstellen, dass wenn ich auf eine Schaltfläche klicke, es in einem Textfeld 1 dazuzählt??

Danke jetzt schon.
PS: Bin Anfänger

 

[Dario Linsky]

erstmal legst du natürlich ein ereignis für einen button-click an, indem du einen doppelclick auf die schaltfläche machst.
da schreibst du dann den code rein. erst überprüfst du, ob in dem textfeld überhaupt eine zahl steht, weil sonst ein fehler beim addieren verursacht wird. wenn in dem textfeld eine zahl steht, dann weist du dem textfeld einfach einen neuen wert zu.
das ganze sieht als code so aus:

Private Sub Command1_Click()
If IsNumeric(Text1.Text) Then 'steht im textfeld eine zahl?
	Text1.Text = CStr(Val(Text1.Text) + 1) 'wenn ja, dann erhöhst du den wert um eins
	'mit val() wandelst du eine zeichenkette in eine zahl um 
	'und mit cstr() wandelst du die zahl wieder in eine zeichenkette um.
Else
	'wenn keine zahl im textfeld steht, gibst du einen hinweis aus.
	MsgBox "Bitte geben Sie nur Zahlen ein.", vbExclamation, "Achtung"
End If
End Sub

 

[toby.s]

Danke

Herzlichen Dank
Es funktioniert perfekt