Wieso nicht in Textbox
29.12.2004 10:24:25
Walter mb
habe folgendes Makro:
Private Sub TextBox2_AfterUpdate()
If TextBox1 = "" Then
MsgBox " Sie müssen noch die Beschreibung in der Textbox eingeben !"
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
Else
ThisWorkbook.Worksheets("Kulanzblatt-VK").Range("T41") = CDbl(TextBox2)
TextBox2 = Format(Worksheets("Kulanzblatt-VK").Range("T41").Value, ("#,##0.00"))
End If
End Sub
Läuft alles Prima, jedoch geht der Focus nicht auf die TextBox1 sondern in die TextBox4 !!!???
Kann mir jemand helfen ?
Gruß Walter mb