Wenn ich es richtig verstanden habe, dann sagt .ControlSource aus dass wenn ich in einer TextBox in einer UF eine Änderung durchführe, diese Änderung sofort im Tabellenblatt aktualisiert wird.
Ich habe in einer UserForm 110 TextBoxen von TextBox1 bis TextBox110.
Ich möchte jedoch erreichen dass nicht in allen Textboxen eine Änderung durchgeführt werden kann.
Dass z.B. in der TextBox6,11,16,21 usw. keine Änderung erfolgt sondern dfer darin stehende Wert bestehen bleibt und eine Änderung nur in den TextBoxen 7,8,9,10,12,13 usw. erfolgen kann.
Wie müßte ich hier bitte den VBA Text ändern?
Mit Case?
For int_Zähler = 1 To int_AnzFelder
'unter Hinzuziehung der Nummer des aktuellen Datensatzes
'der Inhalt der einzelnen Zellen des Datensatzes
'in die dafür vorgesehenen Textboxen geschrieben und
'diese Textbox als Controlsource eingerichtet
Controls("Textbox" & int_Zähler).ControlSource = r_Liste.Cells(lng_Datensatz, int_Zähler).Address
Next
Danke
Josef