Focus!

Forumthread: Focus!
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Focus!

Focus!

24.04.2002 21:49:11

Torsten

Hallo!

Habe ein riesiges Problem mit dem Focus! Habe ein Textfeld, das keine negativen Zahlen und Buchstaben annehmen soll und bei Eingabe dieser wird eine Msgbox ausgelöst! Dabei verliert die Userform den Focus! Wie bekomme ich den Focus auf das Textfeld zurück! Kann mir jemand helfen, ich wäre sehr dankbar!

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Focus!

24.04.2002 21:54:31

Torsten
Re: Focus!

24.04.2002 22:22:35

Hajo

Re: Focus!

24.04.2002 21:54:31

Torsten

Hier ist noch mein Quellcode! If IsNumeric(Artikel.txtnettopreis) And Artikel.txtnettopreis >= 0 Then Artikel.txtnettopreis = Format(Artikel.txtnettopreis, "#,##0.00") Mehrwertsteuer = Artikel.txtnettopreis * 0.16 Artikel.txtMehrwertsteuer = Mehrwertsteuer Artikel.txtMehrwertsteuer = Format(Artikel.txtMehrwertsteuer, "#,##0.00") Artikel.txtBruttopreis = Artikel.txtnettopreis + Mehrwertsteuer Artikel.txtBruttopreis = Format(Artikel.txtBruttopreis, "#,##0.00") Else If Artikel.txtnettopreis < 0 Then MsgBox ("Keinen negativen Betrag eingeben!") End If If Not IsNumeric(Artikel.txtnettopreis) And Artikel.txtnettopreis <> "" Then MsgBox ("Keine Buchstaben eingeben!") End If If Artikel.txtnettopreis = "" Then ein = MsgBox("Es muß ein Betrag eingegeben werden!") End If End If zeichen = Len(Artikel.txtnettopreis) Artikel.txtnettopreis.SelStart = zeichen Artikel.txtnettopreis.SetFocus

Re: Focus!

24.04.2002 22:22:35

Hajo

Hallo Torsten ich habe mir Deinen Code jetzt nicht angesehen, versuch mal in der Art Textbox1.SetFocus Gruß Hajo

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!