Dynamisch erstellte (Textboxen oder andere Steuerelemente) ansprechen

  • Excel

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Abisana.

    Dynamisch erstellte (Textboxen oder andere Steuerelemente) ansprechen

    Hallo zusammen,

    Kann mir jemand weiterhelfen, wie ich dynamisch erstellte Textboxen ansprechen kann?
    Habe ein Sub geschreiebn bei dem bei jedem Klick auf einen Button eine Textbox erstellt wird.
    Wenn ich dann beim abschicken des Formulars beispielsweise 4 Textboxen habe, möchte ich den Inhalt irgendwo wieder geben zb in einer anderen Textbox...
    Wie kann ich die erstellten Textboxen ansprechen? Habe denen beim generieren einen Namen gegeben, aber Excel kann damit nix anfangen.

    Bitte um Rat.

    Visual Basic-Quellcode

    1. Public klick As Integer
    3. Sub addAsExpense_Click()
    5. Dim exp As MSForms.TextBox
    6. Dim exp_value As MSForms.TextBox
    7. klick = klick + 1
    8. Set exp = StartForm.Controls.Add("Forms.TextBox.1") ' add textbox
    9. With exp ' set parameter
    10. .Left = 12 ' position left side
    11. .Width = 138 ' width
    12. .Top = klick * 24 + 270 ' Startposition + (klick) sum of all already pasted boxes
    13. .Value = StartForm.epensesBox.Value ' take description value (what kind of expenses)
    14. .BackColor = &H80FFFF ' color choosen
    15. .Name = "exp" & (klick) ' name of the created textbox
    16. End With
    18. StartForm.testbox.Value = StartForm.exp(klick).Value
    20. End Sub

    -.- sry hab zuspät gesehen das es Excel ist -.-

    VB.NET-Quellcode

    1. Private TextBoxen As List(Of MSForms.TextBox)
    2. Private Count As Integer = 0
    3. Sub addAsExpense_Click
    4. Count += 1
    5. Dim exp As New MSForms.TextBox() With {
    6. .Width = 138,
    7. .Left = 12,
    8. .Top = Count * 24 + 270,
    9. .Value = StartForm.epensesBox.Value,
    10. .BackColor = &H80FFFF,
    11. .Name = "exp" & (Count)
    12. }
    13. TextBoxen.Add(exp)
    14. Controls.Add(exp)
    15. End Sub
    17. Sub Senden()
    18. Dim txt As New StringBuilder()
    19. TextBoxen.ForEach(Sub(x) txt.AppendLine(x.Text))
    20. Dim outtxt As String = txt.ToString()
    21. End Sub


    ja so ähnlich

    Hallo Abisana,
    eine Variable besser nicht exp nennen, das ist
    ein reserviertes Basicwort. Du musst ein Array
    für die Textboxen anlegen und kannst sie dann
    darüber ansprechen. Hier der geänderte Code:

    Visual Basic-Quellcode

    1. Public klick As Integer
    2. Public expenses() As MSForms.TextBox
    4. Private Sub UserForm_Initialize()
    6. ReDim expenses(0)
    8. End Sub
    10. Sub addAsExpense_Click()
    12. 'Dim exp_value As MSForms.TextBox
    14. klick = klick + 1
    15. ReDim Preserve expenses(klick)
    17. Set expenses(klick) = StartForm.Controls.Add("Forms.TextBox.1") ' add textbox
    18. With expenses(klick) ' set parameter
    19. .Left = 12 ' position left side
    20. .Width = 138 ' width
    21. .Top = klick * 24 + 270 ' Startposition + (klick) sum of all already pasted boxes
    22. .Value = StartForm.epensesBox.Value ' take description value (what kind of expenses)
    23. .BackColor = &H80FFFF ' color choosen
    24. .Name = "expenses" & (klick) ' name of the created textbox
    25. End With
    27. StartForm.testbox.Value = expenses(klick).Value
    29. End Sub
    Gruss,

    Neptun

    Hallo Zusammen,

    vielen Dank für eure Posts,
    Mit der Antwort von Facebamm konnte ich als Neuling leider nicht viel anfangen, da ich keins der Befehle im Sub Senden verstehe ;(
    Zur Antwort von Neptun, erstmal Danke für die Erklärung bezüglich exp ! (sehr hilfreich für mich)
    Die Antwort von Neptun habe ich mal im Programm eingepfleft, doch hier wird in der Zeile

    Visual Basic-Quellcode

    1. Public expenses() As MSForms.TextBox

    Ein Fehler von Excel angezeigt
    "Benutzerdefinierte Datenfelder sind als Public-Elemente von Objektmodulen nicht zugelassen"
    Da ich die abfrage der Werte aber in einer anderen Funktion oder Sub (Formular absenden Button) abfragen möchte, werde ich das expenses() Array als public benötigen.
    So wie ich über google herausfinden konnte ist das problem mit Klassen zu lösen? daher werde mich mal in nächster Zeit mit dem Thema Klassen beschäftigen müssen.

    Hallo Neptun,
    Ich hab scheinbar irgendwas falsch eigetippt gehabt, jetzt funktioniert der Code!

    Visual Basic-Quellcode

    1. Public klick As Integer
    2. Public WithEvents expenses As MSForms.TextBox
    4. Private Sub UserForm_Initialize()
    5. ReDim expenses(0)
    6. klick = 0
    7. End Sub
    9. Sub addAsExpense_Click()
    10. klick = klick + 1
    11. ReDim expenses(klick) ' Preserve
    12. Set expenses(klick) = StartForm.Controls.Add("Forms.TextBox.1") ' add textbox
    13. With expenses(klick) ' set parameter
    14. .Left = 12 ' position left side
    15. .Width = 138 ' width
    16. .Top = klick * 24 + 270 ' ' Startposition + (klick) sum of all already pasted boxes
    17. .Value = StartForm.epensesBox.Value ' take description value (what kind of expenses)
    18. .BackColor = &H80FFFF ' color choosen
    19. .Name = "expenses" & (klick) ' name of the created textbox
    20. End With
    21. StartForm.testbox.Value = expenses(klick).Value
    22. End Sub


    Das einzige Problem ist, dass ich eine Fehlermeldung: Fehler beim Kompelieren: Variable nicht Definiert bekomme, wenn ich Preserve in der Zeile 11 Benutze:

    Visual Basic-Quellcode

    1. ReDim Preserve expenses(klick)

    Ohne das Preserve funktioniert der Code, bzw er lässt sich Ausführen, das Array wird jedoch bei jedem durchgang gelöscht und somit habe ich keinen zugriff mehr auf die erstellten Textboxen, wenn ich später mit einem anderen (Führe aus button) arbeiten möchte.
    Jemand eine Idee warum es ohne preserve funktioniert und mit nicht?

Facebook
Telefonspende