Guten Morgen Holger,
mein Programm sieht wie unten aufgeführt aus. Ich habe das selbe Problem wie du. Ich finde diesen Abbrechen Button oder das Schließen Kreuzchen ebenfalls nicht.
Das Programm läuft einwandfrei, einzig und alleine dieser Abbrechen Button bereit noch Kummer.
Ich habe mir schon über diese Do... Loop while Funktion den Kopf zerbrochen, aber bin zu keinem Ergebnis gekommen.
Gruß Pete
Holger schrieb am 08.04.2009 17:39:54:
Hallo Pete,
welchen Code hast du dem Abbrechen-Button zuordnet? Endet das Makro nicht von selbst?
Gruß
Holger
Pete schrieb am 08.04.2009 15:38:55:
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
|