Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Userform
BildScreenshot zu Userform Userform-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

aktive Textbox über Commandbutton ändern

Betrifft: aktive Textbox über Commandbutton ändern von: Christian
Geschrieben am: 10.10.2014 13:20:45

Hallo liebe Gemeinde,

folgendes Szenario:
Ich habe 50 aufgelistete Textboxen in einer Userform1.
In den Textboxen sind Zahlen von 1-10.

Zusätzlich gibt es zwei CommandButtons "+" & "-".

Wählt der Anweder eine textbox an, also klickt in die Textbox, soll durch den Klick auf "+" & "-" entweder eins hinzugefügt oder abgezogen werden.
Beim Hinzufügen soll die Zahl Grün werden, beim Abziehen rot.
Wenn eine andere textbox gewählt wird, oder die Eingabe beendet ist, soll die Zahl wieder schwarz werden.

Optional wäre noch wenn beim wieder erreichen des ursprünglichen Wertes die Zahl wieder Schwarz wird.

Bin sehr gespannt auf eure Vorschläge!

Gruß,

Christian

  

Betrifft: AW: aktive Textbox über Commandbutton ändern von: JoWE
Geschrieben am: 10.10.2014 13:32:00

Hallo Christian,

evtl. so?

Private Sub CommandButton1_Click()
    Me.TextBox1 = Me.TextBox1 * 1 + 1
    Me.TextBox1.ForeColor = RGB(0, 255, 0)
End Sub

Private Sub CommandButton2_Click()
    Me.TextBox1 = Me.TextBox1 * 1 - 1
    Me.TextBox1.ForeColor = RGB(0, 0, 0)
End Sub

Gruß Jochen


  

Betrifft: AW: aktive Textbox über Commandbutton ändern von: Christian
Geschrieben am: 10.10.2014 14:15:35

Hallo Jörg,

vielen Dank für deinen Input! Mein bisheriger Stand sieht deinem ähnlich aus.

Nur soll nicht Textbox1 angesprochen werden, sondern genau die Textbox die gerade aktiv ist.
Geanu an dieser Stelle komm ich alleine leider nicht weiter...


  

Betrifft: AW: aktive Textbox über Commandbutton ändern von: Ewald
Geschrieben am: 10.10.2014 14:22:59

Hallo,

wenn du auf den Button klickst ist keine Textbox aktiv, dann ist der Button Activecontrol.

du mußt also vorher den Textbox Namen in einer Variablen speichern und über diese dann in die richtige eintragen.

Gruß Ewald


  

Betrifft: AW: aktive Textbox über Commandbutton ändern von: Peter Feustel
Geschrieben am: 10.10.2014 14:22:55

Hallo Christian,

ich sehe Deine Mappe insbesondere Dein UserForm(ular) nicht, können also erstmal nur den Ratschlag geben, das Problem über ein Klassenmodul für Deine 50 TextBoxes zu lösen.

Gruß Peter


 

Beiträge aus den Excel-Beispielen zum Thema "aktive Textbox über Commandbutton ändern"