Habe Lösung gefunden aber Bitte Bitte...
08.01.2005 19:56:48
walter
habe Lösung gefunden, siehe Makro.
Nun möchte ich, das nach verlassen der TextBox6, die TextBox21 angesteuert
bzw. der SetFocus darauf gesetzt wird.
Die Schwierigkeit:
Wenn ich in der TextBox6 "0" eingebe, wird die TextBox21 wieder sichtbar,
kriege es nicht hin den Focus dann auf die TextBox21 zu setzen, damit man jetzt eine Eingabe machen kann.
Bitte helfen,
Danke im voraus
Gruß Walter
Hier mein Makro:
Private Sub TextBox6_AfterUpdate()
ThisWorkbook.Worksheets("Kulanzblatt-VK").Range("T35") = CDbl(TextBox6)
TextBox6 = Format(Worksheets("Kulanzblatt-VK").Range("T35").Value, ("#,##0.00"))
Worksheets("Kulanzblatt-VK").Range("U35") = "0"
TextBox21 = Format(Worksheets("Kulanzblatt-VK").Range("M35").Value, ("0.00"))
If ThisWorkbook.Worksheets("Kulanzblatt-VK").Range("T35") > 0 Then
TextBox21.Enabled = False
TextBox21.BackColor = Me.BackColor
End If
If ThisWorkbook.Worksheets("Kulanzblatt-VK").Range("T35") = 0 Then
TextBox21.Enabled = True
TextBox21.BackColor = vbWhite
End If
End Sub