Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
644to648
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
644to648
644to648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

UserForm: Ansprechen der aktiven Textbox

UserForm: Ansprechen der aktiven Textbox
02.08.2005 10:13:35
Norman
Hallo zusammen!
Ich habe noch nicht viel Erfahrung mit VBA, ich hoffe ihr könnt mir helfen:
Meine UserForm enthält mehrere Testboxen. Beim Anklicken des 'Ok' Buttons soll z.B. ein Zahlenwert nur in die aktive Textbox (enthält den Curser / focus) geschrieben werden. In der Hilfe fand ich etwas über die 'setfocus' Funktion, was mir aber nicht so viel geholfen hat.
Kennt jemand eine Lösung?
Schon mal vielen Dank,
Gruß
Norman

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

Betreff
Datum
Anwender
Anzeige
AW: UserForm: Ansprechen der aktiven Textbox
02.08.2005 12:03:20
Ralf
Hallo Norman,
zunächst mußt Du vor dem klicken auf den Button ermitteln, welches das aktive Objekt ist (denn sobald Du auf den Button klickst ist dieser aktiv). Also nutzt Du das MouseMove Ereignis. Den ermittelten Namen musst Du aber lokal für dieses Modul deklarieren, vor allen Prozeduren. Hier: tbName
Im Click Ereignis des Buttons durchläufst Du dann alle Steuerungselemente. Falls die Namen übereinstimmen, soll die Textbox hier mit Hallo gefüllt werden.
Empfehlung: Prüfe vorher noch, ob es sich um eine Textbox handelt, ansonsten könnte es Probleme geben.
Option Explicit
Dim tb As Control, tbName$

Private Sub cmdLos_Click()
For Each tb In Controls
If tb.Name = tbName Then tb = "Hallo"
Next
End Sub



Private Sub cmdLos_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
tbName = Me.ActiveControl.Name
End Sub

Ciao, Ralf
Anzeige
AW: UserForm: Ansprechen der aktiven Textbox
02.08.2005 12:35:54
Norman
Hallo Ralf,
vielen Dank für deine Antwort. Ich werd's nachher direkt ausprobieren...es hat mich bis jetzt ziemlich viel Nerven gekostet!
Viele Grüße,
Norman
AW: UserForm: Ansprechen der aktiven Textbox
02.08.2005 13:31:23
Norman
Hallo Ralf,
funktioniert prima!
Vielen Dank,
Gruß
Norman

93 Forumthreads zu ähnlichen Themen

Es wird nur die Formel angezeigt, nicht der Text
Oswald

Hallo an die guten Geister,
hab mal wieder ein Problem.
In der angeängten Datei in B41 hatte ich das Problem das nicht der Text angezeigt wird sondern die Formel.
https://www.herber.de/bbs/user/54704.xls
Habe ich dadurch gelöst das ich das Selbe noch mal in einer anderen Datei...
18.08.2008 14:47:05
Thread-ID: 1002609
4 Beiträge
Anzeige
Wert eines Labels (Userform) an Textbox
Robert

Hallo,
komme leider wiedermal nicht weiter und hoffe auf eure Hilfe.
Ich müsste den Wert eines Labels (in einer Userform) an eine TextBox (Steuerelement in Tabelle)
weitergeben.
Geht das überhaupt?
Vielen Dank schon mal..
Viele Grüße
Robert
13.02.2009 15:20:00
Thread-ID: 1050543
5 Beiträge
TextBoxen Standard - Format zuweisen
Frank

Hallo Zusammen!
Wünsche zunächst ein schönes Wochenende und nun zu meiner Frage. Beim öffnen einer UF werden die darin befindlichen TextBoxen mittels Daten aus einer Tabelle befüllt und den TextBoxen sind unterschiedliche Formate zugewiesen. Nun werden die TextBoxen per Change Ereignis eine...
13.02.2009 18:29:00
Thread-ID: 1050611
2 Beiträge
Anzeige
Zellengröße automatisch anpassen
Ralf

Hallo Excel - Experten,
ich hole mir per sverweis aus einem anderen Tabellenblatt
unterschiedlich langen Text und möchte ihn dann ausdrucken.
Wie kann ich z.B. Zelle Z 5 automatisch so anpassen, daß mir
Excel immer den kompletten Text anzeigt, die Zelle also
vergrößert...
17.07.2009 10:56:33
Thread-ID: 1089311
7 Beiträge
Textbox an Userform2 übergeben
Kay

Hallo,
ich habe 2 Userformen. Userform1 = Datenerfassung. Darin befinden sich unteranderm 6 Textboxen, wo eine bestimmte Wareninformation angelegt werden soll. Klickt der User auf das Label dieser Textbox, öffnet sich ein Unterfenster (Userform2) mit einer "Suchmaske" die anhand seiner Arti...
28.07.2009 08:20:39
Thread-ID: 1091776
7 Beiträge
skalierung größenachse lässt sich nicht ändern
schon

Hallo, vielleicht liegt es ja nur am Sekt, den wir zum Weihnachtsbrunch hatten...
Habe ein simples Liniendiagramm mit 2 Zahlenreihen erstellt. Bei einer Reihe gehen die Zahlen gegen Null, daher schmiegt sich die Linie an die Rubrikenachse. Damit es anschaulicher wird, möchte ich die Skalier...
15.12.2009 16:34:42
Thread-ID: 1123765
2 Beiträge
Diagrammgröße per VBA ändern
ben

Hallo zusammen,
Ich habe drei Command Buttons mit deren Betätigung drei verschiedene Diagramme (Kuchendiagramm) angezeigt werden können. Wenn ein neues Diagramm angezeigt werden soll, wird das alte zuvor gelöscht.
Leider werden die Diagramme aber immer nur recht klein angezeigt.
Ic...
20.02.2010 10:34:56
Thread-ID: 1139846
4 Beiträge
Kreisdiagramm in Größe automatisch anpassen
Rudolf

Hallo Excel-Freunde,
ich möchte innerhalb einer Dokumentation mehrere Kreisdiagramme einflechten. Für die Darstellung des Kreises mit den Segmenten ist jedem Kreis eine eigene Wertetabelle zugeordnet:
Beispiel:
1. Kreis: Wert A = 10; Wert B = 20; Wert C = 30 (Gesamtwert also 60)<...
23.02.2010 14:27:31
Thread-ID: 1140698
2 Beiträge
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
Archiv - Verwandte Themen
Forumthread
Beiträge
3
4
4
1
7
6
6
1
3
1
6
4
4
5
1
8
4
2
3
6
5
6
11
2
4