UserForm Kombinationsfeld mit gesperrter Zelle verbinden
#11
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:
Top
#12
Hallo,

ActiveCell.Offset(0,1).Value = Me.TextBox1
Gruß Atilla
[-] Folgende(r) 1 Nutzer sagt Danke an atilla für diesen Beitrag:
  • tpunkt
Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 3 Gast/Gäste