drei Fenster synchronisieren -minimiert

Werner · 2009-04-10T09:51:59+00:00

VBA-Level: befriedigend Hallo Freunde, habe ein Workbook in drei Fenstern geöffnet, und zwar so, dass im ersten Fenster der linke Teil der Tabelle, im zweiten der mittlere und im dritten der rechte erscheint. Nun will ich erreichen, dass die drei Fenster miteinander synchronisiert werden, und zwar so, dass, wenn ich in einem der Fenster nach unten scrolle, in den beiden anderen um die gleiche Anzahl von Datensätzen nach unten gescrollt wird. Gleiches gilt für das Nach-oben-Scrollen. Alle drei Fenster sollen also immer die gleichen Zeilen in gleicher Position zum oberen Fensterrand anzeigen. Dabei soll immer nur ein einziges Fenster geöffnet, die beiden anderen sollen minimiert sein. Excel 2007 hat zwar einen Menupunkt für synchrones Scrollen, doch müssen dabei mindestens zwei Fenster sichtbar sein. Zwei Fenster minimiert und nur eines offen geht dabei offenbar nicht. Was tun? Dank für Rat! Werner R.

Hallo Tino,
nun hatte ich doch noch ein kleines Problem mit deinem zweiten Code: Wenn eine Zelle in der Tabelle
markiert ist und ich dann eine andere Zelle markiere, bleibt die erste Markierung bestehen.
Nach einigem Nachdenken bin ich dann wieder auf die Subroutine "ScollAlle" in deinem ersten Code
zurückgekommen und habe diese in einen eigenen kleinen Makro eingebaut, mit dem nicht nur das
Fenster gewechselt, sondern die Fenster auch synchronisiert werden:


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

drei Fenster synchronisieren -minimiert

Forumthread: drei Fenster synchronisieren -minimiert

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

drei Fenster synchronisieren -minimiert

Forumthread: drei Fenster synchronisieren -minimiert

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

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread