Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1016to1020
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
TextBox'en mit Schleife füllen
21.10.2008 20:33:00
Karl
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TextBox'en mit Schleife füllen
21.10.2008 20:40:00
Uduuh
Hallo,
me.controls("Textbox" &a)= Cells(a,1)
Gruß aus’m Pott
Udo

AW: TextBox'en mit Schleife füllen
21.10.2008 21:07:07
Karl
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
AW: TextBox'en mit Schleife füllen
21.10.2008 21:45:05
Uduuh
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

Anzeige
AW: TextBox'en mit Schleife füllen
21.10.2008 21:48:10
Karl
Hallo,
JAAAAA!!! das iss es!!!
Super sei Dir gedankt!!!
Gruß

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige