Textfeld in Userform über For-Schleife befüllen
24.08.2017 15:49:49
Nusser
Ich beiße mir an einem Problem seit geraumer Zeit die Zähne aus.
Ziel: Beim Betätigen des Weiter - Buttons soll eine von diversen Text-Boxen der Userform neu befüllt werden. Der Text steht in einer Excel-Spalte.
Grund: Ich möchte nicht 300x die Userform neu erstellen, wenn sich im Prinzip nur eine Textbox ändert.
Ansatz: Ich habe versucht, die Excel-Zellen folgendermaßen anszusprechen:
Private Sub cmdWeiter_Click()
Set Datenblatt = ThisWorkbook.Sheets("Standbeurteilung") 'Tabelle1 --> Name der Tabelle
Dim Zeile(100)
Dim r As Range
'letzte befüllte Zelle in Spalte F
lLetzteF = Cells(Rows.Count, 6).End(xlUp).Row
'von F2 bis zur letzten befüllte Zelle in Spalte F
For Each r In Range("F2:F" & lLetzteF)
Zeile(i) = r.Row
txtBeurteilungspunkt = Datenblatt.Cells(Zeile(i), 6).Value
Next
End Sub
Problem: Wenn der Weiter-Button betätigt wird, ändert sich zwar das Textfeld, aber im Textfeld steht dann nicht der nächste Eintrag, sondern der letzte Eintrag der Liste der Excel-Tabelle.
Ich wäre über jeden Tipp äußerst dankbar.
Viele Grüße
Michaela
Anzeige