Daten via Makro in Excel

[kielersprotte78]

Moin moin aus Kiel.

Ich habe folgendes Problem:

Ich Daten via Laptop von einer Dialysemaschine aufgezeichnet
und möchte diese nun in Excel verarbeiten. Problem
ist, diese sind verschlüsselt, d.h. ich brauche wohl ein Makro
was mir diese Datei (normales Text-File) ausliest.
Womit schreib ich ein solches, bzw kennt sich jemand damit
aus?!

Bsp.: gb hb 0000
SW 0100 0100 0100 0100 0030 0030 0030 0030
17:39:40 O3
17:40:15 TH-b
17:40:23 BA-d
17:41:34 BA-q
17:41:55 TH-e
17:41:55 BA-d
17:56:09 BA-q
17:56:23 TH-b
17:56:23 BA-d
17:56:41 BA-q
17:56:51 TH-e
17:56:52 BA-d
17:57:09 BA-q
17:57:56 TH-b
17:57:56 BA-d
18:01:51 BA-q
18:01:58 TH-e
18:01:58 BA-d
18.08.04
18:05:48 BA-e
G300 -280 500 -80 520 -60
18:06:04 E13
18:09:04 BA-f
G300 -280 500 -80 520 -60
18:12:05 BA-g
G300 -280 500 -80 520 -60

usw... Ich habe natürlich ein Manual in dem das ganze
Übersetzt ist...

Vielleicht kennt sich ja jemand aus und hat einen Tipp.

Gruß Kristian

:-blush

[Froschkönig]

Mal abgesehen davon, daß man sich eventuelle technische Schwierigkeiten mit Datenformaten lieber möglichst frühzeitig klarmachen sollte ;-) :

Das geht alles. Wenn Du ne "Übersetzung" hast zu den Abkürzungen welche dir die Dialysemaschine da ausgespuckt hat brauchts halt nur etwas Arbeit.
Du erstellst in Excel ein Makro (Extras->Makro) und benutzt in selbigem zum Beispiel die "Replace" Funktion (Syntax kann ich jetzt auch nicht auswendig, steht aber eigentlich in der Hilfe dazu beschrieben) und schreibst ein Makro welches alle möglichen in der ANleitung beschriebenen Abkürzungen in die Werte "umschreibt" die Du gerne hättest. Danach mußt du eigentlich nur noch die Daten aus dem Textfile in Deine Arbeitsmappe kopieren in einer Spalten/Zeilen Aufteilung, die Du eben für sinnig hälst und dann das Makro "drüberlaufen" lassen und "schon" steht da was lesbares ;-)

Gruß,
der Frosch

[acomed-statistik]

Hallo, diese Aufgabenstellung ist für jemanden, der programmieren kann einfach, und in ein, zwei Stunden zu lösen. Für jemanden, der noch nie programmiert hat (und dies in Zukunft auch nicht wieder zu tun gedenkt), macht es wenig Sinn, sich daran zu versuchen.

Trotzdem ein kurzer Ablauf.

Extras -Makro - Viuasl Basic Editor

Links gibt ein Fenster, in dem die Excel-Datei inkl. Ihrer Tabellenblätter angezeigt wird. Dort mit rechter Maustaste: Neu -> Modul anwählen.

Ein Modulfenster wird angezeigt.

Nun
Sub KonvertiereDialyse()
eingeben

Mit folgenden Programmzeilen kann man erst einmal Variablen x erzeugen, die dann weiterverarbeitet werden müssen.

i=2
while sheets("Daten").cells(i;1)<>""
x(i)= sheets("Daten").cells(i;1)
ab hier muss man dann die Daten extrahieren, z.B.
y(i)= funktion von x(i) (dies hängt davon ab, was die kryptischen zeichen bedeuten).
i=i+1
wend

Wenn Sie mit diesen Zeilen überhaupt nichts anfangen können, sollten Sie Excel-Experten beauftragen.

Beste Grüße Thomas Keller von ACOMED statistik

[Tombow]

Excel kann automatisch ASCII-dateien importieren, und aus deinem Beispiel entnehme ich, daß es daten genau im solchen Format sind. In dem fall solltest du auf "File->Import" gehen...der Importfilter läßt sich auf den folgenden Menus, die dann erscheinen, konfigurieren(die Einstellung kann man übrigens speichern). Dann läßt sich(über "Edit->Paste Special") der Inhalt markierter Zeilen en masse ersetzen. Ist etwas mehr Handarbeit, aber wenn gerade kein VB-spezialist zur Hand ist und alles eine eher einmalige Aufgabe, könnte man auch damit klarkommen.