Office: Cursor in Textbox in Userform

Hallo,
ich habe eine Userform erstellt, die sofort bei Aufruf der Excel-Datei erscheint. In einer darin enthaltenen Textbox1 soll automatisch bei Auftauchen der Userform der Cursor vor sich hin blinken, weil dort sofort eine Eingabe gemacht werden muss und nicht im normalen Tabellenblatt.

Ich habe bisher folgendes programmiert, unter "Diese Arbeitsmappe":
Userform1.show vbmodeless
Userform1.TextBox1.setfocus

Leider funktioniert es nicht. Der Cursor ist gar nicht zu sehen, im Tabellenblatt ist eine beliebige Zelle umrandet. Diese Umrandung oder Markierung kommt noch vom letzten Verlassen der Datei mit Speicherung.

Hat jemand eine Idee?

Grüße
fischerpeter

:)

 

Hi!
Setze in den Eigenschaften der TextBox den TabIndex auf 1

Gruß Ralf

 

Hallo zusammen,

ohne .SetFocus und in den Eigenschaften der TextBox den TabIndex auf 0 setzen.

 

Hallo haklesoft,
ich habe deinen Vorschlag bei einer Testdatei ausprobiert und es funktionierte auch, der Cursor war in der Textbox. Allerdings nur einmal.

Wenn ich die Test-Datei schließe und neu öffne, sehe ich kurz den Cursor (sehr kurz), dann ist er weg. Dieses Verhalten bleibt so bei jedem neuen Öffnen.

Ich habe den TabIndex auch in meiner echten Datei auf 0 gesetzt. Da auch das gleiche, ich sehe sehr kurz den Cursor in der TextBox, dann ist er verschwunden. Was ist da los?

Grüße
fischerpeter

 

lad die datei hoch.

 

Hi,
hatte sowas auch schon und konnte mir damit helfen, indem ich in die Textbox beim aufrufen ein Leerzeichen hineingeschrieben habe. Dann blieb der Cursor da

Gruß
DeBabba

 

Hallo xlph,
ich finde keine Datei zum Hochladen. Hab das noch nie machen müssen.

Muss man einen bestimmten Button dafür anklicken, habe aber leider nichts passendes gefunden.

Grüße
fischerpeter

 

Hallo DeBabba,
habe deinen Vorschlag so umgesetzt:

Sub workbook_activate()
UserForm1.Show vbModeless
UserForm1.TextBox1.Value = " "
End Sub

Hast du das so gemeint? Bei mir funktioniert das mit dem Cursor leider immer noch nicht.

Grüße
fischerpeter

 

Hi Peter,

Workbook_Activate ist definitiv das falsche Ereignis. UserForm1_Activate wäre das richtige Ereignis um den Cursor auf die TextBox zu setzen...

 

Hi FischerPeter,
ja, so wars gemeint
JEDOCH
wie R J gepostet hat mit "Userform1_activate"

Gruß
DeBabba

 

Hallo,

TabIndex = 0 ist relevant bei einem Neustart der UF, sonst nicht.

Wir sehen Deine Datei nicht, wissen also nicht, was da so alles passiert.

Hochladen: beim Antworten bis "Zusätzliche Einstellungen" runterscrollen und dann "Anhänge verwalten" wählen.

Wenn man wissen will, wann (und wann nicht) ein Event der UF oder der Mappe gefeuert wird ist es immer hilfreich, sich im Direktfenster oder perMsgBox darüber informieren zu lassen.

 

Hallo,
ich bin am verzweifeln. Es geht einfach nicht.

Meine bisherigen Versuche:
1) Folgenden Code habe ich im Ordner Userform1 hinterlegt, direkt im allgemeinen Teil der Userform1:
Sub userform_activate()
userform1.textbox1.value = " "
end Sub

Sub userform1_activate ging nicht, das wurde von Excel ignoriert.

Auf "userform1.textbox1.setfocus" habe ich verzichtet, wie von einigen gemeint, ich habe es auch mal reingesetzt, trotzdem kein Cursor.

2) Die Textbox1 habe ich mit TabIndex 0 belegt, kein Erfolg. Mit Tabindex 1 ebenso.

Hat noch jemand eine Idee? Ich habe meine Testdatei im Anhang.

Grüße
fischerpeter

 

Das kann ich nicht bestätigen.

Es langt auch dass TabIndex auf 0 gesetzt wird.

Also, bei mir funktionierts.

 

...ich vermute mal, Du hast die Prozedur Userform_Activate irgendwo eingefügt, nur eben nicht da, wo sie hingehört. Die gehört selbstverständlich in das Modul der Userform... *Smilie

Lade doch mal die Datei hoch...

 

Hallo,

wenn die UserForm erstmalig angezeigt wird, steht der Cursor sichtbar im Textfeld1. Wenn dann zuletzt in TextFeld2 eine Eingabe erfolgte, springt der Cursor mit SetFocus im UF-Activate wieder sichtbar zurück. Wenn das Textfeld1 aber zuletzt den Focus hatte, wird es nicht erneut aktiviert und das gilt es zu vermeiden.

Um konsequent bei jeder UF-Aktivierung den Cursor sichtbar im ersten Textfeld zu haben, platziertst Du nur diesen Code in Deiner UserForm: Code:

Dabei wird der Cursor zuerst ins zweite Textfeld geschickt und dann erst ins erste Textfeld, wo er nun immer sichtbar blinkt.