Inputbox met default waarde

[peter16]

Hallo,

Ik maak in een macro gebruik van een inputbox opdracht. Nu zou ik eigenlijk willen dat deze inputbox standaard al is gevuld met bijvoorbeeld een woord welke in cel A1 staat. Wil ik deze waarde gebruiken dan kan ik op OK klikken maar wil ik een andere waarde dan zou ik het in de invoerregel van de inputbox zo over moeten kunnen typen.

Kortom de inputbox moet al een default waarde weergeven die desgewenst gewist/gewijzigd kan worden.

Weet iemand of dit kan en zo ja hoe dan?

Pebru.

 

[franç]

Zoals alle opdrachten wordt ookhet gebruik van de inputbox in de helpfile van Excel uitstekend uitgelegd. En toevallig is het voorbeeld dat erbij gegeven wordt, bijna precies wat je wenst.
Advies: kijk altijd eerst in de helpfile, daar kun je veel van leren.
Mocht het niet lukken, laat het dan even weten.

 

[Maik]

Ik zit met ongeveer dezelfde vraag en kan in de helpfile niets vinden, misschien iemand die er iets meer van weet?

 

[franç]

Ik zit met ongeveer dezelfde vraag en kan in de helpfile niets vinden

Waarop heb je dan gezocht in de helpfile?
Het ligt toch voor de hand om op het woord inputbox te zoeken, niet?
Daar gaar immers de vraag van de vragensteller over.
Welnu, wat zegt de helpfile van Excel als je het woord inputbox invult en in de dan verschijnende tekst op 'voorbeeld' hebt geklikt? O.a. het volgende

Dim Message, Title, Default, MyValue
Message = "Voer een waarde in tussen 1 en 3" ' Stel vraag in.
Title = "Demo InputBox" ' Stelt titel in.
Default = "1" ' Stelt standaard in.
' Geeft bericht, titel en standaardwaarde weer.
MyValue = InputBox(Message, Title, Default)

Hoe kunnen daarmee eenvoudig de vraag van Peter16 en van jou oplossen?
Door die tekst bijna helemaal letterlijk over te nemen.

Sub macro1()
Dim Message, Title, Default, MyValue
Message = "Voer een waarde in"
Default = Range ("A1").value
MyValue = InputBox(Message, Title, Default)
end sub

En daarmee heb je dan wat jij en Peter16 wensten.

 

[Maik]

Bedankt voor je reactie Franc maar eruit komen doe ik helaas nog niet.
Ik zal de vraag wat verduidelijken, het gaat in mijn geval overigens niet om een inputbox maar een MsgBox.


Sub bewaren()
'
' bewaren Macro
' De macro is opgenomen op 12-01-2006 door mairoz.
'
Dim CelMetNaam As String
Application.DisplayAlerts = False
CelMetNaam = ActiveSheet.Range("EI5").Value
ThisWorkbook.SaveAs Filename:="S:\BEDRIJFSBUREAU\" & CelMetNaam
Application.DisplayAlerts = True
MsgBox ("Opgeslagen")
End Sub


Wat ik zou willen is dat de melding in de MsgBox wordt : Opgeslagen + de waarde uit een bepaalde cel op het werkblad.

Groet,

 

[franç]

1. De drive S: en de map BEDRIJFSBUREAU moeten bestaan.
2. Maak van ThisWorkbook.SaveAs Filename:="S:\BEDRIJFSBUREAU\" & CelMetNaam
ThisWorkbook.SaveAs Filename:="S:\BEDRIJFSBUREAU\" & CelMetNaam & ".xls"

succes ermee.

 

[Jan van Asseldonk]

Maik

msgbox("Opgeslagen " & Range("A1").value)

 

[Maik]

Het werkt.
Bedankt.

 

[franç]

Het werkt. Bedankt.

Hopelijk ook bij peter16.
Misschien vernemen we dat nog....

 

[peter16]

ik heb het zo opgelost

Hallo allemaal,

Bedankt voor de reactie. Ik had het inmiddels gevonden door de volgende regel te gebruiken:

Zoekterm = InputBox("Op welke zoekterm wilt u zoeken?", "Zoekopdracht", Range("a1").Value)

Waarbij dus in A1 de standaard waarde staat.

Pebru