Zeilen einer TXT datei in spalten bringen

[shift-del]

Hier mal meine Lösung als Datensatzliste mit exemplarischer Pivot-Tabelle.

[Jockel]

Jörg, wie kommst du auf drei Spalten?

Detlef, wie kommst du auf drei Spalten?

:17:

... und bei der PT gefällt mir besonders B7 ...:

Arbeitsblatt mit dem Namen 'Pivot'
	A	B	C
1	Summe von Wert	Einheit
2	Timestamp	Weight	Gesamtergebnis
3	21.03.2018 10:54	77,2	77,2
4	21.03.2018 10:56	77,3	77,3
5	21.03.2018 11:00	77,2	77,2
6	21.03.2018 11:23	78,5	78,5
7	21.03.2018 12:02	157,6	157,6
8	21.03.2018 14:47	76,5	76,5
9	22.03.2018 08:32	77,3	77,3
10	23.03.2018 15:41	76,2	76,2
11	25.03.2018 23:50	78,4	78,4
12	27.03.2018 00:30	77,1	77,1
13	28.03.2018 09:48	75,6	75,6
14	28.03.2018 20:11	76,7	76,7
15	29.03.2018 09:16	76,5	76,5
16	30.03.2018 09:19	77,4	77,4
17	31.03.2018 09:08	78,2	78,2
18	07.04.2018 21:08	77,8	77,8
19	10.04.2018 07:50	76,5	76,5
20	11.04.2018 00:35	77,5	77,5
21	Gesamtergebnis	1469,5	1469,5

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[snb]

Alternative mit Dictionary:

Code:

Sub M_snb()
   c00 = "G:\OF\myrecords.txt"
   sn = Split(CreateObject("scripting.filesystemobject").opentextfile(c00).readall, vbCrLf)
   
   With CreateObject("scripting.dictionary")
   
    For j = 2 To UBound(sn) Step 9
      c01 = Format(Right(sn(j), 10) & " " & Mid(sn(j), 6, 5), "dd-mm-yyyy hh:mm")
      .Item(.Count) = Array(c01, Split(Split(sn(j + 1), ":")(1), " ")(0), Split(Split(sn(j + 2), ":")(1), " ")(0), Split(Split(sn(j + 3), ":")(1), " ")(0), Split(Split(sn(j + 4), ":")(1), " ")(0), Split(Split(sn(j + 5), ":")(1), " ")(0), Split(Split(sn(j + 6), ":")(1), " ")(0), Split(Split(sn(j + 7), ":")(1), " ")(0), Split(Split(sn(j + 8), ":")(1), " ")(0))
    Next
      
    Sheet1.Cells(30, 1).Resize(.Count, 9) = Application.Index(.items, 0, 0)
  End With
End Sub

[shift-del]

... und bei der PT gefällt mir besonders B7 ...:

Hatte ich schon in #11 angesprochen.

[Jockel]

Detlef, weiß ich doch, trotzdem sieht's "schön" aus... kchhhhh... (^_-). Also mir sauberen Daten(sätzen) kann man ein ordentliches Ergebnis erzielen (auch ohne VBA)

[Jockel]

Hallo, den einen doppelten Datensatz (der gar nicht ganz identisch war - raus genommen) und das Ganze kann mit PQ so aussehen..:

Nun kann man ein paar "schöne" Diagramme einbauen in die "neue" Datei (vielleicht mache ich das später mal) ... (danke für die Übung) 

Arbeitsblatt mit dem Namen 'Auswertung'
	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	10:54	77,2 kg	56,7%	17,3%	3,2 kg	8,0	1900,0	60,7 kg	24,1
3	21.03.2018	10:56	77,3 kg	56,7%	17,4%	3,2 kg	8,0	1902,0	60,7 kg	24,1
4	21.03.2018	11:00	77,2 kg	56,6%	17,4%	3,1 kg	8,0	1900,0	60,6 kg	24,1
5	21.03.2018	11:23	78,5 kg	56,2%	18,1%	3,2 kg	8,0	1923,0	61,1 kg	24,5
6	21.03.2018	12:02	78,8 kg	55,9%	18,6%	3,2 kg	8,0	1928,0	61,0 kg	24,6
7	21.03.2018	14:47	76,5 kg	57,0%	16,9%	3,1 kg	8,0	1888,0	60,4 kg	23,9
8	22.03.2018	08:32	77,3 kg	56,4%	17,7%	3,1 kg	8,0	1902,0	60,5 kg	24,1
9	23.03.2018	15:41	76,2 kg	56,9%	17,1%	3,1 kg	8,0	1883,0	60,1 kg	23,8
10	25.03.2018	23:50	78,4 kg	55,8%	18,7%	3,1 kg	8,0	1921,0	60,6 kg	24,5
11	27.03.2018	00:30	77,1 kg	56,5%	17,7%	3,1 kg	8,0	1899,0	60,3 kg	24,1
12	28.03.2018	09:48	75,6 kg	57,1%	16,8%	3,1 kg	8,0	1873,0	59,8 kg	23,6
13	28.03.2018	20:11	76,7 kg	56,9%	17,1%	3,1 kg	8,0	1892,0	60,5 kg	23,9
14	29.03.2018	09:16	76,5 kg	56,8%	17,2%	3,1 kg	8,0	1888,0	60,2 kg	23,9
15	30.03.2018	09:19	77,4 kg	56,5%	17,6%	3,1 kg	8,0	1904,0	60,6 kg	24,2
16	31.03.2018	09:08	78,2 kg	56,4%	17,9%	3,2 kg	8,0	1918,0	61,1 kg	24,4
17	07.04.2018	21:08	77,8 kg	56,6%	17,5%	3,2 kg	8,0	1911,0	61,0 kg	24,3
18	10.04.2018	07:50	76,5 kg	56,7%	17,4%	3,1 kg	8,0	1888,0	60,1 kg	23,9
19	11.04.2018	00:35	77,5 kg	56,2%	18,1%	3,1 kg	8,0	1906,0	60,3 kg	24,2

Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010

Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg

[BeginnerBUS]

 Ohne ordentliche Ausgangsdaten keine ordentliche Auswertung. Ich kann die Datei gern zur Verfügung stellen. Die Datei, die du gepostet hattest, war keine ordentliche Grundlage... !!! Die konnte ich auch nicht runter laden...

Meintest du die myrecords.txt Datei oder die xlsx ? Falls es die txt Datei war: ja, die liefert ja "bescheuerte" Datenformatierung und ist der Grund weshalb ich hier herkam :)
Denn ich will eine Möglichkeit finden, diese schlecht formatierten Rohdaten in eine schöne Tabelle zu bekommen, ohne den Rohdatensatz dabei jedesmal von Hand editieren zu müssen.


Ich hänge jetzt noch einmal eine unbearbeitete txt Datei hier an, so, wie sie von der Android-App kommt. (Att_1_myrecords.txt)
Die xlsc Datei, die ich angehängt habe, ist mein eigener sehr bescheidener Versuch, den ich mit meinen geringen Kenntnissen zustande gebracht habe. (Att_2_myrecords_1.xlsx + "".csv)
Ich hänge jetzt auch einen Screenshot an, auf dem zu sehen ist wie die Daten auf dem Smartphone dargestellt werden. (Screenshot_2018)

Es kommen künftig aber noch Datensätze in dem selben Format von anderen Personen. Es interessiert mich deshalb wirklich sehr, wie du diese Tabelle "Auswertung" mit PowerQuery erstellst.

Hallo,


der Code von snb gehört über den VBA-Editor in ein Allgemeines Modul.

Um snb's Codes zu verstehen genügt aber kein Grundlagentutorial, da steigt auch schon mal gerne
so mancher "Nichtneuling" aus. snb ist eine Art Ausnahmekünstler.

Wenn Du Dich entschließt, in VBA einsteigen zu wollen, dann bin ich gerne bereit, Dir Lehrmaterial
zusammenzustellen und zukommen zu lassen.
Eine durchaus angebrachte Warnung aber schon mal vorweg. VBA erweckt ungeahnte Möglichkeiten
und Begierden und kann süchtig machen. Das aber ist im positivem Sinn gemeint.

Vielen Dank, Blaubär
Ich nehme das Angebot gerne an! Ich denke es gibt in Zukunft noch häufiger Situationen, in denen ich VBA brauchen könnte.

[shift-del]

Hallo, den einen doppelten Datensatz (der gar nicht ganz identisch war - raus genommen)

Wenn ich die ID verwende dann passt es auch bei mir.

[Jockel]

Detlef, gute Idee mit ID, aber dieser Daten satz war für die Katz, weil null-Werte enthalten, oder hatte ich da was übersehen..?

[shift-del]

Ja, der Datensatz ist nicht vollständig, aber für Weight enthält er einen Wert.

Die App misst Mist.
:19: