Active selectie vullen met variabele waarde

[wlsandman]

Ben ik weer

Ik probeer een code te schrijven om een active selectie te vullen met een waarde die middels een inputbox wordt ingegeven.

Ik had al wat geprobeerd maar mijn kennis over vba is blijkbaar niet toereikend genoegd.

Sub datumtoevoegen()
Dim c As Range
Dim answer As String
answer = InputBox("Welke waarde wilt u toevoegen aan de selectie?", "Waarde toevoegen")
With answer = c
End With
End Sub

Dus als iemand een selectie van cellen maakt, en daarna op de knop drukt dan komt er een inputbox tevoorschijn waar de gebruiker een waarde ingeeft. De selectie wordt daarna gevuld met die waarde!

Alvast bedankt

 

[Wigi]

Hallo

Private Sub CommandButton1_Click()
    Dim answer As String
    answer = Application.InputBox("Welke waarde wilt u toevoegen aan de selectie?", "Waarde toevoegen", Type:=2)
    Selection = answer
    Selection.Select
End Sub

Zet eerst een button op je werkblad met de werkbalk Visual Basic. De code die ik je gaf doet dan de rest wel.

Wigi

 

[wlsandman]

Het lijkt zo simpel, maar ik krijg het nooit voor elkaar

Mijn grote dank :thumb: