Textfeld LostFocus ToolTipText

Hallo Community
Ich habe zwei Fragen:
1) In einem Textfeld soll ein Datum eingegeben werden (siehe vereinfachter Anhang, in meiner Word-Datei hat es mehrere Textfelder). Beim Verlassen des Textfeldes, z. B. wenn der Benutzer ins nächste Textfeld klickt, wird in LostFocus mit IsDate überprüft, ob die Eingabe ein Datum ist. Wenn nicht, soll der gesamte Inhalt markiert werden und der Focus wieder zurück ins Textfeld gesetzt werden, so dass der Benutzer korrigieren kann. Das klappt aber nicht, der Focus verschiebt sich zum nächsten, angeklickten Textfeld.
2) Meines Wissens kann diesem Textfeld kein "ToolTipText" beigefügt werden (z. B. bei MouseMove). Stimmt das? Als Ersatz, habe ich gelesen, könnte man z. B. ein Label erstellen, das Visible wird, sobald MouseMove aufgerufen wird (dort z. B. mit Sleep die Anzeigedauer festlegen). Bei mir hat aber ein solches Label (Bezeichnung, ActiveX-Steuerelement) keine Visible-Eigenschaft, so dass ich es im MouseMove Visible machen könnte.
Was für Möglichkeiten gibt es, dem Benutzer einen Hilfstext anzuzeigen, z. B. wenn die Maus über das Textfeld zieht (vielleicht mit einer halben Sekunde Verzögerung vor dem Erscheinen, damit der Bildschirm bei Mausbewegungen über verschiedene Textfelder nicht allzu nervös wird)?
Besten Dank
Martin
https://www.herber.de/bbs/user/117300.txt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub TextBox1_LostFocus() Dim RetVal As Integer If Not IsDate(TextBox1.Text) Then Beep RetVal = MsgBox("Bitte das Datum im Format dd.mm.yyyy eingeben.", vbOKOnly, "Falsches _ Datumsformat") Call Application.OnTime(When:=Now, Name:=CodeName & ".prcFocusReset") End If End Sub Friend Sub prcFocusReset() With TextBox1 .Select .SelStart = 0 .SelLength = Len(TextBox1.Text) End With End Sub

Hallo Mullit
Deine Idee Funktioniert super. Danke! Da ich allerdings mehrere Textfelder habe, die eine solche Prozedur prcFocusReset aufrufen müssen, möchte ich diese global erreichbar deklarieren, z. B. in einem Modul.
mit dem Aufruf:
Call Application.OnTime(Now, " 'prcFocusReset " & Me.TxtBoxBeginnDerReiseDatum & " '")
der im LostFocus der entsprechenden TextBox steht, und die Prozedur selber so aussieht (oder mit "Friend" im allgemeinen Teil deklariert):

Public Sub prcFocusReset(ByVal Textfeld As TextBox)
With Textfeld
.Select
.SelStart = 0
.SelLength = Len(Textfeld)
End With
End Sub

funktionier es nicht. Es wird nicht einmal in die Prozedur gesprungen. Kannst du mir weiterhelfen?
Danke auch für den Tipp mit dem ToolTipText. Ich werde mir das noch genauer anschauen.
Gruss Martin

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textfeld LostFocus ToolTipText

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

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread