CSV -> Excel -> Diagramm

Hallo,
ich habe hier einige CSV Log Dateien mit folgendem Aufbau:
eine Überschriftszeile(Spaltenbeschriftung - in jeder Datei identisch)
07/05/10,"00:14:00"," 79.11"," 76.23"," 43.42"," 5.90"," 5.90"," 1.42"," 148.41"," 40.55"," 40.08"," 1.91"," 331.09"," 120.86"," 0.00"," 0.00"
07/05/10,"00:15:00"," 79.35"," 76.43"," 43.44"," 5.90"," 5.90"," 1.46"," 148.68"," 40.54"," 40.06"," 1.91"," 331.30"," 120.98"," 0.00"," 0.00"
07/05/10,"00:16:00"," 79.41"," 76.51"," 33.74"," 5.90"," 5.90"," 1.49"," 148.78"," 40.53"," 40.05"," 1.90"," 331.28"," 121.14"," 0.00"," 0.00"
also Datum, Uhrzeit und dann eben Werte.
Eine Datei enthält immer 1 Tag. es wird minütlich geloggt (ca 1400 Zeien)
Soweit zum Ausgangsmaterial.
Diese Dateien möchte ich nun als Diagramme auswerten können.
Tages, Wochen, Monats, Quartalsdiagramm würde mir da vorschweben.
Eine einzelne Datei manuell ins Excel bringen ist kein Problem mit Text in Spalten.
Mehere wäre allerdings einiges an Aufwand (gibts da eine möglichkeit das zu Automatisieren?)
Weiteres Problem ist das Diagramm in Excel.
Da die Werte teils sehr flattern ergibt sich bei mir, wenn ich aus einer Tagesdatei ein XY Diagramm machen will, das nur noch ein dicker Strich draus wird.
Beim Wochendiagramm ist das dann noch extremer. Erschwerend ist da dann noch das Das Diagramm nicht damit klar kommt das alle 1400 zeilen die Überschrift kommt. (hab die Files einfach mal vorher mit dem guten alten Copy zu einer einzigen Verbunden ;) ) Also müss die auch irgendwie noch rausgefiltert werden.
Gibt es da Möglichkeiten z.b. den 30min Mittelwert zu bilden oder nur jeden 30sten wert in das Diagramm aufzunehmen?
Wäre ein anderer Diagrammtyp angebraucht als XY?
Ziel wäre es das ganze möglichst weit zu automatisieren :)
So ich hoffe das jetzt verständlich erklärt zu haben ;)
Danke fürs lesen (und hoffentlich antworten)
Gruß, Patrick

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

ChDir "C:\Daten" Workbooks.Open Filename:= _ "C:\Daten\SA00629.csv" Columns("A:A").Select Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 5), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array( _ 13, 1 _ ), Array(14, 1), Array(15, 1), Array(16, 1)), DecimalSeparator:=".", _ TrailingMinusNumbers:=True

Sub uebernehmen() Dim loLetzte As Long Dim loLetzte2 As Long Dim strPath As String Dim strFile As String strPath = "C:\Test\" ' "" If strFile ThisWorkbook.Name Then Workbooks.Open Filename:=strPath & strFile loLetzte2 = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, _ Rows.Count) Worksheets(1).Range("A1:A" & loLetzte2).Copy ThisWorkbook.Worksheets(1).Range("A" & _ loLetzte + 1) End If ActiveWorkbook.Close strFile = Dir() loLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _ Count) Loop Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _ Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _ :=Array(Array(1, 5), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), _ Array(7, 1), Array(8, 1), Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array( _ _ 13, 1 _ ), Array(14, 1), Array(15, 1), Array(16, 1)), DecimalSeparator:=".", _ TrailingMinusNumbers:=True End Sub

arrWerte = Range("A1:A" & loLetzte) For loZeile = 1 To loLetzte If IsDate(arrWerte(loZeile, 1)) Then Cells(loZeile, 1) = Day(arrWerte(loZeile, 1)) Cells(loZeile, 2) = Month(arrWerte(loZeile, 1)) Cells(loZeile, 3) = Year(arrWerte(loZeile, 1)) End If Next loZeile Columns("A:A").NumberFormat = "General"

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

CSV -> Excel -> Diagramm

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread