ChrisFragtGern
07.09.2017, 12:36
UserForm Textboxen mit Werten aus Excel Datei füllen?

Ich habe eine Excel Datei, die mittels Makro mit Werten befüllt wird.

Dasselbe Makro soll nun eine bestimmte Spalte der Datei durchlaufen und dann mittels Schleife alle TextBoxen der UserForm mit diesen Werten füllen.

Mein Versuch dazu: 

  Dim i As Byte
  Dim currentName As String

For i = 1 To 10

    currentName = sheet.Cells(i, "H").Value
    

    UserForm1.Controls("TextBox" & CStr(i)).Value = currentName

Next

Funktioniert leider nicht. Muss ich bei der Initialisierung der UserForm oder der TextBoxen noch was beachten?

Fehlermeldung: Laufzeitfehler 91: Objektvariable oder With-Blockvariable nicht festgelegt.

Folgende Zeile wird markiert:

UserForm1.Controls("TextBox" & CStr(i)).Value = currentName
 ...zum Beitrag
Antwort
von verreisterNutzer
07.09.2017, 12:39

Schreib im Userform folgendes:

(in Excel2007/ 2010 getestet)

Private Sub UserForm_Initialize()
  Dim i As Byte
  Dim currentName As String

  For i = 1 To 10
    '8 = H
    currentName = Cells(i, 8).Value
    UserForm1.Controls("TextBox" & CStr(i)).Text = currentName
  Next
End Sub
 ...zur Antwort