Office: Automatische Auswertung Messprotokoll mit Makro

Hallo,

ich bin ein Excel Neuling und muss für eine Messreihe ein Druckfertiges Dokument erstellen.
Das bedeutet ein Datenlogger wirft mir Werte in csv- Format heraus. Diese Werte sollen anschließend automatisch eine Graphik erstellt werden.
Ich habe es immerhin geschafft, dass er mir die Messreihe (per Makro) einliest und daraus eine Grafik erstellt. Soweit sogut. Leider wirft das Messgerät unterschiedliche Anzahl an Messwerten aus (je nachdem wielange man den Test laufen lässt). Gibt es da einen Code bzw. Funktion, dass das Makro solange die Werte aufnimmt, bis das KEIN Wert mehr in der Reihe steht? Es folgt in der CSV Datei ein Leerzeichen, danach beginnt eine neue Messreihe welche wiederum Graphisch ausgewertet werden soll. Leider bin ich da etwas ja planlos wie man das am besten einstellt...

Kurzes Beispiel

Zeit Wert (Messwertaufnahme 1)
1 2
2 3
3 2
4 1

Zeit Wert (Messwertaufnahme 2)
1 3
2 5
3 7

Das Makro soll bei Messwertaufnahme 1 beginnen - Graphik erstellen - solange bis das kein Wert mehr in der Zeile steht (es könnte auch bis zu 10 sekunden gehen), danach Messwertaufnahme 2 nehmen - graphik erstellen - bis kein Wert mehr vorhanden ist. Mein Problem ist auch, wenn ich ein Makro erzeuge, dass bis 4 sekunden geht und es werden dennoch 10, verschiebt sich meine Zeilenzahl von Messwertaufnahme 2) nach unten...

Ich hoffe ich konnte mein Problem klar genug darstellen.

Vielen Dank

MfG
Thomas

 

Hallo Thomas,

ohne Beispieldatei ist sowas immer etwas schwierig.

Generell könnte ich mir als Lösung eine Schleife in einer Schleife vorstellen.

Die innere Schleife liest solange die Werte ein, bis die Messwertreihe durch das Leerzeichen beendet wird, und verarbeitet die Daten (als Grafik) wie immer Du sie verarbeitet haben möchtest.
Nach Beendigung der inneren Schleife folgt eine Abfrage ob noch weitere Messwerte in der CSV-Datei stehen.
Falls ja, startet die äußere Schleife einen neuen Durchlauf der inneren Schleife.
Falls nein wird die äußere Schleife beendet.

Da Du selber Makros erzeugen kannst, hoffe ich Dir damit auf die Sprünge geholfen zu haben.
Ansonsten poste doch bitte mal eine Beispiel-CSV und eine Beispiel-Auswertung inkl. dem Code den Du schon hast.

 

Hallo Thomas,

nachfolgend ein Makro, das das Dateneinlesen übernimmt und das danach die Zellbereiche für die Messwertaufnahmen ermittelt.
Den Aufbau der Grafik musst Du dann durchführen.

Code:

Option Explicit
Sub TextDatei_Einlesen()
' Hier wird die CSV/Text-Datei in ein neues Arbeitblatt eingelesen:
'
    Const xlNumberFormat = 1, xlTextFormat = 2, xlMDYFormat = 3, xlDMYFormat = 4, xlSkipColumn = 9
'
    Workbooks.Open Filename:="C:\EXCEL\Forum\zaster.csv"
    ActiveSheet.UsedRange.TextToColumns Destination:=Range("A1"), _
        DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, _
        Tab:=True, Semicolon:=False, Comma:=False, Space:=True, Other:=False, TrailingMinusNumbers:=True, _
        FieldInfo:=Array(Array(1, xlNumberFormat), Array(2, xlNumberFormat), Array(3, xlTextFormat), Array(4, xlTextFormat))
        
' So sieht an dieser Stelle der unten dargestellte Datenimport aus der CSV/Text-Datei aus
' Ab hier werden die einzelnen Messaufnahme-Datenbereichen ermittelt.
' Zwischen den einzelnen Bereichen sich muss genau eine Leerzeile befinden.
        
    Dim RgBenutzt As Range, RgGrafikdaten As Range, Zelle11 As Range
    
    Set RgBenutzt = ActiveSheet.UsedRange
    
    Set Zelle11 = RgBenutzt.Cells(1, 1)
    Do While Zelle11.Value = "Zeit"
      Set RgGrafikdaten = Zelle11.CurrentRegion.Columns("A:B")
      '
      '"RgGrafikdaten" enthält die Zellen der Spalten A und B der jeweiligen Messwertaufnahme
      'im Beispiel unten also: A1:B5 (für Messwertaufnahme1) und A7:B10 (für Messwertaufnahme2)
      '
      '.... Hier ist die Grafik für die jeweilige Messaufnahme zu erstellen....
      '
      Set Zelle11 = Zelle11.Offset(RgGrafikdaten.Rows.Count + 1)
    Loop
End Sub

	A	B	C	D
1	Zeit	Wert	(Messwertaufnahme	1)
2	1	2
3	2	3
4	3	2
5	4	1
6
7	Zeit	Wert	(Messwertaufnahme	2)
8	1	3
9	2	5
10	3	7
11
12

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

 

Wow vielen Dank für Eure Hilfe!!

Ich werde es einmal versuchen.

Falls es an irgendwas hackt, werde ich einmal eine csv.datei Hochladen und ein Beispiel, aber erst versuche ich mich selbst :). Klasse Forum !

Vielen Dank

Viele Grüße
Thomas

 

Hallo, ich hatte gehofft ich muss nicht mehr nachfragen :).

Anbei eine CSV-DATEI und ein Auswertbeispiel wie es einmal aussehen soll. Ich habe in den letzten zwei Tagen gemerkt, dass ich leider von VBA noch weniger Ahnung habe als ich gedacht habe. Vielleicht bekomme ich es mit eurer Hilfe hin, falls nicht muss ich mir da was kostenpflichtiges suchen...

Im Anhang eine CSV-Datei wie sie mir der Datenlogger auswirft. Es sind (und das ist leider neu) 12 Messungen, jede einzelne Messung ist unterschiedlich lang und jede einzelne Messung soll ausgewertet werden (siehe Beispiel). Die CSV-Datei ist immer nach diesem Muster aufgebaut, jedoch die Länge der Messungen ist unterschiedlich.

Gibt es da noch eine andere Möglichkeit ausser VBA, ich denke VBA und ich werden keine Freunde werden in der kurzen Zeit in der das Tool stehen soll.

Mit dem Makrorekorder habe ich teilweise das Beispiel aufgebaut (nicht im Anhang) aber bringt mir reichlich wenig, da die Messaufnahme unterschiedlich lange laufen kann.

Wie oben beschrieben ist soll der Vorgang immer noch der gleiche sein. Es entsteht eine CSV Datei und diese soll mit möglichst wenig aufwand (selbst einlesen - code wurde gepostet danke !!) ausgewertet werden - so wie es in der Beispieldatei beschrieben ist.

Da die Dateien leider zu groß sind habe ich sie extern zum download bereitgestellt:

Links vom Admin gelöscht

Vielen Dank.

Viele Grüße
Thomas

 

Oder ist es vl. möglich, wenn ich mit den Makrorekorder das alles aufnehme, dass dann so zu verändern, dass er alle Messwerte aufnimmt?? Die Idee kam mir gerade...

 

Sorry, aber Forumregeln sind Forumregeln. Externe Links sind nicht erlaubt. Auf der Seite die Du gepostet hast sind 3 verschiedene Download Buttons und ich will nicht wissen was man sich auf den falschen beiden einfängt. Die Dateien können sicherlich auch verkleinert werden. Beispieldatensätze sollten genügen.

Gruß
Michael

 

Ok sorry, werde es versuchen zu verkleinern.

 

So hab die Datensätze mal geviertelt.

Ich gehe davon aus, wenn ich einen korrekten Code habe, dass man diesen für die anderen Werte einsetzen kann (mit geänderten zellangaben?)

Den Anhang Auswertung1.xlsx betrachten Den Anhang CSV.zip betrachten