Userform Textbox Wert erhöhen

Forumthread: Userform Textbox Wert erhöhen
6 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Userform Textbox Wert erhöhen

Einzel

Hallo allezusammen,
habe eine userform mit textbox.
In der Textbox steht ein zahl. nun möchte ich diese zahl über spinbutton erhöhen bzw verkleinern.
Bis jetzt habe ich dieses Makro:

Private Sub SpinButton1_Change()
TextBox1.Text = TextBox1.Text +1
End Sub

Private Sub UserForm_Initialize()
With SpinButton1
.Min = 1
.Max = 10
End With
End Sub

Leider klappt dieses aber nicht.
Weis jemand was ich falsch gemacht habe?
Gruß
Stephan

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

AW: Userform Textbox Wert erhöhen

selli
AW: Userform Textbox Wert erhöhen

Martin
wert des spinbutton übernehmen

selli
AW: Userform Textbox Wert erhöhen

Einzel
AW: Userform Textbox Wert erhöhen

hary
AW: Userform Textbox Wert erhöhen

Einzel

AW: Userform Textbox Wert erhöhen

16.11.2010 10:30:38

selli

hallo stephan,
nimm mal statt .text .value

Private Sub SpinButton1_Change()
TextBox1.value = TextBox1.value +1
End Sub

gruß selli

AW: Userform Textbox Wert erhöhen

16.11.2010 10:31:13

Martin

Hallo Stephan,
ersetze das Change-Ereignis durch diese beiden Ereignisse:

Private Sub SpinButton1_SpinUp()
If IsNumeric(TextBox1) = True Then
if Textbox1  1 then TextBox1 = TextBox1 - 1
Else: TextBox1 = 1
End If
End Sub

Gruß,
Martin

wert des spinbutton übernehmen

16.11.2010 10:35:07

selli

hallo stephan

Private Sub SpinButton1_Change()
userform1.TextBox1.value = userform1.spinbutton1.value
End Sub

gruß selli

AW: Userform Textbox Wert erhöhen

16.11.2010 13:42:38

Einzel

klappt leider nur so halb.
Mit dem Code:

Private Sub SpinButton1_Change()
UserForm1.TextBox1.Value = UserForm1.SpinButton1.Value
End Sub

Private Sub SpinButton1_SpinUp()
TextBox1 = TextBox1 + 1
End Sub

Private Sub SpinButton1_SpinDown()
TextBox1 = TextBox1 - 1
End Sub

kann ich nun die Zahl in der Textbox erhöhen. ich möchte aber wenn ich eine Zahl selber reinschreibe diese erhöhen. Kann man das verstehen?
Gruß
Stephan

AW: Userform Textbox Wert erhöhen

16.11.2010 16:46:24

hary

Hallo Stephan
meinst Du so?


Option Explicit
Dim a
Private Sub SpinButton1_SpinUp()
If TextBox1 = "" Or Not IsNumeric(TextBox1) Then Exit Sub
If a  "" And IsNumeric(TextBox1) Then
TextBox1 = a + 1
a = ""
Else
TextBox1 = TextBox1 + 1
End If
End Sub
Private Sub SpinButton1_SpinDown()
If TextBox1 = "" Or Not IsNumeric(TextBox1) Then Exit Sub
If TextBox1 = "" Then Exit Sub
If a  "" And IsNumeric(TextBox1) Then
TextBox1 = a - 1
a = ""
Else
TextBox1 = TextBox1 - 1
End If
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
a = TextBox1 'allgemeine Variable ausgeben nach Eintrag
End Sub

gruss hary

AW: Userform Textbox Wert erhöhen

17.11.2010 14:29:50

Einzel

Ja genau so Danke.