Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1292to1296
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
1292to1296
1292to1296
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

SetFocus auf CommandButton1

SetFocus auf CommandButton1
24.01.2013 14:31:33
Waltraudt
Hallo zusammen im Forum,
ich habe eine UserForm mit 2 TextBoxes und zwei CommandButton.
Beim Aufruf der UserForm wird der CommandButton1 deaktiviert.
Nachdem die 2. Textox ausgefüllt und per Tab verlassen wurde, wird der CommandButton1 wieder aktiviert.
Wie kann ich nach der Aktivierung des CommandButton1 auch den Focus direkt auf den CommandButton1 legen?
Wer kann mir helfen und den Codeschnipsel ggf. anpassen?
Danke und lG, Waltraudt
Private Sub UserForm_Activate()
CommandButton1.Enabled = False
TextBox1.SetFocus
End Sub


Private Sub TextBox2_AfterUpdate()
CommandButton1.Enabled = Len(TextBox1) And Len(TextBox2)
CommandButton1.SetFocus  'klappt so nicht!
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: SetFocus auf CommandButton1
25.01.2013 08:32:30
Nepumuk
Hallo,
das Event ist dazu nicht geeignet. Wenn du dir mal die Mühe machen würdest die Hilfe zu diesen Events zu lesen, dann wäre das auch klar.
Aus der Hilfe zu AfterUpdate:
Das AfterUpdate-Ereignis tritt vor dem Exit-Ereignis für das aktuelle Steuerelement ein.
Aus der Hilfe zu Exit:
Das Exit-Ereignis tritt ein, unmittelbar bevor der Fokus von einem Steuerelement auf ein anderes Steuerelement im gleichen Formular wechselt.
Du kannst, solange der Fokus an ein Control gebunden ist, diesen nicht auf ein anderes Control legen. Einzige Möglichkeit, im Enter-Event des einen Controls kannst du diesen auf ein anderes legen.
Beispiel:
Das Control in der Aktivierreihenfolge nach deiner Textbox2 ist Textbox3. Du willst aber, wenn Textbox1 und Textbox2 ausgefüllt wurden nicht auf Textbox3 sondern auf Commandbutton1 springen.
Option Explicit

Private mblmGotoCommandbutton1 As Boolean

Private Sub TextBox2_AfterUpdate()
    If Cbool(TextBox1.TextLength) And Cbool(TextBox2.TextLength) Then
        CommandButton1.Enabled = True
        mblmGotoCommandbutton1 = True
    End If
End Sub

Private Sub TextBox3_Enter()
    If mblmGotoCommandbutton1 Then
        mblmGotoCommandbutton1 = False
        CommandButton1.SetFocus
    End If
End Sub

Gruß
Nepumuk
Anzeige

34 Forumthreads zu ähnlichen Themen

Set Focus auf msoControlEdit?Position in SubMenü?
Andreas

Hallo Herber Fans,
ich habe ein Problem mit einer msoControlEdit (Textfeld). Ich habe mir in einen Commandbar ein Textfeld eingesetzt, aus dem ich auch den Wert auslesen kann. Wenn dieser Wert eine Zahl ist, ist alles in Ordnung. Aber ich möchte den Wert aus der Textbox auch über IF is num...
18.08.2008 15:46:00
Thread-ID: 1002640
9 Beiträge
Anzeige
TextBox.SetFocus
Frank

Hallo Zusammen und 'nen schönen Guten Abend oder Guter Nacht!
Brauche wieder einmal Rat!
Eine UF wird aus einem Tabellenblatt mit Daten befüllt. Können immer unterschiedlich viele sein, so dass ich mittels folgendem Code:
Private Sub UserForm_Activate() Dim i As Integer For i = 1...
16.06.2009 23:57:39
Thread-ID: 1082091
5 Beiträge
SetFocus funktioniert nur einmal
Uwe

Hallo, ich bin's nochmal.Hab da noch so'n Phänomen:Also ich lade eine Userform per UserformName.show vbmodeless. Vorher setze ich den Mauszeiger per "UserformName.TextboxName.SetFocus" auf eine bestimmte Textbox.
Das Ganze funktioniert aber seltsamerweise nur einmal.
Schließe ich die User...
30.04.2002 12:04:56
Thread-ID: 117412
3 Beiträge
Anzeige
VBA: textbox afterupdate format Datum
Bernd

Hallo zusammen,
irgendwie bekomme ich das nicht richtig hin, vielleicht kann mir jemand behilflich sein und den Code berichtigen.
Hier mein Code, der nicht funktioniert:
Private Sub TextBox5_AfterUpdate() 'TextBox5 = format(CDbl(TextBox5), "TT.MM.JJJJ") End Sub Vielen Dank im...
03.06.2013 19:44:47
Thread-ID: 1316131
3 Beiträge
TextBox.SetFocus
Frank

Hallo Zusammen!
Auf einer UF befinden sich mehrere TextBoxen, welche unterschiedliche Namen haben, also nicht fortlaufend nummeriert sind. Beim Klick auf eine ListBox werden immer unterschiedlich viele TextBoxen gefüllt. Ich möchte nun gern, dass erkannt wird welch die erste leere TextBox i...
14.04.2016 16:54:17
Thread-ID: 1488074
6 Beiträge
TextBox SetFocus
Thomas

Guten Morgen,
mal wieder ein kleines Problem.
Ich habe ein Userform (MA_Neu), welches ich über einen CommandButton aufrufe.
Private Sub CommandButton223_Click() MA_Neu.Show MA_Neu.TextBox1.SetFocus End Sub SetFocus sollte mir eigentlich den Cursor ins erste Textfeld (TextBox1) setz...
31.08.2017 09:14:26
Thread-ID: 1577684
5 Beiträge
VBA: Function in Userform Textbox
Bernd

Hallo zusammen,
Komme bei nachfolgendem Problem nicht weiter und bräuchte Eure Hilfe.
Also bei Verlassen derTextbox1 werden (siehe Code) über VLOOKUP die Werte die in die Textboxen eingelesen. D.h. ich suche folgenden Code sinngemäß: Nehme das Kürzel aus Textbox7 und steuere damit die F...
13.10.2017 09:15:44
Thread-ID: 1585661
8 Beiträge
VBA: Array von Textboxen mit Zellwerten befüllen
Textboxen

Hallo zusammen,
ich möchte gerne folgendes erreichen: Aufgrund des 255 Zeichenlimits für Textboxen/-felder, möchte ich - im vorliegenden Fall 4 - mehrere Textboxen mit dem Inhalt bestimmter Zellen befüllen.
Exemplarisch für eine einzelne Box sieht mein Code wie folgt aus: Sub FillTextBo...
14.08.2018 10:04:50
Thread-ID: 1639266
4 Beiträge

Links zu Excel-Dialogen

CommandButton TextBox

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
2
4
2
3
2
5
4
7
3
14
4
8
4
1
3
1
6
1
6
5
3
7
10
2