25.02.2016, 12:16
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:
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: