msgbox vragen!

[harolda1980]

Ik wil dus nu een variabele weergeven in een msgbox
en hoe geef ik aan dat ik een enter wil ingeven in!!

 

[Jan van Asseldonk]

Korte vraag, kort antwoord.
Tik msgbox in vba, plaats de cursor erop en druk op F1.

 

[harolda1980]

!

Ja lekker bij de hand maar zo dom ben ik nou ook weer niet!!!

maar bij msgbox staat dat niet!

 

[Tardis]

Hallo harolda1980,

je vraag is mij niet echt duidelijk.
Wat wil je nu precies doen?

Groet,

Tardis

 

[harolda1980]

msgbox

Ik een variabele terug laten komen in een msgbox

die ik dus eerder via dim heb laten oppakken!

 

[Wigi]

Zet die jou op weg?

Sub messagebox()
    
    Dim vAntwoord As Variant
    
    vAntwoord = MsgBox("Klik Ja, Neen of Annuleren", vbYesNoCancel, "Geef antwoord aub")
    
    If vAntwoord = vbYes Then
        'op ja geklikt
    ElseIf vAntwoord = vbNo Then
        'op neen geklikt
    Else
        'op annuleren geklikt
    End If
    
End Sub

Wigi

PS: in het vervolg duidelijkere vragen stellen, anders zal je niet veel respons krijgen.

 

[harolda1980]

Nogmaals

Hmm Komt ie dan

msgbox "Bestand ingeladen {enter} (bestandsnaam)", , "Systeem Melding"

Dit is de regel! hij geeft aan dat het proces is afgerond en daarbij welk bestand gebruikt is!

Eerder heb ik de bestandsnaam laten onthouden die wil ik dus op de plek van de bestandsnaam laten neer zetten!

 

[Jan van Asseldonk]

Hiermee moet het lukken

msgbox "Bestand ingeladen" & vbcrlf & bestandsnaam, , "Systeem Melding"

 

[kavanel]

Msg box met opgehaalde bestandsnaam

Wellicht nog een verdere aanvulling op de reactie van Jan van Asseldonk; die het in een compleet script toont:

Sub test()
Dim fileToOpen As Variant
fileToOpen = Application _
    .GetOpenFilename("Excel Files (*.xls), *.xls")
If fileToOpen <> False Then
    MsgBox "Open " & fileToOpen
End If
Workbooks.Open fileToOpen
MsgBox "Bestand ingeladen" & vbCrLf & fileToOpen & vbCrLf & "Systeem Melding"
End Sub

wellicht is het nog van nut...