KeyDown Ereignis lässt Anzeige flackern

20/01/2012 - 09:05 von reinhold | Report spam
Guten Tag Zusammen,

ich habe auf einem EXCEL 2010 Worksheet einige TextBoxen. Das Bewegen
durch die TextBoxen steuere ich mit VBA-Code. Das funktioniert auch.
Allerdings flackert das Worksheet bei jedem einzelnen Tastenanschlag -
Application.ScreenUpdatingúLSE ist gesetzt. Kennt jemand eine
Lösung?

Hier der Code:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)

Application.ScreenUpdating = False
If KeyCode = 13 Then
TextBox1.Activate
TextBox1.SelStart = Len(TextBox1.Text)
End If
If KeyCode = 9 Then
If Shift = 1 Then
TextBox11.Activate
TextBox11.SelStart = 0
TextBox11.SelLength = Len(TextBox11.Text)
Else
TextBox14.Activate
TextBox14.SelStart = 0
TextBox14.SelLength = Len(TextBox14.Text)
End If
End If
Application.ScreenUpdating = True

End Sub

Danke und viele Grüsse
Reinhold
 

Lesen sie die antworten

#1 reinhold
20/01/2012 - 11:19 | Warnen spam
On 20 Jan., 09:05, reinhold wrote:
Guten Tag Zusammen,

ich habe auf einem EXCEL 2010 Worksheet einige TextBoxen. Das Bewegen
durch die TextBoxen steuere ich mit VBA-Code. Das funktioniert auch.
Allerdings flackert das Worksheet bei jedem einzelnen Tastenanschlag -
Application.ScreenUpdatingúLSE ist gesetzt. Kennt jemand eine
Lösung?

Hier der Code:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger,
ByVal Shift As Integer)

    Application.ScreenUpdating = False
    If KeyCode = 13 Then
        TextBox1.Activate
        TextBox1.SelStart = Len(TextBox1.Text)
    End If
    If KeyCode = 9 Then
        If Shift = 1 Then
            TextBox11.Activate
            TextBox11.SelStart = 0
            TextBox11.SelLength = Len(TextBox11.Text)
        Else
            TextBox14.Activate
            TextBox14.SelStart = 0
            TextBox14.SelLength = Len(TextBox14.Text)
        End If
    End If
    Application.ScreenUpdating = True

End Sub

Danke und viele Grüsse
Reinhold



ich muss noch etwas ergànzen:

Habe gerade festgestellt, dass das Flackern auch dann passiert, wenn
in TextBoxne ohne KeyDown Ereignis ein Eintrag vorgenommen wird.

Viele Grüsse
Reinhold

Ähnliche fragen