Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Friedrichroda /
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


...und ich gelobe Besserung...

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
Question Zeilen markieren, wenn FeldX ausgewählt ist o0Julia0o 20 271 20.03.2017, 12:59
Letzter Beitrag: o0Julia0o
  Zeile der aktiven Zelle farblich markieren... Jockel 19 194 19.03.2017, 18:33
Letzter Beitrag: RPP63
  Textboxinhalt as Integer ??? soldblub 6 104 16.03.2017, 13:41
Letzter Beitrag: soldblub
Exclamation Inhalte in Tabelle abrufen, um in Matrix Zellen zu markieren aurehlia 3 52 08.03.2017, 15:01
Letzter Beitrag: aurehlia
  Zellen markieren, wenn manuelle Eingabe erfolgt ist Fabian Mocean 4 123 01.03.2017, 20:35
Letzter Beitrag: Basisa
  Nach 5 selben Zahlenerfassungen 6. +< Erfassung löschen oder rot markieren possertf 9 249 13.01.2017, 17:52
Letzter Beitrag: Ego
  Zeile Farbig Markieren Juli88 7 215 09.01.2017, 15:16
Letzter Beitrag: steve1da
  Suchen und Markieren Arni49 21 837 30.12.2016, 19:50
Letzter Beitrag: Arni49
  Zeilen aus einer Tabelle per Zufall auswählen und markieren Jordan 4 314 14.11.2016, 19:46
Letzter Beitrag: Jordan
  Listboxeintrag finden und markieren Usedom 2 192 09.11.2016, 20:39
Letzter Beitrag: Usedom

Gehe zu:


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