Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
23.04.2024 21:29:56
Bestimmte Zellen auf andere Arbeitsblätter kopieren
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1064to1068
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
1064to1068
1064to1068
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ermitteln, welche Textbox aktiviert ist

Ermitteln, welche Textbox aktiviert ist
27.03.2009 21:39:57
Armin
Hallo,
kann mir jemand bei folgendem Problem weiterhelfen.
Auf einer Userform befinden sich 3 Textboxen. Gibt es eine Möglichkeit, zu ermitteln, welche Textbox aktiviert ist, also in welcher Textbox sich der Cursor befindet?
Vielen Dank für eure Infos.
Schöne Grüße
Armin

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ermitteln, welche Textbox aktiviert ist
27.03.2009 22:20:27
Thorsten_Z
Hallo Armin,
wie wäre es denn mit:

Private Sub TextBox1_Enter()
MsgBox ("textbox1")
End Sub


Gruß
Thorsten

AW: Ermitteln, welche Textbox aktiviert ist
27.03.2009 22:39:49
Uwe
Hi,
..... oder basierend auf Thorstens Idee dann mit einer Variablen:

Option Explicit
Dim AktiveBox As String
Sub TextBox1_GotFocus()
AktiveBox = TextBox1.Name
End Sub


(oder auch ohne .Name aber mit ""
Gruß
Uwe
(:o)

AW: Ermitteln, welche Textbox aktiviert ist
29.03.2009 13:22:59
ransi
HAllo Armin
Versduch mal so:
Dim c As Control
For Each c In Me.Controls
    If TypeName(c) = "TextBox" Then
        If c.InSelection Then
            MsgBox c.Name & " hat den Fokus"
            Exit For
        End If
    End If
Next

ransi
Anzeige

Links zu Excel-Dialogen

TextBox UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige