für eine Anlage werden Messwerte (ca. alle 10 sekunden registriert) der Code hierfür:
Private Sub Timer2_timer_.xls()
Dim Zeile as long
Dim Dateiname as string
Sheets("Mustertabelle").Copy
With activeworkbook.sheets(1)
Zeile = .cells(rows.count, 1).end(xlup)row + 1
.cells(zeile,1).value = Date
.cells(zeile,2).value = Time (hier folgt dann noch weiteres)
falls Parameter unerwünschte Ausmaße annnehmen, wird eine Störmeldung gegeben und visualisert.
Dafür existiert dieser Code:
'Störmeldungen (1)
x = InStr(y + 1, zaehler1, " ")
stoer = Mid(zaehler1, y, x - y)
If stoer > 0 Then
If stoer1fangschaltung = 0 Then stoer1fangschaltung = stoer
End If
stoer1fang.Text = stoer1fangschaltung
y = x
If stoer And 1 Then
stoermeldung1(9).BackColor = &HC0&
stoermeldung1(9).ForeColor = &H80000012
Else
stoermeldung1(9).BackColor = &H80000000
stoermeldung1(9).ForeColor = &H8000000C
End If
If stoer And 2 Then
stoermeldung2(8).BackColor = &HC0&
stoermeldung2(8).ForeColor = &H80000012
Else
stoermeldung2(8).BackColor = &H80000000
stoermeldung2(8).ForeColor = &H8000000C
End If
Ich möchte nun zusätzlich die jeweilige Störmeldung (z.B. 1;2;....) mit entsprechender Textmeldung (z.B. für die stoermeldung1 "Temperatur zu hoch!" ) mit aufzeichnen lassen.
es soll jeweils nur die erste Meldung aufgezeichnet werden, alle folgenden zeigen ja nicht den Auslöser der Störung.
Wie würde der Code demnach erweitert werden müssen?
(Ich hab mal das Beispiel anghängt wie ich mir das Vortselle (
fiktive Störmeldung))
https://www.herber.de/bbs/user/52625.xls
danke im Voraus.
christian