drei Fenster synchronisieren -minimiert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public myTimer As Date Sub StartAllScoll() Call ScollAlle myTimer = Now + TimeSerial(0, 0, 1) Application.OnTime myTimer, "'" & ThisWorkbook.Name & "'!Modul1.StartAllScoll" End Sub Sub StopAllScoll() On Error Resume Next Application.OnTime myTimer, "Start", , False End Sub Sub ScollAlle() Dim obDatei As Window For Each obDatei In Windows If TypeName(obDatei.ActiveSheet) = "Worksheet" Then obDatei.SmallScroll ActiveWindow.VisibleRange(1).Row - obDatei.VisibleRange(1).Row End If Next obDatei End Sub

Public LTimer As Long Public Declare Function SetTimer Lib "user32" (ByVal hWnd As _ Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _ ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" (ByVal hWnd As _ Long, ByVal nIDEvent As Long) As Long Sub StartAllScoll() LTimer = SetTimer(0, 0, 100, AddressOf ScollAlle) End Sub Sub StopAllScoll() On Error Resume Next KillTimer 0, LTimer End Sub Sub ScollAlle() Dim obDatei As Window On Error Resume Next 'bei Fehler Excelabsturtz, ist Notwendig DoEvents For Each obDatei In Windows If TypeName(obDatei.ActiveSheet) = "Worksheet" Then obDatei.SmallScroll ActiveWindow.VisibleRange(1).Row - obDatei.VisibleRange(1).Row End If Next obDatei End Sub

Hallo Tino,
deinen ersten Code habe ich jetzt getestet. Die Unterroutine ScollAlle() läuft sehr gut. Aus ihr habe
ich insbesondere die Funktionsweise der mir zuvor unbekannt gewesenen Eigenschaft "VisibleRange" gelernt.
Die Hauptroutine habe ich vom Worksheet_Activate-Ereignis des Worksheets mit den drei Fenstern aus aufgerufen. Da sie eine Rekursion enthält, ruft sie sich jedoch immer von neuem auf, so dass der
Cursor nur als Sanduhr erscheint und man weder Daten eingeben noch scrollen kann.
Dann habe ich die Makros "StartAllScoll" und "StopAllScoll" jedoch einfach weggelassen und den Makro
"ScollAlle" direkt vom Worksheet_Activate-Ereignis aus aufgerufen. Wenn ich in Fenster 1 nach unten
scrolle und dann auf den nächsten Worksheet-Tab rechts und von dort wieder zum Worksheet mit
den Fenstern zurück wechsele, klappt das Scrollen: In den beiden anderen Fenstern erscheint der
Text dann genauso wie im ersten. Damit ist mein Problem aber auch schon zu 90% gelöst. Es geht eben
nur noch nicht ganz automatisch.
Jetzt probiere ich noch deinen zweiten Code aus und gebe dir dann Nachricht.
Beste Grüße! Werner R.

Public Sub FensterWechseln12() 'wechselt von Fenster 1 zu Fenster 2 und zurück Call ScollAlle If ActiveWindow.WindowNumber = 2 Then Windows("MeineDatei.xls":1).Activate ElseIf ActiveWindow.WindowNumber = 1 Then Windows("MeineDatei.xls:2").Activate End If End Sub Mit einem analogen Code kann zwischen Fenster 1 und Fenster 3 hin- und hergewechselt werden. _ Wie du bemerkst, wird nicht nur das Fenster gewechselt, sondern - dank deiner Subroutine - _ gleichzeitig auch automatisch synchronisiert. Diese Makrokombination - die Makros zum Fensterwechseln habe _ ich mir auf Kurztastenkombinationen gelegt - erspart den Einsatz von "OnTime", d.h. es wird nicht während der ganzen Zeit, die man am Computer verbringt, immer alle Zehntelsekunde ein Programm aktiviert. Wenn außer den drei Fenster allerdings noch weitere Fenster geöffnet sind, könnten die _ Fensternummern nicht mehr stimmen. Für diesen Fall müsste obiger Makro angepasst werden, wie, das habe ich leider noch nicht herausgefunden. Beste Grüße! Werner R.

Hallo,
dies liegt wohl daran, dass die Grafik Leistung bei so kurzen Intervallen überfordert ist und mit der Aktualisierung nicht mehr nach kommt.
Man könnte als Abhilfe z. Bsp. alle 3 Sekunden eine Bildschirmaktualisieung durchführen dies verhindert diesen Effekt.
Nachteil ist nur, andere Makros die zur Laufzeit die Aktualisierung ausschalten sind nutzlos.
Ein weiterer Nachteil, alle drei Sekunden zuckt der Bildschirm (Excel) kurz.

Public LTimer As Long
        
Public Declare Function SetTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _
ByVal lpTimerFunc As Long) As Long
 
Public Declare Function KillTimer Lib "user32" (ByVal hWnd As _
Long, ByVal nIDEvent As Long) As Long

Sub StartAllScoll()
LTimer = SetTimer(0, 0, 100, AddressOf ScollAlle)
End Sub

Sub StopAllScoll()
On Error Resume Next
KillTimer 0, LTimer
End Sub

Sub ScollAlle()
Dim obDatei As Window
Static i As Integer
On Error Resume Next 'bei Fehler Excelabsturtz, ist Notwendig 
i = IIf(i = 30, 0, i + 1)
    For Each obDatei In Windows
     If TypeName(obDatei.ActiveSheet) = "Worksheet" Then
      obDatei.SmallScroll ActiveWindow.VisibleRange(1).Row - obDatei.VisibleRange(1).Row
      DoEvents
     End If
    Next obDatei
If i = 30 Then Application.ScreenUpdating = True
End Sub

Aber unterm Strich würde ich dennoch sagen, dass Excel für einen solchen Dauerbeschuss nicht geeignet ist.
Man sollte sich also wirklich überlegen ob es Notwendig ist.
Gruß Tino

Option Explicit Public LTimer As Long Public Declare Function SetTimer Lib "user32" (ByVal hWnd As _ Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _ ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" (ByVal hWnd As _ Long, ByVal nIDEvent As Long) As Long Sub StartAllScoll() LTimer = SetTimer(0, 0, 100, AddressOf ScollAlle) End Sub Sub StopAllScoll() On Error Resume Next KillTimer 0, LTimer End Sub Sub ScollAlle() Dim obDatei As Window On Error Resume Next 'bei Fehler Excelabsturtz, ist Notwendig For Each obDatei In Windows If TypeName(obDatei.ActiveSheet) = "Worksheet" Then obDatei.SmallScroll ActiveWindow.VisibleRange(1).Row - obDatei.VisibleRange(1).Row DoEvents End If Next obDatei End Sub

Beliebteste Forumthreads (12 Monate)

drei Fenster synchronisieren -minimiert

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread