vba in excel

[vson]

Ik ben een beetje aan het oefenen met vba in excel.
Ik probeer een klein programmetje te maken waarbij
bv adres gegevens worden ingevoerd.
vb a1=naam ; b1=woonplaats c3=telefoon etc.

Het probleem bij mij is dat elke keer als ik de gegevens invoer beland ik weer bij cell a1 i.p.v cell a2 etc.

De bedoeling is dat elke keer als ik nieuwe gegevens invoer ze moeten worden toegevoegd aan de database.

Private Sub tcmd_Click()
Dim naam As String
Dim straatnaam As String
Dim postcode As String
Dim woonplaats As String
Dim telefoon As Integer


Range("a4").Select
naam = InputBox("Geef een naam op ?")
ActiveCell.FormulaR1C1 = naam

straatnaam = InputBox("Geef een straatnaam op ?")
Range("b4").Select
ActiveCell.FormulaR1C1 = straatnaam

postcode = InputBox("Geef een postcode op ?")
Range("c4").Select
ActiveCell.FormulaR1C1 = postcode

woonplaats = InputBox("Geef een woonplaats op ?")
Range("d4").Select
ActiveCell.FormulaR1C1 = woonplaats

telefoon = InputBox("Geef een telefoonnummer op ?")
Range("e4").Select
ActiveCell.FormulaR1C1 = telefoon

ActiveCell.Offset(1, -4).Range("a1").Select

End Sub

zou iemand mij kunnen vertellen wat ik verkeert doe.

 

[Jan van Asseldonk]

Haal Range("A1") in de laatste regel weg.
Doordat je steeds een vaste cel selecteerd met range(...).select zul je ook steeds op dezelfde plaats uitkomen. Deze verwijzingen moeten variabel gemaakt worden.
Kijk eens hier of hier voor meer info.

 

[vson]

bedank