Übertrag aus Textbox in Liste
19.01.2008 19:52:00
Werner
hatte gestern von Ulf nachfolgenden Code für Übertrag aus Textfelder einer Userform in eine Liste erhalten. Hier Eintrag in Spalten A-E der ersten freien Zeile am Ende der Liste.
Wie stelle ich es an, dass diese 5 Einträge auf die Spalten A,B, D, G und H verteilt werden?
Private Sub CommandButton1_Click()
Dim i As Integer
Dim LZ As Long
For i = 1 To 5
LZ = Cells(Rows.Count, i).End(xlUp).Row + 1
Cells(LZ, i) = Controls("TextBox" & i).Value
Controls("TextBox" & i) = ""
Next i
End Sub
mfg werner