Wert aus einer Zelle in ein Textfeld übertragen
13.10.2017 16:32:15
Martina
ich stehe mal wieder total auf dem Schlauch und komme nicht weiter.
Situation ist Folgende:
Ich habe einer UserForm3 mit einem Klick-Button. In der gleichen Userform3 befindet sich auch meine TextBox15. Durch einen Klick möchte ich gerne mittels einer Schleife meine "Daten" durchlaufen lassen und bei bestimmten String-Werten in den Spalten A und B der (z.B in der Zeile i) den Wert von der Spalte E / Zeile i in der TextBox15 einfügen.
Mein Ansatz:
Private Sub CmdBefehl_Click()
Dim i As Integer, Projekt As String, Strategisches_Feld As String
Dim AnzahlLetzteSpalte As Integer
Worksheets("Daten").Select
AnzahlLetzteSpalte = Range("C65536").End(xlUp).Offset(1, 0).Row
For i = 2 To AnzahlLetzteSpalte - 1
Strategisches_Feld = Worksheets("Daten").Cells(i, 1).Value
Projekt = Worksheets("Daten").Cells(i, 2).Value
If Strategisches_Feld = TextBox8 _
And Projekt = TextBox7 Then
userform3.TextBox15.Value = Worksheets("Daten").Cells(i, 5) ' in dieser Zeile befindet _
sich der Fehler
End If
Next i
End Sub
Die Schleife arbeitet wunderbar. Es werden die richtigen Werte gespeichert aber diese Werte werden irgendwie nicht in die TextBox15 eingelesen. Ist es evtl ein Problem, das sich der Klickbutton und mein TextFeld15 auf der selben UserForm3 befinden? TextBox7 und TextBox8 befinden sich auf der UserForm1
Ich verstehe die Welt nicht mehr. Besten Dank im Voraus für eure Hilfe.
MFG
MartinaK