Vba Code verbessern
04.03.2004 17:49:44
Lucien
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