Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Name des auslösenden Controls eines Events

Name des auslösenden Controls eines Events
16.01.2009 01:06:00
Samuel
Hallo,
ich habe eine Userform mit vielen Textboxen, und möchte bei jedem Exit-Event den Name der verlassenen Textbox - also den Namen des auslösenden Controls - an eine weitere Prozedur übergeben:

Sub TextBox1_Exit()
Formatiere("TextBox1")
End Sub


Wie kann ich den übergebenen Namen "TextBox1" per Funktion ermitteln?
Grund: Ich habe 50 Eingabefelder, es werden täglich mehr, und ich würde das gerne universell lösen.
Kann eine Prozedur ihren eigenen Namen, bzw. den Namen des Event-Auslösers ermitteln?
Vielen Dank im Voraus
Samuel

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

Betreff
Datum
Anwender
Anzeige
AW: Name des auslösenden Controls eines Events
16.01.2009 01:40:00
Tino
Hallo,
das wirst Du so machen müssen,
Klassenprogrammierung funktioniert beim Exit- Ereignis nicht.
Dialog UserForm1 
Option Explicit 
Private Sub MyTextBox(cCon As MSForms.TextBox) 
 MsgBox "Sie haben " & cCon.Name & " verlassen" 
End Sub 
 
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
 MyTextBox TextBox1 
End Sub 
 
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
 MyTextBox TextBox2 
End Sub 
 
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
 MyTextBox TextBox3 
End Sub 
 
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean) 
 MyTextBox TextBox4 
End Sub 
 
'usw......


Gruß Tino

Anzeige
AW: Name des auslösenden Controls eines Events
16.01.2009 09:29:00
Samuel
Hallo Tino,
danke für Deine schnelle Antwort.
Dann muss ich also wohl oder übel den Namen der Textbox letztendlich in jeder Funktion von Hand eintippen.
Gruß Samuel
AW: Name des auslösenden Controls eines Events
16.01.2009 10:01:00
Tino
Hallo,
in der Zwischenzeit wo Du diesen Beitrag geschrieben hast, hättest Du dies schon fertig. ;-)
Gruß Tino

29 Forumthreads zu ähnlichen Themen

frage zu doevents
chris

Hallo und guten morgen zusammen,
ich hätte mal eine frage. Es geht um Doevents.
Wollte es mir heute einmal anschauen und habe dazu im Forum einen Bitrag gefunden.
https://www.herber.de/forum/archiv/904to908/t904160.htm
Jetzt wollte ich ein bichen spielen ... Und habe mir gedach...
10.09.2008 08:40:46
Thread-ID: 1008625
5 Beiträge
Anzeige
Doevents oder wait?
Steve

Guten abend an alle,
habe wieder eine frage.
Ich hatte ungefähr diese frage schon mal gepostet aber niemand konnte mir antwort geben, daher ging ich ein wenig suchen und wollte fragen ob es möglich ist mit Doevent oder mit Wait einen code zu bauen der wartet bis die letzte geöffnete exc...
21.02.2012 10:44:39
Thread-ID: 1251691
4 Beiträge
Eig. Funkt. in beding. Format. -> Events-Probleme
Patrick

Hallo,
anscheinend gibt es ein Problem bei der Verwendung benutzerdefinierter Funktionen in der bedingten Formatierung und der Auslösung von Events.
Ich nutze die folgende Formel/Funktion in einer bedingten Formatierung:
=UND(MatrixVerketten($A20:$L20)"";A$19"";A20="")
Die Funkt...
14.08.2013 15:23:04
Thread-ID: 1326908
4 Beiträge
Anzeige
VBA Kommentar suchen, DoEvents?
WolfgangN

Hallo,
ich habe mir ein Makro gebaut, dass bestimmten Text aus Kommentaren sucht und u.a. der Reihe nach von unten nach oben anzeigt. Die Tabelle hat ca. 3500 Zeilen, in 3 Spalten soll gesucht werden und es hat ca. 1300 Kommentare, diese werden immer mehr. In Excel 2003 lief dies innerhalb...
24.01.2014 13:20:20
Thread-ID: 1346539
9 Beiträge
Events von dynamischne Multiseiten abfangen
dynamischne

Hallo Zusammen,
ich habe eine Anwendung, die mir dynamisch Textboxen und Comboxen auf einer Multipage anlegt. Das klappt auch wunderbar.
Jetzt habe ich mir 2 Containerklassen (es geht sicherlich auch mit einer) angelegt, mit denen ich die Events abfagen will.
Leider klappt das nur...
09.07.2014 14:08:11
Thread-ID: 1369487
3 Beiträge
DoEvents verwenden
Frederik Fuhrmann

Guten Morgen!Wie schreibe ich denn das, wenn ich hier eine DoEvent - Anweisung reinbringen will? Geht das überhaupt so, dass der nächste VBA - Befehl erst abgearbeitet wird, wenn die momentane Anweisung im anderen Programm abgearbeitet wurde?
SAPLogon = Shell("C:\Programme\Sappc46d\sapgui\sa...
12.08.2002 08:42:39
Thread-ID: 147404
3 Beiträge
DoEvents verwenden
Frederik Fuhrmann

Guten Morgen!Der Befehl "DoEvents" soll doch die Steuerung an das Betriebssystem übergeben solang eine angestoßene Aktion aktiv ist!? D.h., ich müsste doch eigentlich eine Anwendung starten können und dann mit Verwendung von "Do.." die Anmeldung ausführen. (Wartezeit = Zeit zum starten der Anwe...
13.08.2002 08:12:41
Thread-ID: 147815
6 Beiträge
Zwei Change Events verknüpfen (Makro schon da)
Nati

Hi Leute,
wie kann ich diese beiden Change Events ( bei Änderung in Spalte K und Änderung in Spalte I), verknüpfen ? (ja, wahrscheinlich mit einer If abfrage, aber ich komme nicht ganz klar wie ich das hierbei handlen soll:
Private Sub Worksheet_Change(ByVal Target As Range) Dim res As...
03.01.2018 11:45:37
Thread-ID: 1599919
3 Beiträge

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
Archiv - Verwandte Themen
Forumthread
Beiträge
4
1
3
3
3
8
2
2
5
2
11
10
1
2
3
10
7
3
2
6
3
7
1
2
1