Ich habe zwei Arbeitsmappen, beide geöffnet. Auf jeden Monitor eine.
1.Überwachung.xls
2.Überwachung-Erweiterung.xls
Diese beiden Mappen sollen synchron scrollen, was auch perfekt funktioniert.
Zusätzlich in "Überwachung-Erweiterung.xls" sind bestimmte Zellen grün gefärbt, die erkannt werden sollen und dann "Exit Sub". Das funktioniert leider nicht.
Des Weiteren akzeptiert er den Bereicht ("C8:C527") nicht. Er scrollt über die Zelle
C527 hinaus. Was muss ich tun um den Scrollvorgang zu stoppen.
Sub Analyse()
Dim Zelle As Range
Application.Volatile
For Each Zelle In Range("C8:C527")
If Zelle.Interior.ColorIndex = 4 Then
Exit Sub
Else
Windows("Überwachung-Erweiterung.xls").Activate
ActiveWindow.SmallScroll Down:=1
Windows("Überwachung.xls").Activate
ActiveWindow.SmallScroll Down:=1
Windows("Überwachung-Erweiterung.xls").Activate
Sleep 130
End If
Next Zelle
End Sub
mfg Uli