Textbox hinter aktive Zelle übertragen

[tpunkt]

hallo Ihr Wissenden
Habe im Moment diese 2 Subs...
Die ja so nicht gehen,weil ich ja nicht 2 sachen in eine zelle übertragen kann,
deshalb ist meine Frage,wie kann ich der TextBox sagen,das sie Die Zelle neben der markierten Zelle nimmt?


Private Sub ListBox1_Change()
 
  ActiveCell.Value = Me.ListBox1
 
End Sub

Private Sub TextBox1_Change()
 
  ActiveCell.Value = Me.TextBox1
 
End Sub

danke im vorraus

[atilla]

Hallo,

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