Clever-Excel-Forum

Normale Version: Zeilen einer TXT datei in spalten bringen
Du siehst gerade eine vereinfachte Darstellung unserer Inhalte. Normale Ansicht mit richtiger Formatierung.
Seiten: 1 2 3 4
Hier mal meine Lösung als Datensatzliste mit exemplarischer Pivot-Tabelle.
(10.05.2018, 21:16)shift-del schrieb: [ -> ]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'
ABC
1Summe von WertEinheit
2TimestampWeightGesamtergebnis
321.03.2018 10:5477,277,2
421.03.2018 10:5677,377,3
521.03.2018 11:0077,277,2
621.03.2018 11:2378,578,5
721.03.2018 12:02157,6157,6
821.03.2018 14:4776,576,5
922.03.2018 08:3277,377,3
1023.03.2018 15:4176,276,2
1125.03.2018 23:5078,478,4
1227.03.2018 00:3077,177,1
1328.03.2018 09:4875,675,6
1428.03.2018 20:1176,776,7
1529.03.2018 09:1676,576,5
1630.03.2018 09:1977,477,4
1731.03.2018 09:0878,278,2
1807.04.2018 21:0877,877,8
1910.04.2018 07:5076,576,5
2011.04.2018 00:3577,577,5
21Gesamtergebnis1469,51469,5
Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
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
(11.05.2018, 19:30)Jockel schrieb: [ -> ]... und bei der PT gefällt mir besonders B7 ...:
Hatte ich schon in #11 angesprochen.
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)
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'
ABCDEFGHIJ
1DatumTimeWeightBody waterBody fatBone MassVisceral fatBMRMuscle MassBMI
221.03.201810:5477,2 kg56,7%17,3%3,2 kg8,01900,060,7 kg24,1
321.03.201810:5677,3 kg56,7%17,4%3,2 kg8,01902,060,7 kg24,1
421.03.201811:0077,2 kg56,6%17,4%3,1 kg8,01900,060,6 kg24,1
521.03.201811:2378,5 kg56,2%18,1%3,2 kg8,01923,061,1 kg24,5
621.03.201812:0278,8 kg55,9%18,6%3,2 kg8,01928,061,0 kg24,6
721.03.201814:4776,5 kg57,0%16,9%3,1 kg8,01888,060,4 kg23,9
822.03.201808:3277,3 kg56,4%17,7%3,1 kg8,01902,060,5 kg24,1
923.03.201815:4176,2 kg56,9%17,1%3,1 kg8,01883,060,1 kg23,8
1025.03.201823:5078,4 kg55,8%18,7%3,1 kg8,01921,060,6 kg24,5
1127.03.201800:3077,1 kg56,5%17,7%3,1 kg8,01899,060,3 kg24,1
1228.03.201809:4875,6 kg57,1%16,8%3,1 kg8,01873,059,8 kg23,6
1328.03.201820:1176,7 kg56,9%17,1%3,1 kg8,01892,060,5 kg23,9
1429.03.201809:1676,5 kg56,8%17,2%3,1 kg8,01888,060,2 kg23,9
1530.03.201809:1977,4 kg56,5%17,6%3,1 kg8,01904,060,6 kg24,2
1631.03.201809:0878,2 kg56,4%17,9%3,2 kg8,01918,061,1 kg24,4
1707.04.201821:0877,8 kg56,6%17,5%3,2 kg8,01911,061,0 kg24,3
1810.04.201807:5076,5 kg56,7%17,4%3,1 kg8,01888,060,1 kg23,9
1911.04.201800:3577,5 kg56,2%18,1%3,1 kg8,01906,060,3 kg24,2
Verwendete Systemkomponenten: [Windows (32-bit) NT 6.01] MS Excel 2010
Diese Tabelle wurde mit Tab2Html (v2.6.0) erstellt. ©Gerd alias Bamberg
(11.05.2018, 15:00)Jockel schrieb: [ -> ] 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.


(11.05.2018, 15:34)Käpt\n Blaubär schrieb: [ -> ]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.
(12.05.2018, 00:33)Jockel schrieb: [ -> ]Hallo, den einen doppelten Datensatz (der gar nicht ganz identisch war - raus genommen)
Wenn ich die ID verwende dann passt es auch bei mir.
Detlef, gute Idee mit ID, aber dieser Daten satz war für die Katz, weil null-Werte enthalten, oder hatte ich da was übersehen..?
Ja, der Datensatz ist nicht vollständig, aber für Weight enthält er einen Wert.

Die App misst Mist.
:19:
Seiten: 1 2 3 4