Clever-Excel-Forum

Hallo zusammen,
keine Ahnung was da falsch ist, aber es geht nicht. Da der Fehler meist davorsitzt, schaut doch mal was da falsch sein könnte. Vielleicht habt ihr ne Idee
ALSO
Ich habe eine Userform in welcher eine Listbox (LBox3) und eine Textbox TBox1
Das Script läuft los wenn ich die Textbox eingabe mit ENTER abschließe.
Folgendes soll passieren.
Der Wert der Textbox wird in die Listbox eingetragen (funzt)
DAnn soll der Focus wieder auf die Textbox gehen und der Inhalt entweder leer sein, oder koplett markiert werden.
Hier mein Code

Code:
Private Sub TBox1_AfterUpdate()

Dim A, B, C

If AdminBox = 3 Then

    LBox3.AddItem TBox1.Value

    With TBox1

        .SetFocus

        .SelStart = 0

        .SelLength = Len(.Text)

    End With

End If

End Sub

Was mach ich denn da falsch, denn weder ist der Cursor in der Textbox, noch das bereits eingegebene markiert

Schon mal ein dickes Danke im vorraus

Gruß
Klaus

Hallo Klaus,

nimm BeforeUpdate:

Code:
Private Sub TBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

  If AdminBox = 3 Then

    LBox3.AddItem TBox1.Value

    Cancel = True

    With TBox1

      .SelStart = 0

      .SelLength = Len(.Text)

    End With

  End If

End Sub

Gruß Uwe

Hallo Uwe,
Danke für Dein schnelles Feedback,
ABER
Sorry gleiches Ergebnis
Der focus ist nicht auszumachen
und auch die TBox ist nicht markiert

Gruß
klaus

Hallo,

wird die Listbox befüllt?

STOP - :96: STOP - :96: STOP - :96: STOP - :96:

Geht doch .... mein Fehler
Es scheint nur nicht zu funktionieren, wenn ich das Script schrittweise abarbeite

Danke danke danke

Gruß
KLaus

DeBabba

Kuwer

DeBabba

atilla

DeBabba