Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1184to1188
1184to1188
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Userform Textbox Wert erhöhen

Forumthread: Userform Textbox Wert erhöhen

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
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Userform Textbox Wert erhöhen
16.11.2010 09: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 09: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
Anzeige
wert des spinbutton übernehmen
16.11.2010 09: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 12: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
Anzeige
AW: Userform Textbox Wert erhöhen
16.11.2010 15: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
Anzeige
AW: Userform Textbox Wert erhöhen
17.11.2010 13:29:50
Einzel
Ja genau so Danke.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige