Diabetesinfo-Forum
SiDiary => Allgemeines => Thema gestartet von: ralfulrich am Juli 13, 2005, 20:24
-
Hallo zusammen,
bin der "Neue" hier ... ;D
Hat jemand eine Idee wo ich eine Anleitung für das parsen der SiDiary-Daten finde, um die Daten in eine frei gestaltete Excelvorlage einzufügen?
Vielen Dank und Grüße an alle.
-
Hallo Ralf,
willkommen! :)
Rein zufällig habe ich da 'was: :ja:
http://www.sidiary.org/download/ManualTemplDe.zip
;D
Ciaoi, Alf (ohne R) :duck:
-
Hallo Ralf,
willkommen! :)
Rein zufällig habe ich da 'was: :ja:
http://www.sidiary.org/download/ManualTemplDe.zip
;D
Ciaoi, Alf (ohne R) :duck:
Hallo Alf,
Dank für die Anleitung. Mal sehen, ob ich das hinbekomme. :kratz:
Viele Grüße
(großes) R (kleines) alf :lecker:
-
Hallo zusammen,
beim parsen mache ich irgendetwas falsch und bekomme die Fehlermeldung: Subscript out of range. Ich habe geschrieben:
[DATE$FORMATDAT(MMMM)] SiDiary A3
[STAT_A1C] SiDiary AI1
[STAT_MITTELWERT_BLOOD_PRESSURE]] SiDiary W2
[LIST_START_2] SiDiary 5
[DATE$FORMATDAT(DDD)] SiDiary A
[DATE$FORMATDAT(DD)] SiDiary B
[BLOOD_GLUCOSE1] SiDiary C
[BE_KHE1] SiDiary D
[BOLUS1] SiDiary E
[BASAL1] SiDiary F
[BLOOD_GLUCOSE2] SiDiary G
.....
[BLOOD_GLUCOSE8] SiDiary AB
[BE_KHE8] SiDiary AC
[BOLUS8] SiDiary AD
[BASAL8] SiDiary AE
[LIST_END_2] SiDiary 7
[$CALLMAKRO(Tabelle2.SiDiary_ToDo)] SiDiary
Was mache ich nur falsch, wer kann helfen?
Viele Grüße
Ralf
-
Hi Ralf,
mail' mir doch mal Deine Excel-Vorlage, dann debugge ich's durch und kann Dir sagen wo's klemmt... ;D
Ciaoi, Alf.
-
Hallo Alf,
vielen Dank für Dein Angebot. Habe Dir die fragliche Excel-Vorlage gezipt und gestern zugemailt. Wenn Du es hinbekommst, kannst Du sie gerne für alle zum Download bereitstellen.
Gibt es irgendwo einen Link, wo mehr Excel-Vorlagen verfügbar sind?
Viele Grüße,
Ralf
-
Hab´s doch gewußt, Alf ist ´ne Wucht. Er hat´s hinbekommen. Mache mich nun an die Kleinarbeit. :heilig: Wenn ich die Tabelle fertig habe stelle ich sie im Downloadbereich zur Verfügung.
Hier noch mal meinen allerbesten Dank an den Autor. :prost: :prost:
Viele Grüße
Ralf
-
Hallo zusammen,
habe wie versprochen die neue Export-Vorlage "Monatsübersicht" für Excel fertiggestellt und vorgestern Alf rübergeschoben. Wenn er zufrieden ist :gruebeln: wird er sie im Downloadbereich zur Verfügung stellen. Bislang habe ich allerdings noch kein Feedback ... :kratz:
Viele Grüße
Ralf
-
Kommt noch, ich denke morgen... :zwinker:
-
ich würde auch gerne die Tabelle downloaen!
kann mir einer sagen wo?
mfg Busibra
-
Ich hatte mir die Vorlage zwischenzeitlich angesehen und kann Euch schon mal hier den Mund wässrig machen. Wir werden eine kleine Story über Ralf schreiben als gutes Besipiel, was man mit der Export-/Druck-Schnittstelle so alles zaubern kann!
Download wird dann zusammen mit der News verfügbar sein (im Bereich Vorlagen)...
Viele Grüße, Alf.
-
Download wird dann zusammen mit der News verfügbar sein (im Bereich Vorlagen)...
Und Screenshots? ;D
-
Ha, so macht man Leute neugierig... :zwinker:
Geduld, Geduld... :duck:
-
Ha, so macht man Leute neugierig... :zwinker:
Geduld, Geduld... :duck:
Ja so ist das... liegt wohl in der Natur des Menschen > Lord auch schon ganz neugierig ist :zwinker:
-
Hallo zusammen,
habt noch ein paar Stündchen Geduld. Bin noch ein bischen hier und da am Feilen... :kratz:
Meine Diabetologin bekommt immer ganz feuchte Augen, wenn ich ihr am Quartalsende die drei Ausdrucke vorlege... :heilig:
Viele Grüße
Ralf
-
Hallo zusammen,
habt noch ein paar Stündchen Geduld. Bin noch ein bischen hier und da am Feilen... :kratz:
Meine Diabetologin bekommt immer ganz feuchte Augen, wenn ich ihr am Quartalsende die drei Ausdrucke vorlege... :heilig:
Hallo Ralf,
immer mit der Ruhe, das kenne ich von mir auch zu gut, der liebe Perfektionismus ein Fluch und ein Segen zu gleich... :zwinker:
Lord
-
Hallo zusammen,
habe nun nochmal alles überprüft und getestet und bin der Meinung, daß die neue Excel-Tabelle für den Export eines Datensatzes über einen Zeitraum von einem Monat aus SiDiary ein brauchbars Ergebnis liefert.
Alf ist sicher schon mit den Nerven zu Fuß. Aber ich denke er ist nachsichtig und wird die Tabelle im Downloadbereich schnell bereitstellen. :pc:
Bin mal auf Euer Feedback gespannt. Sicher gibt es noch etwas Entwicklungspotential. Ich hätte selbst schon noch einige Ideen ... :kratz:
Viele Grüße,
Ralf
-
"Licht aus, Spot an:"
http://www.sidiary.de/
ganz nach unten scrollen...
:super:
Bringt die Leitung zum Glühen!
Anmerkung: Wer die Vorlage verwenden will, sollte den Hinweis lesen und in befolgen ;):
Es ist die neueste Exe aus dem Download-Update-Bereich nötig!
-
Hi Alf,
sorry, mußte doch noch eine Kleinigkeit ändern, damit bzgl. "Korrektureinheiten" keine Mißverstämdnisse entstehen... :kratz:
Die Änderung liegt schon in Deinem Postfach. :zwitscher:
Laß Dir mal von von den Usern so richtig daß Fell kraulen;-) Ohne den großen Meister hätte ich daß nie hinbekommen. :prost: :prost:
Aber Freitagabend sind die wohl alle auf der Piste?
.... und damit Alfs neue BZ-Statistik auch richtig zur Geltung kommt, habe ich auch gleich noch eine neue Grafik mit dazu geliefert. ;D
Hoffentlich ist Alf nicht sauer, zwei Tage im Web und schon eine Änderung... :kratz:
Viele Grüße
Ralf
-
Hallo Ralfulrich
Hallo Alf
habe grade mal versucht die Vorlage zu verwenden
gibt es da Versionseinschränkungen bezüglich EXEL
hab noch '97 laufen.
letztes Update habe ich vorher installiert
nach export bekomme ich die abfrage ob Makro aktivert werden soll und nach ja
sehe ich die Tabelle aber ohne einträge habe ich irgend etwas verpasst :kratz:
gruss Olaf
-
Ich muss gestehen, dass ich kein Excel97 mehr einsetze und da ich bei mir auch nicht den Hinweis bekomme, eine ältere Excel-Datei zu öffnen, gehe ich davon aus, dass auch Ralf das nicht in 97 gemacht hat. Grundsätzlich hätte ich gedacht, dass das auch mit Excel97 funktioniert aber ich kann's hier nirgends testen.
Sorry, da muss ich passen... :-\
-
Ich habe auch noch Excel97 mit SP 2...
ich sehe da auch die Werte bis jetzt nichts wirklich gesehen was nicht funktioniert...
nur bei einer Zelle habe ich "B 12 :" oder so stehen, weiss nicht ob das so beabsichtigt ist.
Lord
-
Hi zusammen,
also ich habe Windows XP SP2 mit Office XP d.h. Excel 2002 SP3 installiert. Kann das daher leider nicht überprüfen.
Grüße
Ralf
-
Versucht doch einfach mal, die für Olaf im Excel97-Format abzuspeichern. (Kann man beim Speichern unter "Dateityp" auswählen).
Manchmal reicht das schon (wenn da nicht gerade ein paar Makrofunktionen genutzt werden, die 97 noch nicht konnte).
Deswegen hatte ich für mein Sheet ja auch noch zusätzlich eine 97er-Version angeboten
-
Also wenn ich Markus richtig verstanden habe, hat er die Daten in seinem 97'er Excel sehen können? :kratz:
-
Also wenn ich Markus richtig verstanden habe, hat er die Daten in seinem 97'er Excel sehen können? :kratz:
Korrekt :ja: ich konnte die Datei öffnen ohne das der Compi gemeckert hat und
Daten standen auch drin. Sah auch so aus als ob die Daten passten, habe ich aber nicht
geprüft, sah auf den ersten Blick OK aus.
Wenn ich mit meiner Anleitung fertig bin, schau ich mir das ganze mal etwas genauer an. :zwinker:
Lord
-
Hallo
Also nochmal zu meinem System
habe win2k und exel97
nach klick auf export kommt die Auswahl der Datei. angeklickt weiter
Balken wandert von licks nach rechts.
Dann erscheint im Statusfenster ganz unten "Führe Exel Macro ..."
dann erscheint Exel und fragt ob Macro ausgeführt werden soll
nach Ja erscheinen die Tabelle und die ShEParser Tabelle (die sollte ja eigentlich nicht mehr sichtbar sein??)
aber ich probiere mal noch die Makroabfrage auszuschalten evtl. liegt es daran.
weiss nur nicht mehr genau wo das war :gruebeln:
Gruss Olaf
-
Ich bekomme auch die Warnung Makro... ausführen... kein Problem diesbezüglich.
Hast Du auch das SP 2a für Office97 installiert :kratz:
Ansonsten habe ich auch W2K, bei mir mit SP4 und den darauffolgenden Sec. Updates
Lord
Nachtrag :
:patsch: Da fällt mir noch ein ähnliche Probleme hatte ich glaube ich auch schonmal...
Der Komplette Path und Dateiname darf 127 Zeichen nicht überschreiten!
Versuchs einfach mal zu Testzwecken die Vorlage z.B. direkt auf "C:\" zu speichern unddiese Datei dann von SiDiary
aus aufzurufen (aber nicht 127 Zeichen für den Dateinamen verwenden :zwinker:).
-
Guten Tag,
dem "Erfinder" dieses Programmes ein dickes Kompliment und eine DANKE, :knuddel: dass er dieses Programm zur Verfügung gestellt hat.
Ich arbeite mit Excel 2002, XPHome mit SP 2 und habe keinerlei Probleme.
pfaelzer
-
Hallo Leute
Danke für den ganzen Aufwand
@LordBritish
Der Tip mit Office SR2 hat etwas gebracht hatte noch SR1 drauf
hab SR2 drauf gemacht und schon hat es gefunzt :super:
@Ralf
sieht gut aus. :anfeuer: muss blos noch die Änderungen für mmol machen
brauchst mir nicht mehr als e-mehl senden.
Danke
Gruss Olaf
-
Danke für den ganzen Aufwand
@LordBritish
Der Tip mit Office SR2 hat etwas gebracht hatte noch SR1 drauf
hab SR2 drauf gemacht und schon hat es gefunzt :super:
Freut mich zu hören :super:
-
Guten Tag,
dem "Erfinder" dieses Programmes ein dickes Kompliment und eine DANKE, :knuddel: dass er dieses Programm zur Verfügung gestellt hat.
Ich arbeite mit Excel 2002, XPHome mit SP 2 und habe keinerlei Probleme.
pfaelzer
Hallo pfälzer,
hier gibt es zwei "Erfinder". Alf hat die Schnittstellen und die meiste Statistik, ich die Grafik und Diagramme zur Verfügung gestellt. Oder anders gesagt ich das Leichte und Alf das Komplizierte. :ichbaer:
Grüße
Ralf
-
Oder anders gesagt ich das Leichte und Alf das Komplizierte. :ichbaer:
Das ist aber trotzdem ein "pretty good job" von dir. In das Sheet selber hab ich noch nicht reingeschaut, aber die Screenshots haben mir schon sehr gefallen. Vor allem diese Verlaufskurve, die auch BE und Boli gegenüberstellt hat es mir angetan. Damit könnte man schnell erkennen, wenn mal etwas aus dem Ruder läuft.
-
Oder anders gesagt ich das Leichte und Alf das Komplizierte. :ichbaer:
Das ist aber trotzdem ein "pretty good job" von dir. In das Sheet selber hab ich noch nicht reingeschaut, aber die Screenshots haben mir schon sehr gefallen. Vor allem diese Verlaufskurve, die auch BE und Boli gegenüberstellt hat es mir angetan. Damit könnte man schnell erkennen, wenn mal etwas aus dem Ruder läuft.
Hallo Jörg,
nicht zuviel des Lobes. Schon scheint sich ein Flüchtigkeitsfehler eingeschlichen zu haben. Olaf hat mich darauf aufmerksam gemacht. Die BZ-Werte zwischen 160 und 120 werden nur Morgens korrekt ausgeben. Für den Rest des Tages fallen sie unter den Tisch. :knatschig: Die berichtigte Vorlage liegt aber schon in Alfs Postfach. :heilig:
Die Trendlinie für den BZ im Diagramm gefällt mir noch am besten. Damit hat man stets die volle Kontrolle.
Leider habe ich noch ein kleines Problem und noch keine gute Idee. Zur Zeit kann ich das Feld AL2 (BZ-Messungen im Jahr) noch nicht bedienen. Wenn ich die Vorlage nach dem Export als Tabellenblatt in eine Arbeitsmappe für alle 12 Monatsblätter verschiebe, müßte im Feld AL2 im Blatt Juli stehen: =SUMME(AI2+Juni!AL2). Im Blatt August dann: =SUMME(AI2+Juli!AL2) usw. Das bekomme ich nicht in die Vorlage. Hätte da jemand eine Idee?
Grüße,
Ralf
-
Leider habe ich noch ein kleines Problem und noch keine gute Idee. Zur Zeit kann ich das Feld AL2 (BZ-Messungen im Jahr) noch nicht bedienen. Wenn ich die Vorlage nach dem Export als Tabellenblatt in eine Arbeitsmappe für alle 12 Monatsblätter verschiebe, müßte im Feld AL2 im Blatt Juli stehen: =SUMME(AI2+Juni!AL2). Im Blatt August dann: =SUMME(AI2+Juli!AL2) usw. Das bekomme ich nicht in die Vorlage. Hätte da jemand eine Idee?
Hallo Ralf,
probier mal folgendes :
"=SUMME(SUMME(SUMMEWENN(INDIREKT("Tabelle"&{1;3;2}&"!A1:A1");">1")))"
Das würde zumindest funktionieren, wenn die Tabellenblätter sich Tabelle1, Tabelle2 usw. nennen würden.
Im Beispiel wird von denTabellenblättern 1-3 der Spalte A das Feld 1 summiert.
Für sowas empfiehlt sich immer mein Freund Google :zwinker:
Grüße
Lord
-
Leider habe ich noch ein kleines Problem und noch keine gute Idee. Zur Zeit kann ich das Feld AL2 (BZ-Messungen im Jahr) noch nicht bedienen. Wenn ich die Vorlage nach dem Export als Tabellenblatt in eine Arbeitsmappe für alle 12 Monatsblätter verschiebe, müßte im Feld AL2 im Blatt Juli stehen: =SUMME(AI2+Juni!AL2). Im Blatt August dann: =SUMME(AI2+Juli!AL2) usw. Das bekomme ich nicht in die Vorlage. Hätte da jemand eine Idee?
Du könntest mit einer Hilfszelle 'Übertrag' (oder so ähnlich arbeiten). Und in die trägst du dann per Makro den Wert von AL2 ein.
Ich hab das in 'Arbeitszeit 4.0' (http://www.diabetesinfo.de/download/arbeitszeit/index.php) so gelöst, daß ein neues Monatsblatt per Makro angelegt wird. Und Teil dieses Makros ist eben auch, bestimmte Zellen auszulesen und den Wert in bestimmte Zellen des neuen Sheets einzufügen.
-
Hallo zusammen,
mm, hört sich gut an. :lecker: Werde mich bei Gelegenheit mal dransetzen. Danke!
Wow, Alf die Site liest sich gut: http://www.sidiary.org/?id=229 :super:
Wenn Du mal gaaaaanz viel Zeit haben solltest, würden wir uns alle über noch mehr Schnittstellen zu SiDiary freuen.
Wie wärs z.B. mit der Summe BZ-Messungen im Jahr... :lecker:
Viele Grüße
Ralf
-
Hallo Gemeinde
Da es ja auch Leute gibt, welche in der richtigen Einheit (mmol) messen. bin ich mit Ralf dran die Exelvorlage auch auf diese Leute (mich) abzustimmen. Wirft aber noch stellenweise einige Probleme mit den Werten auf. z.B mmol mit Komma mg ohne Komma.
nun meine Frage an Alle währe es besser die Versionen getrennt als Vorlagen zu haben oder eine Vorlage die für alle Funktioniert.
Einige Änderungen haben wir schon. (Z.B die Anpassung der BZ-Summen auch an andere Bereiche z.B kann man anstatt 180 z.B 155 oder auch 8 eingeben) :super:
@ Jörg
kannst Du so eine Abstimmung machen wie Joa es schonmal gemacht hatte
mit Auswahl : Universalversion oder getrennte Versionen
gruss Olaf
PS: ich bin für eine Universalversion, da hat man nur eine zur Auswahl und kann nach Murphy nicht die falsche auswählen
:kreisch:
-
Hallo Olaf,
ich glaube das ist doch ein ziemlicher Aufwand mg/dl und mmol/l in nur einer Vorlage korrekt zu bedienen.
Aber davon mal abgesehen, könnte man die Formel
=WENN(AI7="";"";WENN(AI7>40;((AI7+86)/33,3);((AI7*18,018+86)/33,3))) nicht auch auf die BZ<80, BZ<4 usw. anwenden?
Dann wäre da noch die Kommastelle, da wird der mg/dl Wert zu lang. Ich müste die Felder breiter machen und dann wirds sehr eng...
Ich schlage vor: Alle mmol User steigen um auf mg/dl. ;D Da sieht die Diagrammauswertung doch sehr viel besser aus. Bei mmol liegt die Zuckerkurve viel zu tief unter den BE, BO und BA Kurven... :zunge2:
-
Aber davon mal abgesehen, könnte man die Formel
=WENN(AI7="";"";WENN(AI7>40;((AI7+86)/33,3);((AI7*18,018+86)/33,3))) nicht auch auf die BZ<80, BZ<4 usw. anwenden?
Dann wäre da noch die Kommastelle, da wird der mg/dl Wert zu lang. Ich müste die Felder breiter machen und dann wirds sehr eng...
Ich schlage vor: Alle mmol User steigen um auf mg/dl. ;D Da sieht die Diagrammauswertung doch sehr viel besser aus. Bei mmol liegt die Zuckerkurve viel zu tief unter den BE, BO und BA Kurven... :zunge2:
Hallo Ralf
Die Formel kannst Du auch auf BZ <80 --> BZ<4 anwenden
nur meine Idee dabei war dass mann auch anstatt BZ <80 z.B. BZ <97 verwenden kann, falls einer andere Grenzen verwenden möchte als die welche so vorgegeben sind. Mein Bereich liegt bei 4-8 mmol es gibt aber sicherlich auch ärtzte die einen evtl bei 4.5 - 7 mmol haben möchten.
und wenn dann müssten alle mg User auf mmol umsteigen lässt sich doch viel besser rechnen
z.B eine IE senkt meinen BZ um eins ist einfach. Z.B habe 9 will 6 spritze drei ,das kann man gerade noch ausrechnen. :pc:
gruss Olaf
-
Hallo Olaf,
aber wie willst Du das mit der bedingten Formatierung machen: <80 bzw. 4 blaue Werte >160 bzw. 8 rote Werte usw. Da könnte dann nur ein Makro weiterhelfen, oder? :kratz:
Viele Grüße,
Ralf
-
und wenn dann müssten alle mg User auf mmol umsteigen lässt sich doch viel besser rechnen
z.B eine IE senkt meinen BZ um eins ist einfach. Z.B habe 9 will 6 spritze drei ,das kann man gerade noch ausrechnen. :pc:
Das klappt auch nur dann, wenn das Schema so passt, was ist aber bei ungeraden Werten z.B. 1,27 o.ä. :kratz:
Ist doch auch egal ob mg/dl oder eben mmol, Hauptsache man kommt zurecht.
Ist doch ziemlich schwer plötzlich in einer anderen Einheit zu rechen, man ist es halt gewöhnt und
letztendlich kommen beide Einheiten zum gleichen Ergebnis. :zwinker:
Aber ich denke mal so Ernst war das nciht gmeint :zwinker:
Lord
-
Hallo zusammen,
ich habe Alf erst mal eine mmol-Version ins Postfach geschoben, damit den mmol-Usern schnell geholfen werden kann.
Wenn Olaf sich zutraut eine Vorlage zu erstellen die mg und mmol gleich gut bedient, kann er es ja versuchen.
Jedoch wird die Datei dann ziemlich groß werden. Im Excel97 Format hat die ausgefüllte Vorlage jetzt schon an die 150Kb. Zwölf Blätter in einer Jahresmappe kommen locker auf über 1,5Mb. Ich weiß nicht ob man einen solchen Brocken überhaupt noch auf dem PPC öffnen kann... :kratz:
Grüße,
Ralf
-
@Lord
natürlich war das alles Toooooternst gemeint :ironie:
Ich habe nur immer Spass daran, wenn ich zum Doc gehe, weil der auch in mg/dl rechnet (is hier unten halt so, wobei 100 Meter weiter in der Schweiz sinds wieder mmol :super:)
@Ralf
wieso PPC :kratz:
ich war immer der Meinung auf dem PC und dann ausdrucken für den Doc
grüsse Olaf
-
Wirft aber noch stellenweise einige Probleme mit den Werten auf. z.B mmol mit Komma mg ohne Komma.
Welches Problem hast du denn da? Beim Umrechnen? Dann brauchst du doch nur die Zelle mit den mg-Werten entsprechend zu formatieren (daß da keine Kommata angezoegt werden)
nun meine Frage an Alle währe es besser die Versionen getrennt als Vorlagen zu haben oder eine Vorlage die für alle Funktioniert.
Kommt darauf an: Programmtechnisch wäre es sicher eine Leistung, alles unter einen Hut zu bringen. Aber einfacher wäre es zwei getrennte Sheets zu machen.
@ Jörg
kannst Du so eine Abstimmung machen wie Joa es schonmal gemacht hatte
mit Auswahl : Universalversion oder getrennte Versionen
Kannst du selber machen: Klick einfach mal statt auf "Neues Thema" auf "Neue Umfrage".
PS: ich bin für eine Universalversion, da hat man nur eine zur Auswahl und kann nach Murphy nicht die falsche auswählen
Lad dir doch mal zur Ansicht mein Sheet runter (http://www.diabetesinfo.de/download/index.php). Da ist das so gelöst, das ist auch "zweisprachig" :zwinker:
-
Dann wäre da noch die Kommastelle, da wird der mg/dl Wert zu lang. Ich müste die Felder breiter machen und dann wirds sehr eng...
Wieso? Formatier die doch einfach als Zahl mit Null Dezimalstellen
-
Die Formel kannst Du auch auf BZ <80 --> BZ<4 anwenden
nur meine Idee dabei war dass mann auch anstatt BZ <80 z.B. BZ <97 verwenden kann,
Sicher. Du darfst nur die Grenzwerte nicht direkt in die Formel eingeben. Mach doch ein Extra-Blatt 'Grenzwerte' und wenn da z.B. in A10 der Grenzwert steht lautet die Formel nicht mehr
...WENN(AI7>40;...
sondern
...WENN(AI7>'Grenzwerte'!A10;
Und schon kannst du jede x-beliebigen Grenzwert eintragen und den auch später noch ändern.
Es ergbt sich ein potentieller Nachteil: diese Änderung findet dann auch auf älteren Blättern statt, wenn da drin nicht die Zahl sondern die Formel steht.
Man kann sich aber ein Makro schreiben, daß die Werte ausliest und dann die Formel gegen den Wert austauscht. Und dann ist das 'save'. (Findest du auch in meinem Tagesprofilsheet)
-
aber wie willst Du das mit der bedingten Formatierung machen: <80 bzw. 4 blaue Werte >160 bzw. 8 rote Werte usw. Da könnte dann nur ein Makro weiterhelfen, oder? :kratz:
Nein, ist nicht nötig. Das kannst du auch mit einem Extra-Blatt 'Grenzwerte' lösen. In der bedingten Formatierung kannst du aber nicht mit 'Grenzwerte'!A10 oder so arbeiten. Da musst du der Zelle schon einen Namen geben.
Schau dir mal die bedingte Formatierung auf dem Labor-Blatt in meinem Sheet an, da wird das auch so gemacht.
-
@ Jörg
Die Formatierung mit null Kommstellen passt da dann aber nur für mg nicht mehr für mmol glaube ich :kratz:
gibt es da nicht eine Formatierung die bei XXX.0 die Kommastellen einfach nicht anzeigt :gruebeln:
weil ja die mmol oder mg eingetragen werden, so dass wenn ich mmol habe die kommas brauche und bei mg nicht, da Zellen dann zu breit würden
Die Formel kannst Du auch auf BZ <80 --> BZ<4 anwenden
nur meine Idee dabei war dass mann auch anstatt BZ <80 z.B. BZ <97 verwenden kann,
Sicher. Du darfst nur die Grenzwerte nicht direkt in die Formel eingeben. Mach doch ein Extra-Blatt 'Grenzwerte' und wenn da z.B. in A10 der Grenzwert steht lautet die Formel nicht mehr
...WENN(AI7>40;...
sondern
...WENN(AI7>'Grenzwerte'!A10;
Und schon kannst du jede x-beliebigen Grenzwert eintragen und den auch später noch ändern.
Es ergbt sich ein potentieller Nachteil: diese Änderung findet dann auch auf älteren Blättern statt, wenn da drin nicht die Zahl sondern die Formel steht.
Man kann sich aber ein Makro schreiben, daß die Werte ausliest und dann die Formel gegen den Wert austauscht. Und dann ist das 'save'. (Findest du auch in meinem Tagesprofilsheet)
ich habe da einfach einen Zellenbezug drin wo man dann vorne in der Spalte den Wert 80 in 97 oder 4 ändert und Exel das dann automatisch ändert, müsste man nur bei jeden Export ändern, wenn man die Vorlage nicht einmal anpasst.
ich guck mal in dein Scheet und werde mal noch etwas basteln
mit VB6 kenne ich mich aber nicht so aus, also grössere Makros sind im Moment für mich nichts
gruss Olaf
-
Hallo zusammen,
immer wenn hier die Post abgeht bin ich nicht im Netz...
Ich synce die Arbeitsmappe mit den Werten auf den PPC, um sie dann meiner Ärztin auf ihr Notebook zu beamen.
Ist immer eine riesen Freude...
Jetzt hat die pxl aber schon stolze 698Kb, obwohl die Diagramme dort ja nicht angezeigt werden. Aber die Daten müssen wohl drin sein.
Hallo Jörg,
Deine xls ist schon ein starkes Teil. :lecker: Wie lange hast Du denn darüber gebrütet, wenn man fragen darf? :staun:
Grüße,
Ralf
-
weil ja die mmol oder mg eingetragen werden, so dass wenn ich mmol habe die kommas brauche und bei mg nicht, da Zellen dann zu breit würden
Deswegen habe ich bei mir die Umschaltung mg/dl <-> mmol/l per Makro gelöst. Das rechnet nicht nur die Werte um, es ändert auch die Formatierung.
mit VB6 kenne ich mich aber nicht so aus, also grössere Makros sind im Moment für mich nichts
Ich kenn mich damit auch nicht sonderlich aus. Teilweise habe ich meine Makros einfach mit dem Makrorecorder aufgezeichnet und dann die Aufzeichnung ein bißchen abgeändert. (Mit der Zeit kriegt man schon mit, welche Schritte da überflüssig sind)
Und wenn man so ein fertiges Makro mal ein bißchen analysiert, dann kommt man auch ohne große Kenntnisse schnell hinter das Grundprinzip.
-
Deine xls ist schon ein starkes Teil. :lecker: Wie lange hast Du denn darüber gebrütet, wenn man fragen darf? :staun:
Weiß ich gar nicht mal. Das ist ja nicht alles in einem Rutsch entstanden sondern im Laufe der Zeit mitgewachsen. Ich hab damals noch die Excel-Newsgroup von Microsoft (http://groups.google.de/group/microsoft.public.de.excel) regelmässig gelesen und immer wenn da was kam, was für mein Sheet interessant sein konnte hab ich es eingebaut :zwinker:
-
Hallo Jörg,
miir ging es genauso. Ich war auch immer irgendwas am ändern und verbessern, wobei bei mir der Wunsch nach einer kleinen Dateigröße in maximal DIN A4 mit möglichst vielen Informationen im Vordergrund stand. Bevor mir SiDiary vor die Füße fiel habe ich meine Daten täglich auf dem PPC in diese Tabelle eingetragen, natürlich ohne Diagramme und mit dem PC gesynct. Klappte auf dem PPC auch ganz gut, die Datei von ca. 40 bis 500 Kb ließ sich noch flott öffnen und ein Tagesereignis mit BZ-BE-BO-BA paßte in der Breite gerade auf den Schirm. Aber das skrollen wird auf Dauer doch lästig... :knatschig:
Grüße,
Ralf
-
Bevor mir SiDiary vor die Füße fiel habe ich meine Daten täglich auf dem PPC in diese Tabelle eingetragen,
Ich hab das ähnlich gemacht. (Allerdings nicht mit PPC)
Ich hab meine Werte (wenn überhaupt :rotwerd: ) im Novo-TB protokolliert und das dann einmal pro Woche in mein Sheet übertragen.
Dann kam SiDiary und damit habe ich meine Entwicklung eingestellt. (Warum das Rad neu erfinden)
Dein Sheet ist da wieder was anderes, weil es andere Möglichkeiten der Auswertung bietet.
-
Hallo Jörg,
habe früher alle möglichen Papiertagebücher ausprobiert (für jeden Tag eine Seite) und mich immer geärgert, daß man nie einen Überblick über einen längeren Zeitraum hat. Dann habe ich angefangen selbst ein Papiertagebuch zu gestalten. Am besten waren dafür die gefalteten Jahrestaschenkalender geeignet, mit einem Monat auf der Doppelseite. Dort habe ich dann mit dem Kuli senkrechte Linien gezogen und den Kopf mit "Morgens, BZ-BE-BO-BA" usw. beschriftet, bis mir das zu läsitig wurde und ich zu MS Excel gegriffen habe... :lecker:
Habe versucht die fehlenden Formatierungen für mmol für eine universelle Vorlage in Alfs Sheet zu integrieren:
If UCase(Sheets("Sidiary").Range("AN1").Text) = "MMOL/L" Then...
Läuft leider nicht.... :knatschig:
Grüße,
Ralf
-
Habe versucht die fehlenden Formatierungen für mmol für eine universelle Vorlage in Alfs Sheet zu integrieren:
If UCase(Sheets("Sidiary").Range("AN1").Text) = "MMOL/L" Then...
Läuft leider nicht.... :knatschig:
Bei solchen Sachen (Gerade wenn es um VBA-Macros geht) würde ich dann in der Excel-NG mal nachfragen. Da sitzen die Cracks, die VBA lesen wie unsereins Comic-Heftchen.
Oder mail mir doch mal das Sheet, ich schau dann mal rein. (Und sag mir, was genau dieses Makro bezwecken soll)
-
Ich habe auch mal ein wenig mehr im Internet gestöbert, ich bin zu der Schlußfolgerung gekommen
das es höchtswahrscheinlich auf eine Lösung in VBA hinausläuft.
Mit Standardboardmitteln sehe ich zumindest keine Chance...
Lord
-
Hallo zusammen,
die Aktionen: Blatt umbenennen, BZ-Werten Farben zuweisen wenn BZ in mmol bestimmte Werte annimmt und BZ Bedingungen <4, <6, <8, <11 und >=11 für die Statistische Auswertung in mmol laufen als Einzelmakros. Ich kann aber keines in Alfs SiDiary ToDo Makro integrieren... :-\
Grüße,
Ralf
-
Warum nicht?
Normalerweise sollte das problemlos möglich sein?! Notfalls den Makrocode in das Modul des ToDo-Makros umkopieren und dann dort aufrufen oder den Code Deiner Makros selbst in das ToDo-Makro einfügen... ;)
-
Hi Alf
Notfalls den Makrocode in das Modul des ToDo-Makros umkopieren und dann dort aufrufen oder den Code Deiner Makros selbst in das ToDo-Makro einfügen... ;)
Genau das versuche ich zur Zeit auch ...
Per PM habe ich Dir meine kläglichen Versuche ja schon mitgeteilt ...
Oder wäre es besser, wenn ich das hier mehr abwickeln würde?
Gruß Andi
-
Notfalls den Makrocode in das Modul des ToDo-Makros umkopieren und dann dort aufrufen oder den Code Deiner Makros selbst in das ToDo-Makro einfügen... ;)
Hmmmm, an welcher Stelle 'Deines' Makros sollte den der zusätzliche Code rein? :kratz:
Davor oder danach :gruebeln:
Gruß Andi
-
Das Default-Makro in den Vorlagen enthielt ja nur 4 Zeilen - zusätzlichen Code am besten danach einfügen! :)
Ich schaue mir Deine Vorlage auch noch an, habe mir nur ein SiDiary-freies Wochenende gegönnt! ;)
Ciaoi, Alf.
-
Das Default-Makro in den Vorlagen enthielt ja nur 4 Zeilen - zusätzlichen Code am besten danach einfügen! :)
Hmmmm, schaumermal ... :gruebeln:
Ich schaue mir Deine Vorlage auch noch an, habe mir nur ein SiDiary-freies Wochenende gegönnt! ;)
Nur keine Eile. Es sind schließlich meine ersten Gehversuche mit diesem Excel-Zeuchsels ... :zwinker:
Gruß Andi
-
Das Default-Makro in den Vorlagen enthielt ja nur 4 Zeilen - zusätzlichen Code am besten danach einfügen! :)
Hmmmm, schaumermal ... :gruebeln:
Hmmm, Excel ist recht hartnäckich :balla:
"Beim Parsen der Excel-Vorlage trat der folgende Fehler auf: Application-defined or object-defined error"
Mein Macro alleine tut die Arbeit allerdings hervorragend :ja:
Nur wenn ich das bei 'Dir' mit reinpacke oder mittels [$CALLMAKRO(Tabelle2.sort_bd)] extra aufrufe, kommt die doofe Meldung :knatschig:
Gruß Andi
-
Hallo zusammen,
die gleiche Fehlermeldung haut mir SiDiary schon das ganze Wochenende um die Ohren. Habe Jörg das Sheet gepostet. Hier mal mein Versuch:
Sub Monat_speichern()
'
' Monat_speichern Makro
' Makro am 13.08.2005 von Ralf Ulrich aufgezeichnet
'
'
Range("A3").Select
Selection.Copy
Sheets("SiDiary").Select
Sheets("SiDiary").Name = Range("A3")
End Sub
Dieses Makro funktioniert im Sheet SiDiaryToDo, wenn ich es zum Schluß plaziere [$CALLMAKRO(Monat_speichern)], wird dann aber nicht gelöscht. Es läuft aber nicht wenn ich es in Alfs Makro zum Schluß einbaue...
'Hier nun Alfs Makro, er hat schon den Zahlen in den BZ-Zellen die Kommastelle zugewiesen, wenn mmol Daten vorliegen.
Public Sub SiDiary_ToDo()
Dim liZeile As Integer
Dim liEndZeile As Integer
Sheets("Sidiary").Select
'Das Ende des Datenbereichs feststellen...
'Dazu suchen wir einfach die Zeichenkette ØM in der ersten Spalte...
liZeile = 5
Do While liZeile < 371
If Sheets("Sidiary").Range("A" & liZeile).Text = "ØM" Then
'Perfekt, die Zeile davor ist die letzte Zeile des Datenbereichs
liEndZeile = liZeile - 1
Exit Do
End If
liZeile = liZeile + 1
Loop
If liEndZeile > 0 Then
'Die Formatierung machen wir nur, wenn wir den Datenbereich korrekt identifizieren konnten!
'Die letzte Leerzeile löschen
Sheets("Sidiary").Rows(liEndZeile & ":" & liEndZeile).Select
Selection.Delete Shift:=xlUp
liEndZeile = liEndZeile - 1
'Jetzt zeilenweise selektieren
For liZeile = 6 To liEndZeile Step 2
Sheets("Sidiary").Range("A" & liZeile & ":AH" & liZeile).Select
Sheets("Sidiary").Range("A" & liZeile).Activate
With Selection.Interior
.ColorIndex = 35
.Pattern = xlSolid
End With
Next liZeile
If UCase(Sheets("Sidiary").Range("AN1").Text) = "MMOL/L" Then
'Prüfen, ob der Anwender evtl. in mmol/l arbeitet, denn dann sollten wir
'den Blutzucker mit einer Nachkommastelle anzeigen!
Sheets("Sidiary").Range("C" & liEndZeile + 1 & ",G" & liEndZeile + 1 & ",K" & liEndZeile + 1 & ",O" & liEndZeile + 1 & _
",S" & liEndZeile + 1 & ",W" & liEndZeile + 1 & ",AA" & liEndZeile + 1 & ",AE" & liEndZeile + 1 & _
",AI5:AI" & liEndZeile + 1).Select
Sheets("Sidiary").Range("AI5").Activate
Selection.NumberFormat = "0.0"
'Hier habe ich nun die bedingte Formatierung der BZ-Zahlen eingeschoben:<<<<<<<<<<<<<<<<<<<<
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="4"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = True
.ColorIndex = 41
End With
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _
Formula1:="6"
Selection.FormatConditions(2).Font.ColorIndex = 11
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual _
, Formula1:="8"
Selection.FormatConditions(3).Font.ColorIndex = 3
'Weiter habe ich die Grenzwerte für BZ in mmol neu definiert:<<<<<<<<<<<<<<<<<<<<<<<<<<
Range("B9").Select
ActiveCell.FormulaR1C1 = "<4"
Range("B10").Select
ActiveCell.FormulaR1C1 = "<6"
Range("B11").Select
ActiveCell.FormulaR1C1 = "<8"
Range("B12").Select
ActiveCell.FormulaR1C1 = "<11"
Range("B13").Select
ActiveCell.FormulaR1C1 = ">=11"
End If
End If
Sheets("SiDiary").Range("A1").Select
End Sub :kratz:
Viele Grüße,
Ralf
-
Hallo Ralf
Ich habe auch mal probiert und die Zeilen in VBA eingefügt. (unter EXEL '97)
Die erste Meldung die er mir bringt ist Laufzeitfehler '1004'
Die Select-Methode des Range-Objektes ist fehlerhaft.
und wenn ich hier auf testen gehe kommt die Zeile
Range("B9").Select gelb unterlegt
kann aber noch nicht sagen wo der Fehler liegt.
Hoffe das Hilft den anderen etwas
Gruss Olaf
-
Meine erste Idee wäre vor Range mal "Sheets("Sidiary")." zu schreiben, denn in Deinem ursprünglichen Makro hast Du Dich auf das gleiche Sheet beziehen können, jetzt bist Du in einem anderen Sheet...
Grüße, Alf.
-
Meine erste Idee wäre vor Range mal "Sheets("Sidiary")." zu schreiben, ...
... ist bei mir schon drinne ...
Gruß Andi
-
Hallo zusammen,
Meine erste Idee wäre vor Range mal "Sheets("Sidiary")." zu schreiben, denn in Deinem ursprünglichen Makro hast Du Dich auf das gleiche Sheet beziehen können, jetzt bist Du in einem anderen Sheet...
habe ich gemacht Alf, trotzdem Fehlermeldung: Subscript is out of range oder so ähnlich.... Mit mg/dl Daten läuft aber alles bestens, muß also nach If UCase(Sheets("Sidiary").Range("AN1").Text) = "MMOL/L" Then was schief laufen oder? :kratz: Habe Dir das (den) Sheet mal gepostet. :)
Muß es nicht auch richtig heißen: Sheets("SiDiary") statt ("Sidiary") ? :gruebeln:
Viele Grüße,
Ralf
-
Hallo zusammen,
so, der entscheidende Durchbruch ist gelungen. Die mmol und mg Daten werden jetzt von einer Vorlage automatisch erkannt und auch korrekt dargestellt. ;D Habe Alf das Sheet gerade gepostet.
Paar andere Kleinigkeiten an der Optik und den Laborfeldern sind auch noch berücksichtigt. Ich hoffe ihr seit nun zufrieden. Wenn nicht bitte melden :)
Grüße,
Ralf
-
Hallo Ralf,
hallo Leutz,
ich habe die Vorlage bei mir laufen lassen und den Fehler "Index ausserhalb des gültigen Bereichs" noch eliminiert. Die Vorlage ist bereits im Web.
Der Hintergrund des Fehlers war ein ganz einfacher:
Du hattest so ziemlich als letztes das Sheet umbenannt und dann wurde aber nochmal auf das nun nicht mehr vorhandene Sheet "SiDiary" zugegriffen und das ist für Excel ein ungültiger Index in der Sheets-Auflistung gewesen, denn es hiess ja bereits August... :zwinker:
Wie gesagt, beigefügte Fassung tut's jetzt und es bleiben im Endprodukt keine Makros mehr in der xls-Datei, so dass man sie bedenkenlos und ohne Rückfrage öffnen kann... :)
Ach ja: Ich habe das Liesmich dahingehend angepasst, dass ich mich dort 'rausgenommen habe! Ich schmücke mich ungerne mit fremden Federn und die Hauptleistung in dem Sheet steckt definitiv nicht bei mir!!!
Ciaoi, viele Grüße, Alf.
-
Hallo Alf,
jetzt wo Du es mit der Umbenennung sagst, fält es mir auch wie Schuppen von den Augen... Ich rolle mal ein virtuelles Faß Bier vor Dein Haus und sage prost. :prost: :prost: Sind natürlich alle hier herzlich eingeladen. ;)
Aber sei nicht so bescheiden; ohne die helfende Hand des Meisters hätte ich das so nie hinbekommen. Jedenfalls brauchen wir uns nicht hinter Diabass & Co. verstecken...
An Olaf und die anderen User hier auch noch Dank für die nützlichen Hinweise. Nun sei uns erst mal eine Pause gegönnt; muß dringend meinen Desktop aufräumen, da sieht`s aus wie bei Himpels unter`m Sofa, überall Excel-Leichen... :ichbaer:
Viele Grüße,
Ralf
-
Habe Jörg das Sheet gepostet.
Und ich hatte leider noch keine Zeit reinzuschauen. Bin gerade mit einem Webprojekt beschäftigt und muß häufig Zwangspausen einlegen.
(Über mir zieht ein neuer Nachbar ein und ist schon seit zwei Wochen ständig am Hämmern und Bohren. Obernervig :moser:
Da ist es nahezu unmöglich sich mal auf etwas zu konzentrieren)
-
(Über mir zieht ein neuer Nachbar ein und ist schon seit zwei Wochen ständig am Hämmern und Bohren. Obernervig :moser:
Da ist es nahezu unmöglich sich mal auf etwas zu konzentrieren)
Kann ich vollkommen nachvollziehen, wenn man sich konzentrieren muss und dann ist´s laut :-\
Wünsche Dir angenehme Ruhe
Lord