habe dieses Makro:
Private Sub TextBox7_AfterUpdate()
If TextBox7.Value = "" Then
TextBox7.Value = "0.00"
End If
If TextBox7.Value > "0" Then
TextBox1.BackColor = vbWhite
TextBox1.Enabled = True
Label121.Enabled = True
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
If TextBox7.Value = "0" Then
TextBox1.BackColor = Me.BackColor
TextBox1.Enabled = False
Label121.Enabled = False
Worksheets("Kulanzblatt-VK").Range("W51").Value = ""
TextBox1.Value = ""
TextBox3.SetFocus
With TextBox3
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
ThisWorkbook.Worksheets("Kulanzblatt-VK").Range("T50") = CDbl(Me.TextBox7)
Me.TextBox7 = Format(Worksheets("Kulanzblatt-VK").Range("T50").Value, ("#,##0.00"))
End Sub
Funktioniert auch alles, bis auf:
Wenn ich einen Betrag eingebe und die TextBox1 wird geöffnet, soll der Courser
in die TextBox1 gehen.
Warum geht das nicht?
Gruß Walter