Daten an Textboxen übergeben mit "for-next"
21.11.2005 13:30:46
Frank
Ich möchte gerne Daten, die ich in Variablen eingelesen habe, mit einer For-Next-Schleife an Textboxen innerhalb eines Formulars übergeben.
So habe ich es probiert:
Private Sub UserForm_Initialize()
Dim kwv(1 To 20) As String
Dim i As Integer
Dim j As Integer
Sheets("Kennworte").Activate
'Einlesen der Benutzerdatenbank
For j = 1 To 20
kwv(j) = Range("B" & (j + 10))
Next j
'Übergabe der Benutzerdatenbank an Formular Kennworte
For i = 1 To 20
frmKennworte.TextBox(i) = kwv(1) '''HIER LIEGT DAS PROBLEM'''
Next i
Leider klappt das so nicht.
Aus meiner Tabelle mit den Kennworten werden alle Daten einwandfrei an die Variablen weitergegeben.
Excel gibt mit zu: frmKennworte.TextBox(i)die Fehlermeldung "Methode oder Datenbankobjekt nicht gefunden.
Wenn ich jeden Wert einzeln übergebe, also (i) jeweils bis 20 eine Ziffer schreibe und die Schleife weglasse funktioniert die Übergabe.
Hat einer eine Idee?
Gruß
Frank
End Sub