Textbox-weiterleitungs-Problem

  • Word

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von newsletter.

    Textbox-weiterleitungs-Problem

    Moin,

    Ich habe 3 Textboxen.

    Bei diesen weiß ich nicht ob diese einen Inhalt haben oder nicht.

    Nun will ich das nur die mit Inhalt in weitere 3 Textboxen übertragen werden der reihe nach.
    Ist beispielsweise die Textbox1 leer, welche in die weitere Textbox "1" gehen sollte, dann geht an dieser Stelle die Textbox2 an die weitere Textbox "1", wenn diese einen Inhalt hat.

    Hier ein Bild wie es aussieht:


    :D

    Mir kann auch Code in c#, vb.net, vb6 o.ä. helfen...

    Ich weiss nicht wie ich sowas umsetzen kann...



    Vielen Dank an die Hilfe.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „newsletter“ ()

    Hallo,

    da gibt es mehrere Wege. Soll es unter VBA laufen (Keine Textbox-Arrays), dann könnte man Folgendes nehmen:

    Visual Basic-Quellcode

    1. Option Explicit
    3. Private Sub TextBox1_Change()
    4. Akt
    5. End Sub
    6. Private Sub TextBox2_Change()
    7. Akt
    8. End Sub
    9. Private Sub TextBox3_Change()
    10. Akt
    11. End Sub
    13. Private Sub Akt()
    14. Dim S As String
    15. Dim Arr As Variant
    16. If Len(TextBox1.Text) > 0 Then
    17. S = TextBox1.Text & Chr$(255)
    18. End If
    19. If Len(TextBox2.Text) > 0 Then
    20. S = S & TextBox2.Text & Chr$(255)
    21. End If
    22. If Len(TextBox3.Text) > 0 Then
    23. S = S & TextBox3.Text & Chr$(255)
    24. End If
    25. TextBox4.Text = ""
    26. TextBox5.Text = ""
    27. TextBox6.Text = ""
    28. If Len(S) > 0 Then
    29. Arr = Split(S, Chr$(255), , vbBinaryCompare)
    30. Select Case UBound(Arr)
    31. Case 1
    32. TextBox4.Text = Arr(0)
    33. Case 2
    34. TextBox4.Text = Arr(0)
    35. TextBox5.Text = Arr(1)
    36. Case 3
    37. TextBox4.Text = Arr(0)
    38. TextBox5.Text = Arr(1)
    39. TextBox6.Text = Arr(2)
    40. End Select
    41. End If
    42. End Sub


    Edit:
    Bissel optimiert
    Gruß
    Peterfido

    Keine Unterstützung per PN!

    Mach es doch ganz einfach mit If Abfragen

    z.B.

    Quellcode

    1. If Textbox1.text = "" then
    2. (Die erste Textbox rechts) = Textbox2.text
    3. (Die zweite Textbox rechts) = Textbox3.text
    4. End If


    Ebenfalls kannst du es auch mit Select Case mache, kannst ja fragen wenn du ein Bespiel dafür haben möchtest. ;)

    Besten Dank für eure Hilfe!

    Ihr seid super 8-) Ich denke damit kann ich was anfangen. Ansonsten schreibe ich nochmal, falls ein Problem auftreten sollte.
    Für mich ging es vor allem darum, zum nachvollziehen wie man sowas schreiben kann.

    @Dominik1806:
    Das habe ich bereits probiert, ging leider nicht. Beim richtigen "Problem" habe ich insg. 8Textboxen, welche schlussendlich in eine Word-Tabelle übernommen werden müssen.
    = 8 x 8 = 64 Möglichkeiten, wie beim Lotto.

Facebook
Telefonspende