TextBox überspringen ?
17.02.2005 13:27:47
walter
habe eine Makro, welches soweit funktioniert.
NUR eine Fehlermeldung erscheint, wenn ich in der TextBox 7 bin , geht mein
Courser in die TextBox1, dies möchte ich verhindern, soll direkt dann in die TextBox3 gehen.
Habe wohl irgendwie einen Fehler ...
Hier mein Makro:
Private Sub TextBox7_AfterUpdate()
Application.ScreenUpdating = False
If TextBox7.Value = "" Then
TextBox7.Value = "0.00"
End If
If TextBox7.Value > "0" Then
TextBox1.BackColor = vbWhite
Vielleicht kann mir jemand helfen ?
Gruß Walter
Label121.Visible = True
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
If TextBox1.BackColor = vbWhite Then
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
'If TextBox7.Value > "0" Then
If Worksheets("Kulanzblatt-VK").Range("W51").Value > "0" Then
TextBox1.SetFocus
With TextBox1
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End If
If TextBox7.Value <= "0" Then
TextBox1.BackColor = Me.BackColor
' TextBox1.Visible = False
' TextBox1.Enabled = False
' Label121.Enabled = False
Label121.Visible = 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"))
Label1.Caption = Worksheets("Kulanzblatt-VK").Range("E28")
USFKulanzblatt.Label117.Caption = Worksheets("Kulanzblatt-VK").Range("E28") 'dies ist der Label
Label10.Caption = Format(Worksheets("Kulanzblatt-VK").Range("I40").Value, ("#,##0.00")) 'Vorrats/Lager-Nr. anzeigen
Label18.Caption = Format(Worksheets("Kulanzblatt-VK").Range("M40").Value, ("0.00")) 'Vorrats/Lager-Nr. anzeigen
USFKulanzblatt.Label71 = Format(Worksheets("Kulanzblatt-VK").Range("I45").Value, ("#,##0.00"))
USFKulanzblatt.Label74 = Format(Worksheets("Kulanzblatt-VK").Range("I46").Value, ("#,##0.00"))
USFKulanzblatt.Label72 = Format(Worksheets("Kulanzblatt-VK").Range("M45").Value, ("0.00"))
USFKulanzblatt.Label75 = Format(Worksheets("Kulanzblatt-VK").Range("M46").Value, ("#,##0.00"))
Application.ScreenUpdating = True
End Sub