Application.ScreenUpdating = False
28.12.2012 08:28:39
reinhardt
der User befindet sich im TB Formular.
Dort wählt er in Zelle I1 eine lfdNr und im TB Formular wird ihm ein Datensatz angezeigt.
Ich möchte mit u.a. Code erreichen, das die vom User ausgewählte lfd.Nr
"im Hintergrund" auch einmal im TB Archiv vom Cursor angesprungen wird, da hier
mehrer tausend Zeilen stehen, und somit eine spätere Suche/Scrollen entfallen kann, weil der Cursor schon dar steht.
Wenn ich es wie unten mache, flimmert der Bildschirm sehr unangenehm durch den TB-Wechsel.Benutze ich Application.ScreenUpdating = False, Springt der Cursor zwar in die Zeile, das Bild hat sich jedoch nicht aktualisiert, und der User muß wieder scrollen.
Wer weiß einen Tip?
Gruß Reinhardt
Sub test
' Application.ScreenUpdating = False
Dim lfdNr As Integer
lfdNr = Sheets("Formular").Range("I1").Value + 2
Sheets("Archiv").Select
Range("B" & lfdNr).Select
Sheets("Formular").Select
'Application.ScreenUpdating = TrueEnd Sub
Anzeige