Hallo zusammen,
Hallo Holger,
ich habe deine Anmerkung letztes Mal versucht umzusetzen und siehe da die Corel Geschichte läuft jetzt tatsächlich, wenn gleich es auch ein langer Weg bis dahin war.
Nun habe ich jedoch noch eine Bitte an Dich. Du erinnerst dich sicherlich noch an dein Programm zu der Messwert Abfrage. Leider komm ich bei einem Problem absolut nicht weiter.
Wenn man den Abbrechnen Button drückt soll das Makro verlassen werden. Nun ist es jedoch so, dass wenn man den Abbrechen Button drückt immer wieder die Aufforderung zur Eingabe kommt.
Kannst du mir hierbei bitte weiter helfen
Gruß pete
Sub Eingeben(text, wert)
Static t
t = text
Do
wert = InputBox(t, Messwerte, wert)
t = text + vbCrLf + "Geben Sie einen vernünftigen Wert ein!"
Loop While wert = ""
End Sub
Sub messungen()
Eingeben "Geben Sie den MinGrenzwert ein!", ming
ming = CDbl(Replace(ming, ".", ","))
Eingeben "Geben Sie den MaxGrenzwert ein!", maxg
maxg = CDbl(Replace(maxg, ".", ","))
Do
Eingeben "Geben Sie ein Datum Zeitraum von bis ein! (Format: tt.mm.jjjj - tt.mm.jjjj)", Datum
Loop Until InStr(Datum, "-")
Do
Eingeben "Geben Sie Uhrzeit Zeitraum von bis an! (Format: hh:mm - hh:mm)", uhr
Loop Until InStr(uhr, "-")
Eingeben "Bitte geben Sie die Spalte an, in der Messwerte überprüft werden sollen.", sp
dvon = CDate(Trim(Left(Datum, InStr(Datum, "-") - 1)))
dbis = CDate(Trim(Mid(Datum, InStr(Datum, "-") + 1)))
uvon = CDate(Trim(Left(uhr, InStr(uhr, "-") - 1)))
ubis = CDate(Trim(Mid(uhr, InStr(uhr, "-") + 1)))
Cells.Interior.ColorIndex = xlNone
sp = Columns(sp).Column
For i = 1 To Cells(Rows.Count, sp).End(xlUp).Row
a = Cells(i, 1)
b = Cells(i, 2)
If a >= dvon And a = uvon And b = ming And Cells(i, sp) <= maxg Then
Cells(i, sp).Interior.Color = vbGreen
Else
Cells(i, sp).Interior.Color = vbRed
End If
Next i
End Sub
|