Office: minimierte datei maximieren, wenn bestimmter wert erreicht

hallo, ich bitte freundlich um einen tipp,

wie kann ich erreichen, daß eine offene, aber minimierte excel-datei automatisch maximiert wird, sobald z.b. in zelle A1 ein zahlenwert größer 200 erreicht wird. (die zelle A1 wird anhand hereinkommender daten über die RTD-schnittstelle laufend neu berechnet).

danke und viele grüße,
lupus

 

Hallo,

folgendes Makro im Klassenmodul des betreffenden Arbeitsblattes müsste das Maximieren durchführen.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("A1")) Is Nothing Then
    If Target.Value > 200 Then Application.WindowState = xlMaximized
  End If
End Sub

Hinweise zur Installation, falls nötig:
1) Markiere und kopiere obiges Makro in die Zwischenablage von Windows (Tastenkombination Strg+C)
2) Gehe ins Excel-Arbeitsblatt und wechsle von dort in den VBA-Editor (Tastenkombination Alt+F11)
3) Im Projekt-Fenster (Tastenkombination Strg+R) des VBA-Editors klicke doppelt auf den betreffenden Arbeitsblatt-Namen (zB. 'Tabelle1')
4) Dadurch wird das Codefenster für das betreffende Arbeitsblatt angezeigt. In dieses füge den Makrocode aus der Zwischenablage ein (Tastenkombination Strg+V).
5) Wechsle wieder zurück ins Excel-Arbeitsblatt (Tastenkombination Alt+F11). Das Makro ist damit installiert.
6) Speichern der Excel-Datei nicht vergessen.