Guten Abend zusammen,
wenn in der Textbox3 der Inhalt gelöscht wurde, soll die Textbox4
aktiviert werden.
Klappt nicht.
Private Sub TextBox3_AfterUpdate()
If TextBox3.Value = "" Then
TextBox3.Value = "0.00"
End If
If ThisWorkbook.Worksheets("Kalkulation").Range("K19") >= 0 Then
'If TextBox3.Text <> "" Then
TextBox4.Enabled = True
TextBox4.BackColor = vbWhite
TextBox4.SetFocus
With TextBox4
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
. . .
mfg
kurt w