[gelöst] mehrere Zellen in Textfeld kopieren

  • Excel

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von ovakek.

    [gelöst] mehrere Zellen in Textfeld kopieren

    Hallo!

    Ich würde gerne mehrere Zellen in ein Textfeld kopieren. Die Zellen liegen untereinander und sollten in ihrer Form erhalten bleiben, sprich mit Umbrüchen ins Textfeld kopiert werden.

    Da ich noch nie etwas mit VB programmiert habe fällts mir natürlich ein wenig schwer.

    Hier mal mein erster Versuch:

    Visual Basic-Quellcode

    1. Private Sub CopyButton_Click()
    2. Dim Zellen As String
    3. Dim i, j As Integer
    4. i = 2
    5. Do While i < 43
    6. RangeValue = "K" & i
    7. Zellen = ThisWorkbook.Worksheets("Konfig-Hilfe STM-1").Range(RangeValue)
    8. For j = 2 To 43
    9. CfgBox.Text = Zellen
    10. Next
    11. i = i + 1
    12. Loop
    13. End Sub


    Leider kopiert er mir nur die letzte Zelle ins Textfeld :(

    Wie müsste ich es umschreiben, dass alle Zellen zwischen K2 und K42 ins Textfeld kopiert werden?

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ovakek“ ()

    Habs mittlerweile so gelöst:

    Visual Basic-Quellcode

    1. Private Sub CopyButton1_Click()
    2. Dim Zellen As String
    3. Dim i As Integer
    4. i = 10
    5. CfgBox1.Text = ""
    6. Do While i < 51
    7. RangeValue = "K" & i
    8. Zellen = ThisWorkbook.Worksheets("Konfig-Hilfe STM-1").Range(RangeValue)
    9. CfgBox1.Text = CfgBox1.Text + vbCrLf + Zellen
    10. i = i + 1
    11. Loop
    12. End Sub