UF: Control mit nächsthöherem Tabindex auswählen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Private Sub UserForm_Initialize() Dim CoCb As Control Dim InI As Integer Redim Preserve COption(UserForm1.Controls.Count) For Each CoCb In Me.Controls Select Case TypeName(CoCb) Case "TextBox" 'TextBox Set COption(InI).objText = CoCb InI = InI + 1 End Select Next CoCb End Sub Private Sub UserForm_Terminate() Erase COption End Sub

Option Explicit Public WithEvents objText As MSForms.TextBox Private Sub objText_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) If KeyCode = 55 Then objText = Left$(objText, Len(objText) - 1) Application.SendKeys "{TAB}", True End If End Sub

Hi.
Sendkeys wäre eine Möglichkeit, nur traue ich dem Befehl nicht wirklich. Ich habe ein paar Makros die den verwenden und da kommt es auch durchaus mal vor, dass der Befehl nicht ankommt - und das absolut nicht reproduzierbar. Hatte das einmal, dass es beim ersten Test funktioniert hat, danach trotz mehrerer Neustarts nicht mehr, ein paar Tage später ging es plötzlich wieder. Andere Sendkeys Befehle in anderen Makros haben dagegen die ganz Zeit funktioniert.... alles sehr seltsam.
Von daher ist mir das zu unsicher, das wird von an die 100 Leuten genutzt und da muss das zuverlässig funktionieren. Da treibe ich lieber den Aufwand, eine Select-Anweisung zu basteln, die den Fokus dann direkt auf die richtige Textbox setzt.
Ich lasse die Frage mal offen, vielleicht hat ja noch jemand eine Idee.
Gruss, Jogy
P.S.: Wieso verwendest Du eigentlich einen Array von Klassen und keine Collection?

Option Explicit Public WithEvents objText As MSForms.TextBox Private Sub objText_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) If KeyAscii = 47 Then KeyAscii = 0 Application.SendKeys "{TAB}", True End If End Sub

Hi.
Das war zu Beginn auch mal eine Überlegung, die habe ich aber aus drei Gründen verworfen.
1. Im alten (Word-)Formular gab es auch schon mehrere Felder für die Auftraggeber und ich wollte die Optik ähnlich halten
2. Ich müßte mich darauf verlassen, dass die Nutzer das richtig machen - und das kann ich definitiv nicht. Das könnte ich in 20 Punkt blinkend darüberschreiben und es gäbe immer noch Leute, die es anders machen. D.h. ich brauche wieder eine aufwendige Überprüfung der Eingabe und die wird mit ziemlicher Sicherheit nicht alles abfangen, was den Leuten so einfällt (if you make something foolproof, someone will invent a better fool).
Bei mehreren Auftraggebern pro Feld rechne ich einfach mit mehr Kreativität von Seiten der Nutzer als bei nur einem pro Feld (wobei ich da aber sicherlich auch nicht alle Fehleingaben erwischen werde).
3. Hatte ich eingangs falsch erwähnt, das ist keine Textbox sondern eine Combobox, bei der die DropDown Liste abgeschaltet ist (hatte da nicht mehr dran gedacht, da ich an der Stelle schon länger nichts mehr geändert habe und die ja wie eine Textbox aussieht). Wenn diese für nur einen Namen verwendet wird, dann kann ich die häufigsten Namen in die Combobox eintragen und damit ein Autovervollständigen anbieten.
Und es ist auch nicht so, dass die Leute lieber so arbeiten, bei den meisten klappt das ja (wie oben erwähnt, war auf dem alten Formular ja auch so). Das ist nur eine Handvoll, die das trotz Hinweisen immer wieder mal macht, dazu kommen dann noch die Leute, die nur ein Mal im Jahr einen Auftrag schreiben - und ich will eben nicht jeden Auftrag noch von Hand überprüfen.
Gruss, Jogy

Beliebteste Forumthreads (12 Monate)

UF: Control mit nächsthöherem Tabindex auswählen

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

UF: Control mit nächsthöherem Tabindex auswählen

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread