Zuweisung von Objekteigenschaften?
06.04.2017 16:26:17
Objekteigenschaften?
ich habe da mal wieder ein Problem und kann es mit meinen bescheidenen Mitteln nicht lösen :-(
Was will ich machen?:
Ich habe eine UserForm mit 12 Textboxen, die in Abhängigkeit von der Eingabe gefüllt werden.
Bsp.:
Wird in der ersten Textbox eine 4 eingetragen, so sollen in allen nachfolgenden Textboxen ebenfalls eine 4 eingetragen werden. Wird dagegen die 5. Textbox geändert (z. B. Eingabe "15"), so sollen die Werte nur in den nachfolgenden (also NICHT in den ersten 4) ebenfalls angepasst - also den Wert "15" erhalten.
Mein Lösungsansatz:
Ich hatte hierfür folgenden Lösungsansatz vorgesehen. Die Textboxen habe ich im Namen durchnummeriert (00 bis 12), um sie später identifizieren bzw. ansprechen zu können. Grundsätzlich ist der Trigger für eine Änderung das "AfterUpdate" Event. Anschließend wird der Name der Textbox in 2 Teile zerlegt - den Textanteil und den numerischen Anteil.
Aktuell habe ich den Code noch (zum Testen) der ersten Textbox zugeordnet. Grundsätzlich soll er aber in eine Funktion bzw. Prozedur ausgelagert werden, um ihn dann dynamisch (auch UserForm übergreifend) nutzen zu können. UF übergreifend, da auf anderen UF eine ähnliche Problematik besteht. Hier der Code:
Private Sub txt_bsp_00_AfterUpdate()
Dim var_string As String
Dim var_Teilstring_1 As String
Dim var_Teilstring_2 As Integer
Dim var_string_length As Integer
Dim i As Integer
Dim var_Zelleninhalt As Integer
Dim i_str As String
var_Zelleninhalt = UF_settings.txt_bsp_00.Value
var_string_length = Len(UF_settings.txt_bsp_00.Name)
var_Teilstring_1 = Left(UF_settings.txt_bsp_00.Name, (var_string_length - 2))
var_Teilstring_2 = CInt(Right(UF_settings.txt_bsp_00.Name, 2))
For i = var_Teilstring_2 To 12 Step 1
' Abfangen, wenn i Frage:
Ich vermute stark, dass das mit der Umbenennung, Verkettung und Zuweisung in die Variable "var_string" nicht geht, da "var_string" keine Objekteigenschaft ist und ich ihm somit auch keinen Wert zuweisen kann. Richtig?
Hat jemand eine Idee, wie ich das Problem lösen kann? Mit Objektprogrammierung o. ä. kenne ich mich absolut nicht aus.
VG und besten Dank schon mal vorab für eure Beiträge
Ingo