Anzeige
Archiv - Navigation
372to376
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
372to376
372to376
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Textfeldinhalt markieren bei Enter

Textfeldinhalt markieren bei Enter
28.01.2004 22:19:46
Michael
Hallo am späten Abend,
Wenn ich ein Textfeld in einem Userform per TAB-Taste aktiviere, wird der bisherige Inhalt markiert.
Wenn ich das Textfeld mit der Maus ansteuere, funktioniert das nicht. Mit dem Ereignis "MouseUp" und dem Code Sendkeys {END}+{HOME} geht das auch.
Leider kann ich dann nicht mehr wie üblich mit einem nochmaligen Klick eine bestimmte Stelle im Textfeldeintrag anwählen, weil immer alles markiert wird.
Das "Enter"-Ereignis tritt beim Mausklick offensichtlich nicht ein.
Weiß jemand Rat, wie ich das gleiche Verhalten wie beim Hingehen per TAB erreichen kann?
Danke!

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Textfeldinhalt markieren bei Enter
28.01.2004 22:25:37
Horst
Wenn du links neben den Text klickst, wird alles markiert. Dazu muss
die Eigenschaft SelectionMargin auf True stehen.
Horst
AW: Textfeldinhalt markieren bei Enter
28.01.2004 22:31:54
Michael
Hallo Horst,
vielen Dank für die prompte Antwort.
Leider bringe ich meine Anwender nicht dazu, immer schön links anzuklicken!
Gibt es keine andere Möglichkeit?
AW: Textfeldinhalt markieren bei Enter
28.01.2004 22:38:38
Horst
Das ist aber in anderen Windows- Anwendungen auch nicht anders.
Schau dir mal den anderen Vorschlag an.
Horst
AW: Textfeldinhalt markieren bei Enter
28.01.2004 22:28:41
Josef Ehrensberger
Hallo Michael!
Probier mal das.


Option Explicit
Public first As Boolean
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
first = False
End Sub
Private Sub TextBox1_MouseDown(ByVal Button As IntegerByVal Shift As IntegerByVal As SingleByVal As Single)
If Not first Then
With TextBox1
.SelStart = 0
.SelLength = Len(TextBox1)
End With
first = True
Else
first = False
End If
End Sub

     Code eingefügt mit Syntaxhighlighter 2.5

Gruß Sepp
Anzeige
AW: Textfeldinhalt markieren bei Enter
28.01.2004 22:42:49
Michael
Vielen Dank Josef!
Das ist die Superlösung!
Danke für die Rückmeldung! o.T.
28.01.2004 22:44:16
Josef Ehrensberger
/

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige