Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


VBA Textboxinhalt markieren
#1
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
to top
#2
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
to top
#3
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
to top
#4
Hallo,

wird die Listbox befüllt?
Gruß Atilla

Excel 2007
to top
#5
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
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Nach 5 selben Zahlenerfassungen 6. +< Erfassung löschen oder rot markieren possertf 9 167 13.01.2017, 17:52
Letzter Beitrag: Ego
  Zeile Farbig Markieren Juli88 7 128 09.01.2017, 15:16
Letzter Beitrag: steve1da
  Suchen und Markieren Arni49 21 575 30.12.2016, 19:50
Letzter Beitrag: Arni49
  Zeilen aus einer Tabelle per Zufall auswählen und markieren Jordan 4 222 14.11.2016, 19:46
Letzter Beitrag: Jordan
  Listboxeintrag finden und markieren Usedom 2 153 09.11.2016, 20:39
Letzter Beitrag: Usedom
  Markieren von Zellen vana 11 332 28.10.2016, 15:28
Letzter Beitrag: schauan
  Zeile markieren Jürschen175 17 824 28.09.2016, 19:19
Letzter Beitrag: schauan
  Zweite und folgende Dupletten markieren Lasse95 9 432 28.09.2016, 05:59
Letzter Beitrag: Rabe
  Markieren und Formatieren von Flächen JEW-T 2 171 14.09.2016, 17:50
Letzter Beitrag: Fennek
  Zeilen bei Gruppenwechsel farblich markieren Albundy 3 433 04.08.2016, 08:20
Letzter Beitrag: Albundy

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste