Thema Datum  Von Nutzer Rating
Antwort
30.11.2013 23:03:14 JB21
NotSolved
Blau Meldung bei neuem maximum
 01.12.2013 16:59:52 Amicro2000
NotSolved
01.12.2013 17:58:13 JB21
Solved

Ansicht des Beitrags:
Von:
Amicro2000		 Datum:
01.12.2013 16:59:52		 Views:
711		 Rating:
     
Antwort:
  Ja
Thema:
Meldung bei neuem maximum

Hallo Basti,

 

Probiere es mal hiermit:

Private Wert As Variant

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C26:C54")) Is Nothing Then
        If Application.WorksheetFunction.Max(Range("C26:C54")) > Wert Then MsgBox "Ein neuer Höchstwert von (" & Application.WorksheetFunction.Max(Range("C26:C54")) & ") wurde erreicht.", vbInformation, "Neuer Höchstwert."
    End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("C26:C54")) Is Nothing Then
        Wert = Application.WorksheetFunction.Max(Range("C26:C54"))
    End If
End Sub

Einfach in das gewünschte Tabellenblatt kopieren.

 

 

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
30.11.2013 23:03:14 JB21
NotSolved
Blau Meldung bei neuem maximum
 01.12.2013 16:59:52 Amicro2000
NotSolved
01.12.2013 17:58:13 JB21
Solved