Hallo
hier mein code
Dim blatt As Worksheet
Set blatt = ThisWorkbook.Worksheets("Tabelle1")
With blatt

Zeile = .Range("A600").End(xlUp).Row + 1
For Index = 1 To 8
.Cells(Zeile, Index) = Me.Controls("TextBox" & CStr(Index)).Value
Next Index

Dim c As Control
For Each c In UserForm1.Controls
If TypeName(c) Like "Text*" Then c.Value = ""
Next c
Excel fÄngt ab der Reihe A2 an untereinander zu kopieren.
Ich mÖchte aber dass er ab der Reihe A8 anfÄngt da dort die Tabelle beginnt.
Kann jemand den Code verbessern?
Danke und gruss Lucien