Office: makro: datei aut. maximieren, wenn zellenwert A1>10

hallo liebe Leser,
ich möchte ein Makro schreiben, das folgendes bewirken soll: eine geöffnete, aber minimierte excel-datei (Excel 2003) soll dann automatisch maximiert werden, sobald der Zahlenwert der Zelle A1>10 wird (zur Erklärung: in die Zelle A1 laufen fortwährend Zahlenwerte über die RTD-Schnittstelle herein).

Vielen Dank für Eure Tipps

Lupus

 

Hi,

da beim Einlesen von Daten durch ein anderes Programm kein Ereignis ausgelöst wird, kannst du nur das Worksheet_Calculate Ereignis des Tabellenblattes verwenden.
Wie man eine minimierte Datei wieder maximiert kannst du mit dem Makrorekorder aufzeichnen.

Bis später,
Karin

 

hallo Karin,
danke für die Info, allerdings bin ich nicht so versiert, daß ich wüßte, wie man das Worksheet_Calculate Ereignis des Tabellenblattes verwendet, um zum Ziel zu kommen.

viele Grüße

Lupus

 

Hallo,

kopiere folgendes VBA-Makro in das Code-Modul desjenigen Arbeitsblattes, dessen Zelle A1 durch die RTD-Schnittstelle mit Zahlenwerten beschickt wird:

Code:

Private Sub Worksheet_Calculate()
  If [A1] > 10# Then
    Application.WindowState = xlMaximized
  End If
End Sub

Falls Du nicht weißt, wie man das macht, hier das Prozedere:
1) Markiere die weiße Codefläche mit der Maus und kopiere das Ganze in die Zwischenablage (Tastenkombination Strg+C).
2) Kehre in Dein Excel-Arbeitsblatt zurück und öffne den VBA-Editor (Tastenkombination Alt+F11).
3) Dann drücke die Tastenkombination Strg+R, um das Projekt-Fenster im VBA-Editor zu öffnen, falls es nicht schon geöffnet ist.
4) In diesem Projekt-Fenster siehst Du eine hierarchische Liste (ähnlich der Verzeichnisliste im Windows-Explorer).
Dort gibt es einen fett geschrieben Listeneintrag 'VBAProject (....)'; darunter steht der Eintrag 'Microsoft Excel Objekte' und nochmals 1 Zeile tiefer 'DieseArbeitsmappe'. Unterhalb dieses Eintrags beginnt dann eine Liste für die vorhandenen Arbeitsblätter. Auf denjenigen Arbeitsblatt-Listeneintrag, zu dem Deine Zelle A1 gehört, auf den machst Du einen Doppelklick mit der Maus, sodass sich das dazugehörige Codemodul-Fenster öffnet.
5) In diesem Codemodulfenster drückst Du die Tastenkombination Strg+V, um Dein Makro von vorhin einzufügen, das Du damit wieder sehen müsstest. - Dieses ist damit installiert.
6) Darauf kehrst Du wieder zurück in Dein Arbeitsblatt (mit der Tastenkombination Alt+F11).
7) Die Excel-Datei natürlich speichern.

Anmerkung: Damit in dem Arbeitsblatt das Berechnen-Ereignis ausgelöst wird, wenn sich die Zelle A1 verändert (über RTD), musst Du irgendwo im Blatt zumindest 1 Formel stehen haben, die den Wert von Zelle A1 verwendet.

 

man sollte anstelle von [] besser Range verwenden, da die Verwendung von eckigen Klammern als Zellbezug das Langsamste ist, welches Excel zu bieten hat.

Code:

Private Sub Worksheet_Calculate() 
    If Range("A1") > 10 Then ActiveWindow.WindowState = xlMaximized
End Sub 

Ich bin davon ausgegangen, dass es die aktive Arbeitsmappe ist.

Bis später,
Karin