Probleempjein VBA

[Scallebe]

Beste specialistas....

Met onderstaande code krijg ik enkele inputboxen om bepaalde gegevens in te voeren. Met onderstaande code komen dan ook de ingevoerde gegevens in de desbetreffende cellen. Hoe kan ik er voor zorgen dat de gegevens geplaatst worden in de rij die ik geselecteerd heb en niet telkens in de rij 4 zoals het voorbeeld.


Sub Nieuw()

[A4] = InputBox("Naam")
[B4] = InputBox("Voornaam")
[C4] = InputBox("Status")
[D4] = InputBox("Specialisatie")
[E4] = InputBox("Eenheid")

End Sub

Is het ook mogelijk met 1 inputbox te werken waar de 5 velden in komen te staan maar waar na input wel "naam" in kolom A komt en "Voornaam" in kolom B enz... en dus ook in de rij die ik geselecteerd heb.

Bedankt

Pascal

 

[edmoor]

Naar mijn mening kan je beter een Userform maken met 5 Textboxes en een Opslaan knop. De code achter de knop kan dan eenvoudig de ingevoerde teksten in de juiste kolommen op de juiste regel plaatsen.

 

[VenA]

Range("A" & ActiveCell.Row) = InputBox("Naam")

je tweede vraag is wel mogelijk maar lijkt mij niet handig. Je hebt dan een uniek scheidingsteken nodig op excel te laten weten waar wat eindigt.