Mit VBA in Excel Zellen schreiben...

Hy Volk,

habe schon wieder ein Problem mit VBA!

Ich möchte über eine User Form Werte in Excel Zelle schreiben
Mann trägt die Werte in die Textfelder ein, beim Drücken eines Buttons werden die Werte in die Zellen geschrieben. Danach wird die nächste Position ausgeführt und die Werte sollten in die nächste Spalte geschrieben werden. Irgendwie stimmt mit der Syntax etwas nicht.

Hier mal mein Code:

Private Sub CommandButton1_Click()
Dim i As Integer
Dim s As Integer

s = 13
i = posnr.Text
Cells(1, s).Value = i
Cells(2, s).Value = menge.Text
Cells(3, s).Value = stunden.Text
Cells(4, s).Value = einzelpreis.Text
i = i + 1
s=s + 1
posnr.Text = i
menge.Text = ""
stunden.Text = ""
einzelpreis.Text = ""
End Sub

Unten noch die UserForm
Irgendwie funktioniert es nicht, dass er beim den Durchläufen in die nächste Spalte schreibt.

Ich hoffe jemand kann mir helfen!

mfg

Dim i As Integer
Dim s As Integer
Dim erstdurchlauf As Boolean


Private Sub CommandButton1_Click()
If Not erstdurchlauf Then
s = 13
erstdurchlauf = True
End If
i = posnr.Text
Cells(1, s).Value = i
Cells(2, s).Value = menge.Text
Cells(3, s).Value = stunden.Text
Cells(4, s).Value = einzelpreis.Text
i = i + 1
s = s + 1
posnr.Text = i
menge.Text = ""
stunden.Text = ""
einzelpreis.Text = ""
End Sub

Danke für die Hilfe, funktioniert super!