Textfeld in UF sofort Aktualisieren
15.01.2017 13:51:58
Andi
In der Userform wird die TextBox015 über den Zellinhalt von "Hilfstabelle" bei Userform Activate mit Text befüllt:
nun kann ich über Comboboxen und CommandButton001 bis CommandButton0010 Texte in das Blatt " Bearbeiten - aktive Zelle C" kopieren.
Private Sub CommandButton001_Click() 'Uebertragen BM001
Range(TextBox0037.Value) = ComboBox001.Text
Private Sub CommandButton002_Click() 'Uebertragen BM002
Range(TextBox0037.Value) = ComboBox002.Text
End Sub
Private Sub CommandButton0010_Click() 'Uebertragen BM0010
Range(TextBox0037.Value) = ComboBox0010.Text
End Sub
Private Sub UserForm_Initialize()
UserForm1.TextBox0037.Value = ActiveCell.Address