Herschrijving rijen

[Brach]

Beste,

Ik heb een userform gemaakt voor klantgegevens op te slaan, het probleem is alleen dat hij iedere keer opnieuw mijn 1ste klanten blijft overschrijven.
Kan iemand het zien aan de hand van de volgende code :


Private Sub Toevoegen_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Klantenbestand")

'find first empty row in database
iRow = ws.Cells(Rows.Count, 15) _
.End(xlUp).Offset(1, 0).Row

'check for a part number
If Trim(Me.ComboBox2.Value) = "" Then
Me.ComboBox2.SetFocus
MsgBox "Gelieve een klantnummer in te vullen"
Exit Sub
End If

'copy the data to the database
ws.Cells(iRow, 16).Value = Me.Dhr.Value

ws.Cells(iRow, 5).Value = Me.TextBox1.Value
ws.Cells(iRow, 7).Value = Me.TextBox2.Value
ws.Cells(iRow, 9).Value = Me.TextBox3.Value
ws.Cells(iRow, 10).Value = Me.TextBox4.Value
ws.Cells(iRow, 11).Value = Me.TextBox5.Value
ws.Cells(iRow, 12).Value = Me.TextBox6.Value
ws.Cells(iRow, 14).Value = Me.TextBox7.Value
ws.Cells(iRow, 15).Value = Me.TextBox8.Value

ws.Cells(iRow, 2).Value = Me.ComboBox2.Value


Heb de hele tijd het idee dat wat rood is ( 15 ) dat het daar ergens moet zitten maar kom er niet aan uit.
Ik krijg ze wel in de juiste kolom, maar niet in de juiste rij.
Combobox2 staat in B14 en dan moet die steeds omlaag worden ingevuld, B15,B16, etc zijn steeds nieuwe klanten.

Mvg Brach

 

[HSV]

Je vult waarschijnlijk niet altijd textbox8.
Maak van de 15 een 2.

 

[Brach]

Nu werkt het wel.
Dank je wel.

Mvg Brach