Herbers Excel-Forum - das Archiv

Worksheet_SelectionChange

Bild

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

Bild

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)

Bild

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

Bild

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.

Bild

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

Bild

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.

Bild

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

Bild

Betrifft: DANKE
von: El Tuto
Geschrieben am: 09.06.2008 12:03:32
Danke für die schnelle Hilfe.
Problem gelöst.
Gruss Eltuto

 Bild