---

Hallo,
ich habe 15 TextBoxen mit der fortlaufenden Namensgebung txtSfBegleitdokument1, txtSfBegleitdokument2, txtSfBegleitdokument3 usw. erzeugt.
Nun möchte ich die alle in einer Schleife abfragen, ob darin etwas enthalten ist.

    For i = 1 To 15
       
        If txtSfBegleitdokument(i).Text > "" Then
            cmdErweitern.BackColor = &HC000&
        End If
       
    Next i

Bei dieser Schreibweise bekomme ich aber eine Fehlermeldung. Sub oder Function nicht definiert

Ersetze ich

If txtSfBegleitdokument(i).Text > "" Then

durch

If txtSfBegleitdokument1.Text > "" Then

bekomme ich keine Fehlermeldung, aber der eigentliche Zweck der Schleife ist natürlich nicht erfüllt.

Warum funktioniert diese Schreibweise mit der Variablen bei TextBoxen nicht, in anderen Fällen aber schon?
Wer hat eine Idee?

Grüße, Andi 

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

Versuch eines Hinweises:

das (i) deutet auf Index hin. Du sprichst aber grad keinen Index an, sondern eine Bezeichnung, die halt zufällig wie ein Index aussieht.

Evtl. kannst Du es zusammenbauen in der Art txtSfBegleitdokument & i & .Text
Oder Du sprichst die Klasse an, Beispiel Shapes(i), halt je nachdem, wo die Textboxen drin liegen.
HTH

------------------
Gruß,
runkelruebe          Herr Kann-ich-nich wohnt in der Will-ich-nich-Straße...

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Andi

das sollte über Userform-Controls gehen

wenn Dein Formular z.B.: UserForm1 heißt

For i = 1 To 15

      if UserForm1.Controls.Item("txtSfBegleitdokument" + Trim(Str(i)).Text >"" Then
.....
      End If
Next i

------------------
Grüße
Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
@runkelruebe
Dieses Zusammenbauen hatte ich vorher schon erfolglos durchgespielt.
Aber trotzdem Danke für deinen Vorschlag.

@Heinz
Deine Schreibweise führte zunächst noch zu einem Syntaxfehler.
Aber der Ansatz war richtig. Etwas rumprobiert und es kam das heraus.

If frmSfInfo.Controls.Item("txtSfBegleitdokument" + CStr(i)).Text > "" Then

Besten Dank euch beiden, nun kann ich mich weiter um den eigentlichen Code kümmern.

Grüße, Andi 

------------------
Hast du kein Problem?
Such dir eins. ( Und löse es )

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP