vermsichte Diagramm-Daten aus Excel sortieren

Hallo Leute!
Ich hab folgendes Problem!
Ein Programm gibt mir Kurvenverläufe von verschiedenen Kurven in einer txt. Datei aus!
Ich habe die Kurvenwerte auch schon in ein excel sheet exportiert.
Es sind 8 Kurven... also 8 Diagramme.
Leider speichert das Programm die Kurvendaten durcheinander,
das heißt es sieht folgendermaßen aus.
CH0 Zeit: 0 Wert 89
CH1 Zeit: 0 Wert 20
CH2 Zeit: 0 Wert 10
CH3 Zeit: 0 Wert 40
CH4 Zeit: 0 Wert 100
CH5 Zeit: 0 Wert 3
CH6 Zeit: 0 Wert 4
CH7 Zeit: 0 Wert 78
CH8 Zeit: 0 Wert 33
CH0 Zeit: 1 Wert 56
CH1 Zeit: 1 Wert 44
CH2 Zeit: 1 Wert 11
Jezt will ich aber von jedem Kanal ( z.B. CH1 ) die Daten auswerten und ein Diagramm darstellen,
aber wenn die werte so durcheinander sind geht das nicht....
Kann mir jemand sagen wie ich diese so zerteile, dass jeder channel in einer eigenen spalte steht!
Also so
| CH0| CH1 | CH2 | CH3|
Zeitwerte:| 0 | 89 | 20 | 10 | 40 |
| 1 | 56 | 44 | 11 | |
Mit bestem Dank ...
Lg gregor

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Leute!
Hab mittlerweile eine VBA - Lösung dafür gefunden, welche Super funktioniert !
Hier:
--------------------------------------


Sub machmal()
Dim zeile As Long
Dim zeilemax As Long
Dim leer As Long
With ThisWorkbook.Worksheets("Tabelle1")
zeilemax = .Cells(Rows.Count, 1).End(xlUp).Row
For zeile = 4 To zeilemax
Select Case .Cells(zeile, 1).Value
Case 0: leer = .Cells(Rows.Count, 5).End(xlUp).Row + 1
.Cells(leer, 5).Value = .Cells(zeile, 3).Value
.Cells(leer, 6).Value = .Cells(zeile, 2).Value
Case 1: leer = .Cells(Rows.Count, 7).End(xlUp).Row + 1
.Cells(leer, 7).Value = .Cells(zeile, 3).Value
.Cells(leer, 8).Value = .Cells(zeile, 2).Value
Case 2: leer = .Cells(Rows.Count, 9).End(xlUp).Row + 1
.Cells(leer, 9).Value = .Cells(zeile, 3).Value
.Cells(leer, 10).Value = .Cells(zeile, 2).Value
Case 3: leer = .Cells(Rows.Count, 11).End(xlUp).Row + 1
.Cells(leer, 11).Value = .Cells(zeile, 3).Value
.Cells(leer, 12).Value = .Cells(zeile, 2).Value
Case 4: leer = .Cells(Rows.Count, 13).End(xlUp).Row + 1
.Cells(leer, 13).Value = .Cells(zeile, 3).Value
.Cells(leer, 14).Value = .Cells(zeile, 2).Value
Case 5: leer = .Cells(Rows.Count, 15).End(xlUp).Row + 1
.Cells(leer, 15).Value = .Cells(zeile, 3).Value
.Cells(leer, 16).Value = .Cells(zeile, 2).Value
Case 6: leer = .Cells(Rows.Count, 17).End(xlUp).Row + 1
.Cells(leer, 17).Value = .Cells(zeile, 3).Value
.Cells(leer, 18).Value = .Cells(zeile, 2).Value
Case 7: leer = .Cells(Rows.Count, 19).End(xlUp).Row + 1
.Cells(leer, 19).Value = .Cells(zeile, 3).Value
.Cells(leer, 20).Value = .Cells(zeile, 2).Value
End Select
Next zeile
End With
End 

Sub
Lg trotzdem danke
gregor

Beliebteste Forumthreads (12 Monate)

vermsichte Diagramm-Daten aus Excel sortieren

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

vermsichte Diagramm-Daten aus Excel sortieren

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

306 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread