Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

TextBox'en mit Schleife füllen | Herbers Excel-Forum


Betrifft: TextBox'en mit Schleife füllen von: Karl
Geschrieben am: 21.10.2008 20:33:59

Hallo,

folgendes Problem. Ich habe ein Tabellenblatt mit 10 TextBox'en. Diese möchte ich mit Werten füllen.
Man kann es ja so machen:

Dim a as Byte
For a = 1 to 8
TextBox1.Value = Cells(a, 1)
TextBox2.Value = Cells(a, 2)
usw...
Next a

ich will das aber lieber mit einer Schleife programieren.

Ich habe folgendes Versucht:

Dim a as Byte
For a = 1 to 8
TextBox(a).Value = Cells(a, 1)
Next a

das funzt aber leider nicht.
Ich komm einfach nicht weiter. Kann Mir da jemand Helfen??

MfG Karl

  

Betrifft: AW: TextBox'en mit Schleife füllen von: Uduuh
Geschrieben am: 21.10.2008 20:40:54

Hallo,
me.controls("Textbox" &a)= Cells(a,1)

Gruß aus’m Pott
Udo



  

Betrifft: AW: TextBox'en mit Schleife füllen von: Karl
Geschrieben am: 21.10.2008 21:07:07

Hallo,
danke erstmal für die fixe Antwort.
Leider funktioniert das nicht auf einem "normalen" Tabellenblatt. In einem UserForm geht das. Da ich aber die TextBox'en auf einem Tabellenblatt habe geht das wohl nicht


  

Betrifft: AW: TextBox'en mit Schleife füllen von: Uduuh
Geschrieben am: 21.10.2008 21:45:05

Hallo,
dann o:

Sub ttt()
Dim a
For a = 1 To 8
Sheets(1).OLEObjects("Textbox" & a).Object.Text = Cells(a, 1)
Next
End Sub


Gruß aus’m Pott
Udo



  

Betrifft: AW: TextBox'en mit Schleife füllen von: Karl
Geschrieben am: 21.10.2008 21:48:10

Hallo,
JAAAAA!!! das iss es!!!
Super sei Dir gedankt!!!
Gruß


Beiträge aus den Excel-Beispielen zum Thema "TextBox'en mit Schleife füllen"