|
Hallo Gast70117
So ganz hilft mir die Routine nicht, weil sie Timer getrigget ist.
Ich dachte mehr an eine Excel-Ereignis-Steuerung die eine Funktion aufruft wenn
1. in der Taskleiste durch Click auf das Excelsymbol die Tabelle aus dem Systray aufgeklappt wird.
In diesem Fall wird die Tabelle neu durchgerechnet und auf den aktuellen Stand gebracht. Bis die
Tabelle wieder beschrieben wird können Stunden vergehen.
Beispiel:
Es wird in der Tabelle zu bearbeitende Tag gesucht, dorthin positioniert, etwa so:
Application.Goto Reference:=Cells(iRow - 11, 1), Scroll:=True
|
Di 12.04.16 |
∑ |
∑ |
1 |
2 |
3 |
4 |
5 |
6 |
7 |
8 |
9 |
10 |
11 |
12 |
13 |
14 |
15 |
16 |
17 |
18 |
19 |
20 |
21 |
22 |
23 |
24 |
und die Stunde des Tages wird in den Focus genommen:
ActiveWindow.ScrollRow = Cells(iRow - 12, Std + 4).End(xlUp).Row
Cells(iRow + 4, Std + 4).Select
Diese Routine nimmt die Zelle der aktuellen Stunde in den Focus, wobei durch Zufall gesteuert diese Zelle, oder die der folgenden Stunde einstellt wird, um
eine bessere Verteilung der Daten zu erreichen. Beispiel: Wäre es jetzt 21:27 Uhr dann könnte in der "Glucode mg/dl heute"-Zeile der Focus auf 21:00 Uhr
oder, wenn es der Zufall will, auf 22:00 Uhr eingestellt werden.
|
Basal & Prandial gesamt |
35 |
72 |
|
|
|
|
|
|
|
|
17 |
|
|
|
|
|
|
|
|
|
|
|
18 |
|
|
|
|
Prandial |
27 |
|
|
|
|
|
|
|
|
10 |
|
|
|
|
14 |
|
|
|
|
|
|
|
3 |
|
|
|
|
Korrektur & Prandial gesamt |
10 |
37 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
5 |
|
|
5 |
|
|
|
|
Glucose mg/dl heute |
|
114 |
|
|
|
|
60 |
|
|
70 |
|
|
|
61 |
|
|
|
64 |
|
200 |
|
|
228 |
|
|
|
|
BE |
17 |
|
|
|
|
|
|
|
|
6 |
|
|
|
1 |
6 |
|
|
3 |
|
|
|
|
1 |
|
|
|
|
Durchschnitt BZ / Tage |
134 |
93 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
2. wenn die Tabelle bereits aufgeklappt ist genügt ein Click auf ein beschreibbares Feld, die Tabelle wird, wie in 1 beschrieben, auf den neuen Stand gebracht.
Hast Du vielleicht einen Vorschlag wie man sowas lösen kann.
|