Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1184to1188
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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
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.

Links zu Excel-Dialogen

SpinButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige