hoe kan ik een titel in deze msgboxes plaatsen

[Avalondra]

ik heb hier een code gekregen van een vriend maar ik weet niet hoe ik bij die berichtjes een titel kan ingeven.

sBereik = Choose(lTel, "D4", "C26", "D26", "E26", "H26")
        sOpm = Choose(lTel, "Aantal kasten: is niet ingevuld.", _
            "Naam klant: is niet ingevuld.", _
            "Tel. klant: is niet ingevuld.", _
            "Adres klant: is niet ingevuld.", _
             "Email klant: is niet ingevuld.")

kan iemand mij daar misschien mee helpen?


Greetz AvA

 

[Wigi]

Bvb.

MsgBox "Bericht in het venster zelf",vbInformation,"JOUW titel"

 

[Avalondra]

dat is niet echt wat ik bedoel,
dit stuk zoals het hier staat kan ik niet vervangen door een msgbox zoals u daar heeft omdat het een deel is van een grotere macro die hieronder te zien is.

Sub Printen_V_2()
'
' Macro3 Macro
'
' Sneltoets: CTRL+p
'

xxx = MsgBox("U heeft op 'Afdrukken' geklikt, is dit ok?", vbYesNo, "Afdrukken:")

If xxx = vbYes Then

Application.ScreenUpdating = False

Dim sBereik As String
Dim sOpm As String
Dim lTel As Long

    For lTel = 1 To 5
        sBereik = Choose(lTel, "D4", "C26", "D26", "E26", "H26")
        sOpm = Choose(lTel, "Aantal kasten: is niet ingevuld.", _
            "Naam klant: is niet ingevuld.", _
            "Tel. klant: is niet ingevuld.", _
            "Adres klant: is niet ingevuld.", _
             "Email klant: is niet ingevuld.")
        If Range(sBereik) = 0 Then
            Range(sBereik).Interior.Color = 255
            Range(sBereik).Select
            MsgBox sOpm
            Exit Sub
        Else
            Range(sBereik).Interior.ColorIndex = xlNone
        End If
    Next


           With ActiveSheet.PageSetup
        .LeftMargin = Application.InchesToPoints(0.6)
        .RightMargin = Application.InchesToPoints(0.45)
        .TopMargin = Application.InchesToPoints(0.65)
        .BottomMargin = Application.InchesToPoints(0)
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
        .Zoom = False
        
    End With
    
    Application.ScreenUpdating = True

    
    ActiveWindow.SelectedSheets.PrintPreview

Else
End If

End Sub

dus als iemand dan een manier heeft om het hierin te verwerken dat er ook een titel aan dat schermpje gegeven wordt zou het fijn zijn.

   For lTel = 1 To 5
        sBereik = Choose(lTel, "D4", "C26", "D26", "E26", "H26")
        sOpm = Choose(lTel, "Aantal kasten: is niet ingevuld.", _
            "Naam klant: is niet ingevuld.", _
            "Tel. klant: is niet ingevuld.", _
            "Adres klant: is niet ingevuld.", _
             "Email klant: is niet ingevuld.")

Greetz AvA

 

[Ginger]

dus als iemand dan een manier heeft om het hierin te verwerken dat er ook een titel aan dat schermpje gegeven wordt zou het fijn zijn.

Maar DAT krijg je juist door Wigi aangereikt...

Klein stukje uit je eigen code...

       If Range(sBereik) = 0 Then
            Range(sBereik).Interior.Color = 255
            Range(sBereik).Select
            MsgBox sOpm [COLOR="Blue"], vbOkOnly, "wat een mooie titel geeft dit boven aan het venster..."[/COLOR]
            Exit Sub
        Else

Groet, Leo

 

[Avalondra]

ow srry dat had ik niet echt door 5ik wist niet echt hoe ik het erin moest verwerken.

Sorry wiggy maar ik had het niet echt door.


Greetz AvA