Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1004to1008
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Messagebox wenn bestimmter Wert überschritten

Messagebox wenn bestimmter Wert überschritten
07.09.2008 08:11:59
Heiderer
Hallo!
Folgende Ausgangssitutation:
In Spalte C stehen Zahlen, in Spalte D stehen Zahlen. In Spalte E wird der Prozent-Satz davon berechnet. Ich will nun, dass Excel automatisch jedes mal eine Messagebox auswirft, wenn in Spalte E der Prozent-Satz größer gleich 100 beträgt, aber auch erst dann, wenn ich in Spalte G ein Datum (bzw. den Wert) hingeschrieben bzw. verändert habe.
Ich hoffe, dass ihr versteht was ich meine und mir helfen könnt. Danke jetzt schon im voraus.

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Messagebox wenn bestimmter Wert überschritten
07.09.2008 08:53:01
Tino
Hallo,
so müsste es gehen.
Kommt als Code ins Tabellenblatt.
Microsoft Excel Objekt Tabelle1
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim Adresse As String 
  
 If Not Intersect(Target, Range("C:D")) Is Nothing Then 
   
  If Cells(Target.Row, "E") >= 100 Then 
   Adresse = Cells(Target.Row, "E").Address(False, False) 
    
   MsgBox "Der Wert in " & Adresse & _
   " ist größer oder gleich 100 " & Chr(13) & _
   "Der Wert in " & Adresse & _
   " ist: " & Cells(Target.Row, "E") 
  End If 
   
  End If 
End Sub 
 
 


Gruß Tino

Anzeige

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige