Hallo,

ich hab Messdaten die ich von einem Messgerät über http://www.vbarchiv.net/api/api_connect.html einlese.

Je nach einstellung des Messgerätes können das 6 bis 648 Messwerte sein.

Das Messgerät hat 3 verschiedene Testverfahren jedes Testverfahren hat 6 Messwerte und kann auf bis zu 36 Kanälen ausgeführt werden

also 3x6x36=648

Die Messdaten kommen Komma seperiert an und nun muss ich sie in Excel eintragen.

Meine Idee war, Excel zählen zu lassen wieviele Zellen er befühlt hat und dann jenach einstellung der Testverfahren nach 6,12 oder 18 Zellen eine Zeile runter zu gehen. Funktioniert aber leider nicht so wirklich. Die andere Methode die ich ausprobiert habe war die Messdaten schon im Array mit reDim schon auf das passende Format zu bringen und sie dann mit Range einzufügen. Da sich aber die Range auch variable zu den Kanälen ändert, hab ich dies auch nicht hinbekommen.

Habt ihr eine Idee wie ich das vernünftig gelöst bekomme?

Gruß 

Tobias

Do While True
        ReceivedLine = Trim(ReadLine(hSock, 50000))
If (ReceivedLine = END_OF_DATA) Then
Worksheets("Init").TextBox_MeasureMessages.Text = Worksheets("Init").TextBox_MeasureMessages.Text & "Messung erfolgreich Beendet: " & Format(Now, "HH:MM:SS:MS") & vbCrLf
Application.Cursor = xlDefault
   Exit Do
 Else
 If (Len(ReceivedLine) > 0) Then

        DataItems = Split(ReceivedLine, ",")
        CountItems = UBound(DataItems())
    End If
      If DataItemCount = 300000 Then
         MeasurementOK = False
         Exit Sub
        End If
     If Source = "Switch" Then
       For i = 0 To CountItems
        ActiveCell.Offset(0, i) = Trim(DataItems(i))
            If i Mod Measurement = 0 Then
            ActiveCell.Offset(1, 0).Select
            End If
        Next i
      End If
   End If
Loop