Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
864to868
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
864to868
864to868
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Fokus setzen

Fokus setzen
24.04.2007 20:49:00
Universal
Guten Abend,
ich habe eine Userform mit mehreren Textfeldern. Bei einigen habe ich eine Prüfung (After Update) eingefügt, ob der Wert numerisch ist. Wenn nein, kommt eine Fehlermeldung. Anschließend möchte ich, dass das Textfeld wieder markiert wird. Dies funktioniert aber nicht. :(.

If Not IsNumeric(txtLfNummer.Value) Then
MsgBox "Bitte geben Sie einen numerischen Wert ein.", vbCritical, "fehlerhafte Eingabe"
txtLfNummer.SetFocus
cbReSuchen.Enabled = False
End If


Kann mir jemand helfen?
Vielen Dank und viele Grüße
Uni

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Fokus setzen
24.04.2007 20:55:11
Harald
txtLfNummer.setfocus
txtLfNummer.selstart = 0
txtLfNummer.sellenght = txtLfnummer.textlenght

AW: Fokus setzen
24.04.2007 22:05:00
Universal
Danke - dass funktioniert teilweise. Hier zum Beispiel nicht.

If Not IsDate(txtEingabedatum) Then
MsgBox "Keine Eingabe oder kein gültiges Datum!", _
vbOKOnly + vbCritical, "Eingabe prüfen"
txtEingabedatum.SetFocus
txtEingabedatum.SelStart = 0
txtEingabedatum.SelLength = txtEingabedatum.TextLength
cbReSuchen.Enabled = False
Else
date1 = Date
date2 = txtEingabedatum
Delta = DateDiff("d", date1, date2)
cbReSuchen.Enabled = True
End If
If Delta > 0 Then
MsgBox "Datum kann nicht in der Zukunft liegen!", _
vbOKOnly + vbCritical, "Unplausible Eingabe"
txtEingabedatum.SetFocus
txtEingabedatum.SelStart = 0
txtEingabedatum.SelLength = txtEingabedatum.TextLength
cbReSuchen.Enabled = False
Else
cbReSuchen.Enabled = True
End If


Anzeige
AW: Fokus setzen
24.04.2007 20:55:00
Spezial
Hallo,
Cancel=true
Gruß
Spezi

AW: Fokus setzen
24.04.2007 22:09:26
Universal
Wie meinst du das Spezi? Bei den Objekt-Eigenschaften gibt es diese Eigenschaft nicht für das Textfeld. Und den kann ich auch nicht setzen "txtLfNummer.Cancel = True".
Trotzdem Danke! :)

AW: Fokus setzen
24.04.2007 22:50:00
Horst
Hi,
kein Control, es sei denn, es verfügt über die Eigenschaft "TakeFocusOnClick", kann den Focus
auf sich selbst setzen, denk mal darüber nach.
mfg Horst

AW: Fokus setzen
25.04.2007 18:21:00
Universal
Hallolo,
dass klappt auch nicht. :( Hat noch jemand eine Idee?
Gruß
Uni

AW: Fokus setzen
25.04.2007 18:43:09
Horst
Hi,
logisch, eine textbox hat ja auch keine Eigeschaft TakeFocusOnClick.
Du musst den Focus bei einem anderen Ereignis setzen.
mfg Horst
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