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
  Zeilen aus einer Tabelle per Zufall auswählen und markieren Jordan 4 95 14.11.2016, 19:46
Letzter Beitrag: Jordan
  Listboxeintrag finden und markieren Usedom 2 52 09.11.2016, 20:39
Letzter Beitrag: Usedom
  Zeile markieren Jürschen175 17 416 28.09.2016, 19:19
Letzter Beitrag: schauan
  Zweite und folgende Dupletten markieren Lasse95 9 267 28.09.2016, 05:59
Letzter Beitrag: Rabe
  Markieren und Formatieren von Flächen JEW-T 2 107 14.09.2016, 17:50
Letzter Beitrag: Fennek
  Zeilen bei Gruppenwechsel farblich markieren Albundy 3 286 04.08.2016, 08:20
Letzter Beitrag: Albundy
  Zeile teilweise grau markieren bei Eingabe eines bestimmten Wertes Woelfi22 3 157 19.07.2016, 08:36
Letzter Beitrag: chris-ka
  Duplikate markieren GermanDream 25 1.389 10.05.2016, 21:49
Letzter Beitrag: GermanDream
Smile Abgelaufenes Datum automatisch Farblich markieren fabsta 2 396 05.05.2016, 15:31
Letzter Beitrag: Wilfried Höttl
  Großen Bereich ohne Überschriften markieren Leni99 8 635 06.04.2016, 19:52
Letzter Beitrag: GMG-CC

Gehe zu:


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