textbox1.setfocus ???

koden me.textbox1.setfocus er rigtig nok
men den står formentlig blot det forkerte sted

Koder der sådan ud.

Den kalder functionen beregn, og laver en fejl(planlagt).
den sætter textbox2 = "" og returnere til sub.

Her godkender den if sætningen, med et ja. Burde jo så udfører, textbox1.setfocus. Det sker bare ikke.

Private Sub TextBox1_Afterupdate()
Call beregn
If TextBox2 = "" Then
Me.TextBox1.SetFocus
End If
End Sub

indsæt denne nederst i sub beregn

if me.TextBox2="" then msgbox "ok"

hvis du ikke får beskeden ok, er tb2 ikke tom

Ja, så får jeg "Desværre" msgbox "ok" op på skærmen.

udskift denne med ovenstående i beregn

if me.TextBox2="" then UserForm1.TextBox1.SetFocus

ret evt userform1 til aktuel

Det giver stadig problemer. Den bliver ved med at sætte textbox2 i fokus.
-------------------------------
Private Sub TextBox1_Afterupdate()

Call beregn
If userform1.TextBox2 = "" Then
userform1.TextBox1.SetFocus
End If

End Sub

Private Function beregn()
Dim TempDate As Date



If TextBox1 < 1 Or TextBox1 > 53 Then
MsgBox "Forkert ugenummer"
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
Exit Function
Else
If TextBox1 > 1 And TextBox1 < 9 Then
If Len(Trim(TextBox1)) <> 2 Then
TextBox1 = "0" & TextBox1
End If
End If
End If

Jeg kan ikke få textbox1 aktiv når en msgbox anvendes
Prøv om du kan bruge denne løsning i stedet
Udskift denne med dine 2 koder
Bemærk at koden tester når TextBox2 aktiveres

Private Sub TextBox2_Enter()
Me.TextBox1.Text = Format(Me.TextBox1.Text, "00")
If TextBox1 < 1 Or TextBox1 > 53 Then
TextBox1 = "Forkert ugenummer"
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox1.SelStart = 0
TextBox1.SelLength = Len(TextBox1)
TextBox1.SetFocus
Beep
End If
End Sub

Hej Excelent.

Det giver desværre stadig problemer. Nu sætter den textbox3 i fokus.

Deværre.

Prøv send filen, eller et eks.

Jeg har ikke fået kigget på det længe, du får point for forsøget. Og jeg opretter et nyt spørgsmål, når jeg vender tilbage til sagen... tak for hjælpen.

lukker