Anzeige
Archiv - Navigation
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
824to828
824to828
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Inkrementelles Element in Schleife

Inkrementelles Element in Schleife
06.12.2006 10:41:14
Sebastian
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Inkrementelles Element in Schleife
06.12.2006 10:44:29
Rudi
Hallo,
Controls("Textbox" &i)
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Inkrementelles Element in Schleife
06.12.2006 11:09:35
Sebastian
Hallo Rudi!
Dank für deine Hilfe! Hat auf Anhieb funktioniert.
Gruß Sebastian
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige