UserForm activeren

[Tommy1]

Hallo allemaal,
Omdat een MsgBox niet is op te maken heb ik de box vervangen door een UserForm.
Kan ik deze met dezelfde code laten verschijnen?
De code van de MsgBox is:

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("A6,A39,A72,A105,A138,A171,A204,A237,A270,A303,F10,F43,F76,F109,F142,F175,F208,F241,F274,F307") = 301 Then

If Not Intersect(Target, Range("E13,G13,E46,G46,E79,G79,E112,G112,E145,G145,E178,G178,E211,G211,E244,G244,E277,G277,E310,G310")) Is Nothing Then
If Application.WorksheetFunction.Odd(Target.Value) = Target.Value Or Target.Value > 40 Then
MsgBox "Darts 301 begint met één DUBBEL!"
End If
End If
End If
End Sub

Groet, Tommy

 

[Warme bakkertje]

Vervang de MsgBox-lijn door

NaamUserform.Show

Voor wat algemene informatie betreffende userforms zie http://www.contextures.com/xlUserForm01.html alsmede de zoekfunctie van dit forum

Mvg

Rudi

 

[Tommy1]

Hallo Rudi,

Ik had die site al wel gevonden maar mijn Engels is niet zo goed. Vandaar.

Ik ga het proberen,
Bedankt voor je tijd.

Gr. Tommy.