Pop-up

[patrickje]

Kan ik na het selecteren van een bepaalde cel een messagebox laten opkomen waar ik een waarde moet ingeven ???

de ingegeven waarde moet dan weer in een cel komen te staan.

 

[Cobbe]

Ja dat kan en wel eenvoudig:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("d1:d10")) Is Nothing Then Exit Sub
Target = InputBox("geef een waarde :")
End Sub

Hier voor de cellen D110, dit bereik kan je naar believe aanpassen.

Cobbe

 

[patrickje]

Ok dank je wel