Hi,

ich bin noch Neuling in diesem Thema und möchte Messwerte von einem USB-AD-Wandlermodul in eine Tabelle schreiben. Vom Hersteller gab es ein Programmbeispiel was auch gut Funktioniert. Im Unteren Teil des Programms habe ich versucht die Messwerte immer in die folgenden Zellen zu Schreiben.

Das Programm schreibt mir aber nacheinander immer den den gleichen Wert in die Tabelle und erst wenn es am Ende angekommen ist liest es den nächsten Wert aus und beginnt wieder von vorne immer den gleichen wert in die Zellen zu schreiben.

Option Explicit

Dim T As String

Private Sub TextBox1_Change()
   Rem change device no
   USBADCX1.ADC_DeviceNo = Val(TextBox1.Value)
End Sub

Private Sub USBADCX1_OnADCRead()
'Auslesen der Kanäle 1-8   
   If Second(Now()) <> T Then
      T = Now()
      Cells(5, 8) = USBADCX1.ADC_CH0
      Cells(6, 8) = USBADCX1.ADC_CH1
      Cells(7, 8) = USBADCX1.ADC_CH2
      Cells(8, 8) = USBADCX1.ADC_CH3
      Cells(9, 8) = USBADCX1.ADC_CH4
      Cells(10, 8) = USBADCX1.ADC_CH5
      Cells(11, 8) = USBADCX1.ADC_CH6
      Cells(12, 8) = USBADCX1.ADC_CH7
   
End If

'Schreiben in Tabelle
Dim n As Integer
Columns("A:B").Select
Selection.ClearContents
    For n = 1 To 60
      Cells(n, 1) = USBADCX1.ADC_CH0
      Sleep 10
   Next n
   

End Sub

Ich bin für jede Hilfe Dankbar