Thema Datum  Von Nutzer Rating
Antwort
Rot Flankenauswertung
 17.01.2018 07:37:28 Frank
NotSolved
17.01.2018 10:30:33 Gast76233
NotSolved
17.01.2018 12:32:40 Frank
Solved

Ansicht des Beitrags:
Von:
Frank		 Datum:
17.01.2018 07:37:28		 Views:
994		 Rating:
     
Antwort:
  Ja
Thema:
Flankenauswertung

Hallo Zusammen,

ich habe folgendes Problem und zwar habe ich bei einer Überschreitung einer Zahl dass eine andere Zahl entweder rot oder grün wird. Soweit funktioniert noch alles. ich möchte allerdings dass wenn die Zahl rot wird zusätzlich eine Meldung kommt. Und zwar nur einmal! Bzw. erst wenn sie wieder rot wird. ich rufe das ereignis bei textbox_change auf und dantürlich wird dann jedesmal wieder die bedingung wieder durchlaufen und bei jeder eingabe einer zusätzlichen zahl erscheint die msgbox. ich habe schon versucht es über einen merker zu lösen aber komme irgendwie nicht weiter:

 

'Merker "merkeBudget" befindet sich in Modul 1 als Public

If merkerBudget = 99 And CDbl(txt_verbrauchtesBudget.Value) > Worksheets("Bestellnummern").Range("D3").Value Then
Me.txt_verbrauchtesBudget.ForeColor = RGB(255, 0, 0) 'rot
Exit Sub
Else
If CDbl(txt_verbrauchtesBudget.Value) > Worksheets("Bestellnummern").Range("D3").Value Then
MsgBox ("ACHTUNG - Budgetüberschreitung!!!")
merkerBudget = 99 '99 einfach so, kann auch andere Zahl sein
Me.txt_verbrauchtesBudget.ForeColor = RGB(255, 0, 0) 'rot
Else
Me.txt_verbrauchtesBudget.ForeColor = RGB(0, 255, 0) 'grün
merkerBudget = 0
End If
End If

 

der farbwechwel funktioniert super soweit nur weiß ich nicht wie ich die meldung hinbekomme...

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
Rot Flankenauswertung
 17.01.2018 07:37:28 Frank
NotSolved
17.01.2018 10:30:33 Gast76233
NotSolved
17.01.2018 12:32:40 Frank
Solved