Clever-Excel-Forum

Hallo, ich habe eine Waage gekauft die versch. Daten erfasst und diese in folgender Form als TXT datei abspeichert:

KörperGewicht77.5kg   Overweight
Wasseranteil56.2%   Standard
KörperfettAnteil18.1%   Chubby
Knochengewicht3.1kg   Inadequate
Visceral fat:8.0   Standard
BMR:1906.0 kcal   Optimal
MuskelGewicht60.3kg   Optimal
BMI:24.2   Chubby

Time:07:50, Tues,4/ 10/2018
KörperGewicht76.5kg   Overweight
Wasseranteil56.7%   Standard
KörperfettAnteil17.4%   Chubby
Knochengewicht3.1kg   Inadequate
Visceral fat:8.0   Standard
BMR:1888.0 kcal   Optimal
MuskelGewicht60.1kg   Optimal
BMI:23.9   Standard

Time:21:08, Sat,4/ 7/2018
KörperGewicht77.8kg   Overweight
Wasseranteil56.6%   Standard
KörperfettAnteil17.5%   Chubby
Knochengewicht3.2kg   Standard
Visceral fat:8.0   Standard
BMR:1911.0 kcal   Optimal
MuskelGewicht61.0kg   Optimal
BMI:24.3   Chubby

Time:09:08, Sat,3/ 31/2018
KörperGewicht78.2kg   Overweight
Wasseranteil56.4%   Standard
KörperfettAnteil17.9%   Chubby
Knochengewicht3.2kg   Standard
Visceral fat:8.0   Standard
BMR:1918.0 kcal   Optimal
MuskelGewicht61.1kg   Optimal
BMI:24.4   Chubby

ich würde gerne Graphen davon erstellen.

Wie kann ich diese Daten in eine Excel Tabelle bringen, so dass für jede Kategorie eine Spalte erstellt wird?

Vielen Dank für eure Hilfe!

Hi,

die abgebildeten Daten werden tatsächlich so abgespeichert? Keine Trennung zwischen den Worten (z.B. KörperfettAnteil18.1%)?
Dann, fürchte ich, wird, wenn überhaupt, nur VBA helfen können. Mit Bordmitteln, wie z.B. "Text in Spalten", bekommst du diese Daten wegen fehlenden Merkmalen nicht getrennt.
Vllt. meldet sich ja einer der VBA-Spezialisten.

Hallo

Mit Power Query sollte es möglich sein die Daten passend zu transformieren.

Hi Detlef,

mit PQ habe ich mich bislang noch so gut wie gar nicht beschäftigt. Benötigt man dort keine Eindeutigkeit, um die Daten aufzubereiten? Ich denke da an die zusammengeschriebenen Texte wie in meinem vorigen Beitrag.

Günter,

ich habe es noch nicht getestet. Für einen Test hätte ich auch gerne eine Original-Textdatei (unbearbeitet).
Auch wollte ich erst mal abwarten ob der Fragesteller sich überhaupt auf PQ einlassen möchte.

Off Topic:
Ich hasse meine Waage und entferne ab und an die Batterien, so dass ich sie problemlos besteigen kann … Angel

Aber für alle BMI-ler gilt ja ohnehin folgender Leitspruch:
Man ist niemals zu schwer für seine Größe, aber man ist oft zu klein für sein Gewicht.

Hi, Danke für die antworten!

Die unbearbeitete Datei habe ich angehängt. Ich hatte zuvor die Begriffe auf deutsch übersetzt, weil die App sie auf englisch ausgibt.

Wenn das Problem aber nur die Leerzeichen sind, das kann ich ja in Word mit suchen und ersetzen machen, indem ich einfach das Wort mit demselben Wort + Leerzeichen ersetze.

Ich wollte die Kategorien in Spalten und die Daten darunter stehen haben. Ich habe die Option Text in Spalten gefunden, aber ich weiß nicht wie ich es so einstellen kann dass es untereinander steht. Alles was ich geschafft habe ist die Zahlen vom Doppelpunkt zu trennen, in zwei Spalten.

EDIT: PowerQuery ist in meiner Version bereits installiert, und ja, ich lasse mich gerne darauf ein.

Hallo, mit dem Material (quick & dirty) ..:

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B	C	D	E
1	Datum	Wochentag	Was	wie viel	Auswertung
2	11.04.2018	Mittwoch	Time	00:35
3			Weight	77.5kg	Overweight
4			Body water	56.2%	Standard
5			Body fat	18.1%	Chubby
6			Bone Mass	3.1kg	Inadequate
7			Visceral fat	8.0	Standard
8			BMR	1906.0 kcal	Optimal
9			Muscle Mass	60.3kg	Optimal
10			BMI	24.2	Chubby
11	10.04.2018	Dienstag	Time	07:50
12			Weight	76.5kg	Overweight
13			Body water	56.7%	Standard
14			Body fat	17.4%	Chubby
15			Bone Mass	3.1kg	Inadequate
16			Visceral fat	8.0	Standard
17			BMR	1888.0 kcal	Optimal
18			Muscle Mass	60.1kg	Optimal
19			BMI	23.9	Standard
20	07.04.2018	Samstag	Time	21:08
21			Weight	77.8kg	Overweight
22			Body water	56.6%	Standard
23			Body fat	17.5%	Chubby
24			Bone Mass	3.2kg	Standard
25			Visceral fat	8.0	Standard
26			BMR	1911.0 kcal	Optimal
27			Muscle Mass	61.0kg	Optimal
28			BMI	24.3	Chubby
29	31.03.2018	Samstag	Time	09:08
30			Weight	78.2kg	Overweight
31			Body water	56.4%	Standard
32			Body fat	17.9%	Chubby
33			Bone Mass	3.2kg	Standard
34			Visceral fat	8.0	Standard
35			BMR	1918.0 kcal	Optimal
36			Muscle Mass	61.1kg	Optimal
37			BMI	24.4	Chubby

Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013

PHP-Code:
let
    Quelle = Excel.CurrentWorkbook(){[Name="Mass"]}[Content],
    #"Abgeschnittener Text" = Table.TransformColumns(Quelle,{{"Column3", Text.Trim, type text}}),
    #"Bereinigter Text" = Table.TransformColumns(#"Abgeschnittener Text",{{"Column3", Text.Clean, type text}}),
    #"Spalte nach Trennzeichen teilen" = Table.SplitColumn(#"Bereinigter Text", "Column3", Splitter.SplitTextByDelimiter("/", QuoteStyle.Csv), {"Column3.1", "Column3.2", "Column3.3"}),
    #"Geänderter Typ" = Table.TransformColumnTypes(#"Spalte nach Trennzeichen teilen",{{"Column3.1", Int64.Type}, {"Column3.2", Int64.Type}, {"Column3.3", Int64.Type}}),
    #"Neu angeordnete Spalten" = Table.ReorderColumns(#"Geänderter Typ",{"Column1", "Column2", "Column3.2", "Column3.1", "Column3.3"}),
    #"Zusammengeführte Spalten" = Table.CombineColumns(Table.TransformColumnTypes(#"Neu angeordnete Spalten", {{"Column3.2", type text}, {"Column3.1", type text}, {"Column3.3", type text}}, "de-DE"),{"Column3.2", "Column3.1", "Column3.3"},Combiner.CombineTextByDelimiter(".", QuoteStyle.None),"Datum"),
    #"Ersetzter Wert" = Table.ReplaceValue(#"Zusammengeführte Spalten","..","",Replacer.ReplaceText,{"Datum"}),
    #"Geänderter Typ1" = Table.TransformColumnTypes(#"Ersetzter Wert",{{"Datum", type date}}),
    #"Entpivotierte Spalten" = Table.UnpivotOtherColumns(#"Geänderter Typ1", {"Column2", "Datum"}, "Attribut", "Wert"),
    #"Entfernte Spalten" = Table.RemoveColumns(#"Entpivotierte Spalten",{"Attribut"}),
    #"Name des Tags eingefügt" = Table.AddColumn(#"Entfernte Spalten", "Name des Tags", each Date.DayOfWeekName([Datum]), type text),
    #"Entfernte Spalten1" = Table.RemoveColumns(#"Name des Tags eingefügt",{"Column2"}),
    #"Neu angeordnete Spalten1" = Table.ReorderColumns(#"Entfernte Spalten1",{"Name des Tags", "Datum", "Wert"}),
    #"Spalte nach Trennzeichen teilen1" = Table.SplitColumn(#"Neu angeordnete Spalten1", "Wert", Splitter.SplitTextByEachDelimiter({":"}, QuoteStyle.Csv, false), {"Wert.1", "Wert.2"}),
    #"Geänderter Typ2" = Table.TransformColumnTypes(#"Spalte nach Trennzeichen teilen1",{{"Wert.1", type text}, {"Wert.2", type text}}),
    #"Spalte nach Trennzeichen teilen2" = Table.SplitColumn(#"Geänderter Typ2", "Wert.2", Splitter.SplitTextByEachDelimiter({" "}, QuoteStyle.Csv, true), {"Wert.2.1", "Wert.2.2"}),
    #"Geänderter Typ3" = Table.TransformColumnTypes(#"Spalte nach Trennzeichen teilen2",{{"Wert.2.1", type text}, {"Wert.2.2", type text}}),
    #"Neu angeordnete Spalten2" = Table.ReorderColumns(#"Geänderter Typ3",{"Datum", "Name des Tags", "Wert.1", "Wert.2.1", "Wert.2.2"}),
    #"Umbenannte Spalten" = Table.RenameColumns(#"Neu angeordnete Spalten2",{{"Name des Tags", "Wochentag"}, {"Wert.1", "Was"}, {"Wert.2.1", "wie viel"}, {"Wert.2.2", "Auswertung"}})
in
    #"Umbenannte Spalten" 

Jörg, wie kommst du auf drei Spalten?

Hallo Detlef, ich habe eh' gesehen, dass der TE das anders haben will... Aber ich krieg's für mich noch nicht schön... Wie würdest du das denn machen..?

Ich habe noch zwei Fehlerwerte (bei den Uhrzeiten) drin... wo die herkommen, weiß ich nicht... wie die wech gehen (auch noch) nicht..:

Aber das kommt dem doch schon näher, oder?

Arbeitsblatt mit dem Namen 'Tabelle3'
	A	B	C	D	E	F	G	H	I	J
1	Datum	Time	Weight	Body water	Body fat	Bone Mass	Visceral fat	BMR	Muscle Mass	BMI
2	21.03.2018
3	22.03.2018	08:32	77,3 kg	56,4	17,7	3,1	8,0	1902,0	60,5	24,1
4	23.03.2018	15:41	76,2 kg	56,9	17,1	3,1	8,0	1883,0	60,1	23,8
5	25.03.2018	23:50	78,4 kg	55,8	18,7	3,1	8,0	1921,0	60,6	24,5
6	27.03.2018	00:30	77,1 kg	56,5	17,7	3,1	8,0	1899,0	60,3	24,1
7	28.03.2018
8	29.03.2018	09:16	76,5 kg	56,8	17,2	3,1	8,0	1888,0	60,2	23,9
9	30.03.2018	09:19	77,4 kg	56,5	17,6	3,1	8,0	1904,0	60,6	24,2
10	31.03.2018	09:08	78,2 kg	56,4	17,9	3,2	8,0	1918,0	61,1	24,4
11	07.04.2018	21:08	77,8 kg	56,6	17,5	3,2	8,0	1911,0	61	24,3
12	10.04.2018	07:50	76,5 kg	56,7	17,4	3,1	8,0	1888,0	60,1	23,9
13	11.04.2018	00:35	77,5 kg	56,2	18,1	3,1	8,0	1906,0	60,3	24,2

Verwendete Systemkomponenten: [Windows (32-bit) NT :.00] MS Excel 2013

BeginnerBUS

WillWissen

shift-del

WillWissen

shift-del

RPP63

BeginnerBUS

Jockel

shift-del

Jockel