Hallo zusammen!
Ich habe folgendes Problem: Ich möchte mehreren Formularfeldern verschiedene Werte aus einem Tabellenblatt zuweisen. Momentan habe ich das "von Hand" realisiert, da es aber im Lauf des Programms noch öfter passieren soll hab ich versucht die Lösung zu vereinfachen. Die stelle an der es bei mir scheitert, ist das Ansprechen der richtigen TextBox in der Schleife. Ich möchte mir den Namen der Richtigen TextBox aus "TextBox" und "i" zusammensetzen ("TextBox & i.Text"). Hier komme ich aber leider nicht weiter. Ich bin mir sicher, dass das für einige von Euch kein großes Problem darstellt und bitte darum um Eure Hilfe.
Ursprungscode:
TextBox4.Text = Sheets(ComboBox2.Text).Range("C10")
Sheets("Worksheet").Range("C10") = Sheets(ComboBox2.Text).Range("C10")
TextBox5.Text = Sheets(ComboBox2.Text).Range("C11")
Sheets("Worksheet").Range("C11") = Sheets(ComboBox2.Text).Range("C11")
TextBox6.Text = Sheets(ComboBox2.Text).Range("C12")
Sheets("Worksheet").Range("C12") = Sheets(ComboBox2.Text).Range("C12")
TextBox7.Text = Sheets(ComboBox2.Text).Range("C13")
Sheets("Worksheet").Range("C13") = Sheets(ComboBox2.Text).Range("C13")
TextBox9.Text = Sheets(ComboBox2.Text).Range("C14")
Sheets("Worksheet").Range("C14") = Sheets(ComboBox2.Text).Range("C14")
TextBox10.Text = Sheets(ComboBox2.Text).Range("C15")
Sheets("Worksheet").Range("C15") = Sheets(ComboBox2.Text).Range("C15")
TextBox11.Text = Sheets(ComboBox2.Text).Range("C16")
Sheets("Worksheet").Range("C16") = Sheets(ComboBox2.Text).Range("C16")
Lösungsansatz:
For i = 4 To 11
TextBox & i.Text = Sheets(ComboBox2.Text).Range("C" & 6 + i)
Sheets("Worksheet").Range("C" & 6 + i) = Sheets(ComboBox2.Text).Range("C" & 6 + i)
Next i
Viele Grüße
Sebastian