Hallo Zusammen,
Folgenden Code verwende ich:

Private Sub TextBox39_Exit(ByVal Cancel As MSForms.ReturnBoolean)

If TextBox39 = "" Then
MsgBox "Bitte erst eine Betrag eingeben!"
TextBox39.SetFocus
Exit Sub
Else
Dim Ergebnis3 As Double
For i = 39 To 53
Ergebnis3 = Ergebnis3 + CDbl(Me("TextBox" & i))
Next i
TextBox54 = Format(CDbl(TextBox23) + Ergebnis3, "0.00 €")
End If

TextBox39 = Format(TextBox39, "0.00 €")

End Sub

Der Focus wird aber bei leerer TextBox nicht wieder in das Textfeld gesetzt.
Geht das und wenn ja, wie???
Danke für eure Hilfe.

Gruß Frank H.