UserForm Kombinationsfeld mit gesperrter Zelle verbinden

[tpunkt]

ICh habe jetzt den code hier für die Userform


Private Sub CommandButton1_Click()
Unload Me
End Sub

 Private Sub UserForm_Initialize()
With Me.ListBox1
.AddItem "T.Plat"
End With
End Sub
Private Sub ListBox1_Change()
  ActiveSheet.Unprotect "platini77"
  ActiveCell.Value = Me.ListBox1
  ActiveSheet.Protect "platini77"
End Sub

Private Sub TextBox1_Change()
 ActiveSheet.Unprotect "platini77"
  ActiveCell.Value = Me.TextBox1
  ActiveSheet.Protect "platini77"
End Sub

Wie kann ich der Textbox1 sagen,das sie eine Spalte nach der aktiven Zelle den Eintrag machen soll? :16: 
Und....geht es einer box zu sagen,zeig das Datum von heute an und trage das dann ein?
sorry,das ich so viiiiiel frage :05:

[atilla]

Hallo,

ActiveCell.Offset(0,1).Value = Me.TextBox1