IsText geen foutmelding noch de MsgBox

[Geminite]

Beste helpers,

Een kennis is zo strak in zijn mening dat zijn Excelletje precies doet wat hij nodig heeft en dat het simpelweg niet anders kan.

Maarnu door mijn nieuwe verslaving wil ik hem ff gek maken :evil: met een kleine macro.

Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target.AddressLocal(ColumnAbsolute:=False), 1) = "E" Then
If IsNumeric(Target.Value) And Target.Value <= 10 Then
MsgBox ("BOE")
If IsNumeric(Target.Value) And Target.Value >= 11 Then
MsgBox ("ALERT!, het spookt")
If Application.IsText(Target.Value) And Target.Value = "n/a" Then
MsgBox ("WAT!!!!")
MsgBox ("This wel mogelijk")
End If
End If
End If
End If

End Sub


De waardes onder 10 werkt goed, maar 11 of hoger niet.
De IsText is volgens het web niet een excell en heeft application nodig, echter ik krijg geen foutmelding noch de Box ?

Kan iemand mij vertellen waar ik het verkeerde pad ben opgegaan ?

Alvast bedankt

 

[leofact]

istetxt = een werkbladfunctie en die gebruik je als volgt in VBA

Application.WorksheetFunction.IsText(waarde)

mvg Leo

 

[Geminite]

bedankt voor de snelle reponse.

Helaas werkt hij dan niet .

Sidetrack vraag, hoe maak je er een blok van om hem te omlijnen in de post ?

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 5 Then
        If IsNumeric(Target.Value) And Target.Value <= 10 Then MsgBox "BOE"
        If IsNumeric(Target.Value) And Target.Value >= 11 Then MsgBox "ALERT!, het spookt"
        If Not IsNumeric(Target.Value) And Target.Value = "n/a" Then MsgBox "WAT!!!!" & vbCr & "This wel mogelijk"
    End If
End Sub

Selecteer je volledige code en klik dan op het # in de balk

 

[Cobbe]

Ik heb nog een kleine aanpassing gedaan om het te doen werken:

Private Sub Worksheet_Change(ByVal Target As Range)
    [COLOR="Red"][B]If Selection.Cells.Count > 1 Then Exit Sub[/B][/COLOR]
    If Target.Column = 5 And Target.Value <> "" Then
        If IsNumeric(Target.Value) And Target.Value <= 10 Then MsgBox "BOE"
        If IsNumeric(Target.Value) And Target.Value >= 11 Then MsgBox "ALERT!, het spookt"
        If Not IsNumeric(Target.Value) [COLOR="red"][B]Or[/B][/COLOR] Target.Value = "n/a" Then MsgBox "WAT!!!!" & vbCr & "This wel mogelijk"
    End If
End Sub

Hopelijk is dit naar wens,
Cobbe

 

[snb]

of

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Column = 5 and target.count=1 Then
     c0= iif(iserror(Target),"Wat" & vbCr & "T'is wel mogelijk", "geen fout")
     If isnumeric(target) then c0=iif(target<=10,"BOE","Alert, het spookt")
     msgbox c0
  End If
End Sub

 

[Geminite]

Allen, bedankt voor de hulp, het werkt.

Even puzzelen waar ik nu fout zat (behalve IsText te gebruiken) en weer een stap dichter met logica Excel

Vraag is opgelost, maar ik zie dat alle suggesties slechts 1 End If hebben ?

 

[leofact]

if then op één regel hoeft (kan) niet afgesloten met end if
Mvg Leo