Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
304to308
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
304to308
304to308
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Focus abfragen

Focus abfragen
06.09.2003 17:41:12
Andrea
Hallo zusammen,
bekomme folgendes Problem nicht in den Griff: Ich habe auf einer UserForm 4 TextBoxen. Wenn der Anwender auf einen Button klickt soll er explicit zu der jeweiligen TextBox eine Information erhalten. Wie schaffe ich es nach dem Klick-Ereignis zu erkennen in welcher TextBox der Cursor steht damit ich die entsprechende Information absetzen kann?
Danke für jeden Hinweis.
Gruß Andrea

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Focus abfragen
06.09.2003 17:59:51
Hajo_Zi
Hallo Andrwa

ich habe ich mal meine schlauen Bücher befragt und einiges getestet aber ich habe keine Aktion gefunden um den Fokus abzufragen. Benutze doch das Ereignis DblClick der Textbox zum Aufruf der Hilfe. Oder benutze die Eigenschaft "ControlTipText" der Textbox um dem Benutzer Informationen zu geben.


Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.
Anzeige
AW: Focus abfragen
06.09.2003 18:11:13
Andrea
Hallo Hajo,
zunächst erstmal vielen Dank für die Hinweise. ControlTipText habe ich im Einsatz, die Information ist aber zu lang und wird am Bildschirmrand abgeschnitten. Ich weiß nicht ob man sie in zwei oder mehr Zeilen darstellen kann. DblClick habe ich bisher noch nicht kennengelernt. Werde mich daher sofort damit beschäftigen.
Tschüss bis dann.
Gruß Andrea
AW: Focus abfragen
06.09.2003 18:12:30
K.Rola
Hallo,

du kannst in einem Klassenmodul beim Enter- Ereignis eine Objekt-
variable setzen:

Private Sub TextBox_Enter()
Set ac = ActiveControl
End Sub


und dann im Klick- Ereignis des Button:


Private Sub CommandButton1_Click()
MsgBox ac.Name
End Sub


Bei nur 4 Textboxen kannst du das natürlich auch für jede Textbox
einzeln machen:


Private Sub TextBox1_Enter()
Set ac = ActiveControl
End Sub


Der richtige Weg ist das aber nicht, nutz das Mousedown- Ereignis
oder WhatThis- Button.

Gruß K.Rola
Anzeige
AW: Focus abfragen
06.09.2003 18:35:50
GraFri
Hallo

Noch ein Lösungsansatz



Option Explicit

Dim indexTextBox(1 To 4) As Boolean


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    indexTextBox(1) = True:    indexTextBox(2) = False
    indexTextBox(3) = False:   indexTextBox(4) = False
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    indexTextBox(1) = False:    indexTextBox(2) = True
    indexTextBox(3) = False:   indexTextBox(42) = False
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    indexTextBox(1) = False:    indexTextBox(2) = False
    indexTextBox(3) = True:   indexTextBox(4) = False
End Sub

Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    indexTextBox(1) = False:    indexTextBox(2) = False
    indexTextBox(3) = False:   indexTextBox(4) = True
End Sub

'Button
Private Sub cmdTextBoxHilfe_Click()
    If indexTextBox(1) = True Then MsgBox "Hilfe zu TextBox1"
    If indexTextBox(2) = True Then MsgBox "Hilfe zu TextBox2"
    If indexTextBox(3) = True Then MsgBox "Hilfe zu TextBox3"
    If indexTextBox(4) = True Then MsgBox "Hilfe zu TextBox4"
End Sub


     Code eingefügt mit Syntaxhighlighter 2.4


mfg, GraFri
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige