Thema Datum  Von Nutzer Rating
Antwort
19.10.2017 09:50:36 Roger
NotSolved
19.10.2017 10:49:22 SJ
NotSolved
19.10.2017 11:10:46 Gast44441
NotSolved
19.10.2017 11:16:59 Roger
NotSolved
Rot Daten Zeigergesteuert sammeln
19.10.2017 11:33:07 SJ
NotSolved

Ansicht des Beitrags:
Von:
SJ		 Datum:
19.10.2017 11:33:07		 Views:
647		 Rating:
     
Antwort:
  Ja
Thema:
Daten Zeigergesteuert sammeln

Ungetestet:

Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private blnStop As Boolean

Public Sub startMeasure()
    Dim strTmp As String
    strTmp = InputBox("Wert Zeitintervall (ms):")
    
    If strTmp = vbNullString Or Not IsNumeric(strTmp) Then
        MsgBox "Ungültige Eingabe.", vbExclamation
        Exit Sub
    End If
    
    Dim lngIntervall As Long
    
    lngIntervall = CLng(strTmp)
    blnStop = False
    
    Dim rngValue As Range
    Dim wksDaten As Worksheet
    
    Set rngValue = Worksheets("Tabelle1").Range("A1")   '-->Range für Wert anpassen
    Set wksDaten = Worksheets("Tabelle2")               '-->Tabellenblatt für Zeitreihe anpassen
    
    Do While Not blnStop
        Call addValue(wksDaten, Now, rngValue.Value)
        Call Sleep(lngIntervall)
        VBA.DoEvents
    Loop
    
    Set rngValue = Nothing
    Set wksDaten = Nothing
End Sub

Private Function addValue(ByRef wksDaten As Worksheet, ByVal datTime As Date, ByVal vValue As Variant)
    Dim l As Long
    l = wksDaten.Cells(wksDaten.Rows.Count, 1).End(xlUp).Row + 1
    
    With wksDaten
        .Cells(l, 1) = datTime
        .Cells(l, 2) = vValue
    End With
End Function

Public Sub stopMeasure()
    blnStop = True
End Sub

Viele Grüße

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
19.10.2017 09:50:36 Roger
NotSolved
19.10.2017 10:49:22 SJ
NotSolved
19.10.2017 11:10:46 Gast44441
NotSolved
19.10.2017 11:16:59 Roger
NotSolved
Rot Daten Zeigergesteuert sammeln
19.10.2017 11:33:07 SJ
NotSolved