Hallo zusammen,
ich arbeite gerade an einer kleinen Datenbank und habe folgendes Problem:
Ich möchte die Textboxen einer Userform befüllen. Nachfolgend für eine einzelne Textbox (funktioniert auch).
With Worksheets("TJ").Range("A1:Z2000")
Set findresult2 = .Find("textbox_input_AO_ProvKauf")
End With
textbox_input_AO_ProvKauf = Cells(UserForm_suchen.zeile, findresult2.Column).Value
Jetzt möchte ich jedoch nicht jede einzelne Textbox einzeln befüllen, sondern das mit einer Schleife machen. Ich habe variablen bereits definiert. Diese Variablen (namen der Textboxen) habe ich in in Zellenbereich B3:Q3 geschrieben und jeden Variablennamen einer Position in einem eindimensionalen Arry gespeichert.
Leider wird beim Aufruf der Position des arrays keine Variable in der userform eingetragen. kann mir da vielleicht jemand weiterhelfen?
Dim i As Integer
' Dim tempforarray As String
arr = Range("B3:Q3").Value
For i = 1 To 16
With Worksheets("TJ").Range("A1:Z2000")
Set findresult2 = .Find(arr(1, i))
End With
' tempforarray = arr(1, i) ' versuch die Position des arrays in neue Varibale zu shreiben
MsgBox "i: " & i & "findresult2: " & findresult2 & vbCrLf & "Zeile: " & UserForm_suchen.zeile _
& vbCrLf & " Spalte: " & findresult2.Column & vbCrLf & " Arr(1,i): " & arr(1, i) _
arr(1, i) = Cells(UserForm_suchen.zeile, findresult2.Column).Value
arr(1, i) = Cells(UserForm_suchen.zeile, findresult2.Column).Value
' geht leider auch nicht
'tempforarray = Cells(UserForm_suchen.zeile, findresult2.Column).Value
Next i
End If
Vielen Dank