Thema Datum  Von Nutzer Rating
Antwort
18.01.2018 15:25:49 puddu
NotSolved
Blau OPC Daten in Excel loggen
 20.01.2018 17:40:52 puddu
NotSolved
22.01.2018 10:38:45 Gast14774
NotSolved

Ansicht des Beitrags:
Von:
puddu		 Datum:
20.01.2018 17:40:52		 Views:
512		 Rating:
     
Antwort:
  Ja
Thema:
OPC Daten in Excel loggen

Kurzes Update

Ich habe eine provisorische Lösung für das Problem gefunden. Damit funktioniert das loggen einwandfrei.

Dim TimetoRun
Dim Row As Integer
Public StopMacro As Boolean


Private Sub Worksheet_Calculate()

End Sub

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = "$D$6" Then
    
        TimetoRun = Now + TimeValue("00:00:01")
        Application.OnTime TimetoRun, "Tabelle1.SetRow"
        
    End If
    
End Sub
Sub SetRow()

    Row = 9
    StopMacro = False

    TimetoRun = Now + TimeValue("00:00:01")
    Application.OnTime TimetoRun, "Tabelle1.Analyse"

End Sub


Sub Analyse()

    Dim Zelle As Range
    
    Set Zelle = Cells(Row, 4)

        If Zelle.Value = "" Then
            Zelle.Value = Range("$D$6").Value
        End If
        
        Row = Row + 1
        Set Zelle = Cells(Row, 4)
        If StopMacro = True Then Exit Sub
        
        TimetoRun = Now + TimeValue("00:00:01")
        Application.OnTime TimetoRun, "Tabelle1.Analyse"

End Sub

Sub Reset()

    Tabelle1.Range("D9:D1000").Clear

End Sub

Sub Halt()

    StopMacro = True

End Sub

Sub Start()

    If Range("K6").Value = 1 Then
        TimetoRun = Now + TimeValue("00:00:01")
        Application.OnTime TimetoRun, "Tabelle1.SetRow"
    Else
        MsgBox "Kamera Online stellen"
    End If

End Sub

Offene Punkte

Application.OnTime funktiioniert nur im Sekundenbereich. Daher wird der Wert nur jede Sekunde geloggt. 

  • Gibt es eine Möglichkeit die Werte im ms-Bereich zu loggen?

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
18.01.2018 15:25:49 puddu
NotSolved
Blau OPC Daten in Excel loggen
 20.01.2018 17:40:52 puddu
NotSolved
22.01.2018 10:38:45 Gast14774
NotSolved