Brauche ein tipp
04.03.2004 09:36:10
lucien
Kann mir jemand mit meinem Code weiterhelfen?
ich habe eine userform mit 8 textboxen die den Inhalt in die Tabelle1 kopieren soll und zwar untereinander.
Hier der 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
End With
Das funktioniert gut, nur möchte ich dass EXCEL erst in der Reihe A5 anfängt die eintragungen vorzunehmen.
Was muss ich an meinem Code ändern?
danke und gruss