Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Worksheet_SelectionChange

Betrifft: Worksheet_SelectionChange von: El Tuto
Geschrieben am: 09.06.2008 11:41:46

Hallo Profis!
Ich benutze das hier um eine MsgBox zu generieren:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("G50") <= 9.02777777777778E-02 Then
MsgBox "ACHTUNG ", vbCritical + vbOKOnly, "VORSICHT !"
End If
End Sub



G50 ist als [h]:mm formatiert

Ich hätt jetzt gerne das die MsgBox nur dann kommt wenn der wert nicht erreicht wurde, und wenn der wert bei "0:00" ist dann nicht

Könnt Ihr mir da weiterhelfen?

Vielen Dank Eltuto

  

Betrifft: AW: Worksheet_SelectionChange von: Uwe (:o)
Geschrieben am: 09.06.2008 11:48:04

Hi,
so?:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("G50") < 9.02777777777778E-02 And Range("G50") <> 0 Then
MsgBox "ACHTUNG ", vbCritical + vbOKOnly, "VORSICHT !"
End If
End Sub


Gruß
Uwe
(:o)


  

Betrifft: AW: Worksheet_SelectionChange von: El Tuto
Geschrieben am: 09.06.2008 11:59:25

Hi,
nicht ganz.

da ein Wert von = G50 "=SUMME(MIN(I11:I48)-MAX(E11:E48))" immer drinnen steht kommt die MsgBox immer.
Und ich hätte gerne bei 0:00 keine Box.
gruss
Eltuto


  

Betrifft: AW: Worksheet_SelectionChange von: Uwe (:o)
Geschrieben am: 09.06.2008 13:33:05

Hi,
wenn der Wert der Formel GENAU 0 ist dürfte eigentlich keine Msgbox erscheinen!??
Falls Du da verschiedene Zeiten summierst, kann es,glaube ich, sein, das die Differenz nicht wirklich 0 wird.
Evtl kannst Du das abfangen indem Du:

If Range("G50") < 9.02777777777778E-02 And Range("G50") > 0,0000001 Then


oder so ähnlich abfragst.
Aber vielleicht weis jemand was Besseres? Evtl müsstest Du erklären was in den Zellen für die Summen steht.


  

Betrifft: AW: Worksheet_SelectionChange von: Rudi Maintaire
Geschrieben am: 09.06.2008 11:52:22

Hallo,
so?
if Range("G50")> 0 and Range("G50")<=TIMESERIAL(2,10,0) Then

Gruß
Rudi


  

Betrifft: AW: Worksheet_SelectionChange von: Yusuf
Geschrieben am: 09.06.2008 11:52:58

hi,

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

   If Range("G50") <= 9.02777777777778E-02  AND Range("G50") = "0:00" Then

          MsgBox "ACHTUNG ", vbCritical + vbOKOnly, "VORSICHT !"

   End If
End Sub



durch eine AND-Verknüpfung der kriterien.


  

Betrifft: AW: Worksheet_SelectionChange von: Reinhard
Geschrieben am: 09.06.2008 11:54:37

Hola El Tuto,

bei jedem Zellwechsel soll eine MsgBox kommen? Naja, dann mal fröhliches Arbeiten mit der tabelle:

Option Explicit
'
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim M
On Error GoTo Fehler
M = Hour(Range("G50")) * 60 + Minute(Range("G50"))
If M > 0 And M <= 10 Then
   MsgBox "ACHTUNG ", vbCritical + vbOKOnly, "VORSICHT !"
End If
Exit Sub
Fehler:
   MsgBox "Was faul mit dem Wert in G50"
End Sub



Gruß
Reinhard


  

Betrifft: DANKE von: El Tuto
Geschrieben am: 09.06.2008 12:03:32

Danke für die schnelle Hilfe.
Problem gelöst.
Gruss Eltuto