Anzeige
Archiv - Navigation
268to272
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
268to272
268to272
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Cursorpositionierung in einer Dialogbox

Cursorpositionierung in einer Dialogbox
18.06.2003 15:41:35
Martin
Hallo,
hat irgendjemand von Euch eine Idee, wie man beim Aufruf einer Dialogbox den Cursor gleich in das Feld stellen kann, das der Benutzer ändern soll?
Mein Coding sieht bis jetzt so aus:

If Application.UserName = "Mitarbeiter" Or _
Application.UserName = "" Then
MsgBox "Gehen Sie ins Menü Extras --> Optionen" & vbCrLf & vbCrLf _
& "und tragen Sie im Register 'Allgemein'" & vbCrLf & vbCrLf _
& "(Feld Benutzername) Ihren Namen ein! "
Application.Dialogs(xlDialogOptionsGeneral).Show
If Application.UserName = "Mitarbeiter" Or _
Application.UserName = "" Then Exit Sub
End If

Um die Faulheit des Users zu unterstützen - Systeme, die das nicht tun, sind ja bekanntlich schlecht - soll der Cursor gleich im Feld "Benutzername" stehen.

Besten Dank im Voraus!

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Cursorpositionierung in einer Dialogbox
18.06.2003 15:46:51
sergiesam

Hi,

benutzername.setfocus

lg,
Sam

Re: Cursorpositionierung in einer Dialogbox
18.06.2003 15:51:21
ion

mit .setfocus

Re: Cursorpositionierung in einer Dialogbox
18.06.2003 16:01:19
Martin

Erst mal danke, aber so wie es da steht,führt das ohne weitere Angaben zu Laufzeitfehler 424 (Objekt erforderlich).

benutzername.SetFocus
Application.Dialogs(xlDialogOptionsGeneral).Show


Wie ist denn die richtige Syntax?

Re: Cursorpositionierung in einer Dialogbox
18.06.2003 16:05:33
sergiesam

Hi,

ich dachte es währe ein ExcelFormular. Wenn es ein Dialogfeld ist, kann man setfocus nicht einsetzen. Es gibt offiziell keine Lösung, aber es gibt eine unkonventionelle (mit Vorsicht zu genießende) Lösung.

Bevor man die Dialogbox akiviert, kann man Tastaturanschläge vorschicken. Damit der Benutzername aktiviert wird, muss man ALT-N klicken. Das kann man davor schreiben. Aber Tastaturanschläge sind halt nicht immer das genaueste...darum mit vorsicht genießen.

SendKeys "%n" '% entspricht ALT-Taste
Application.Dialogs(xlDialogOptionsGeneral).Show


Viel Spaß,
sam

Anzeige
Re: Cursorpositionierung in einer Dialogbox
19.06.2003 10:08:17
Martin

Hallo Sam,
vielen herzlichen Dank! Das ist wirklich ein guter Trick.

Martin

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige