Alle Zeileninhalte zu einem String, wenn in Zelle daneben eine "1" steht ?

  • Excel

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

    Alle Zeileninhalte zu einem String, wenn in Zelle daneben eine "1" steht ?

    Hallo,
    habe für euch eine sicherlich einfache Frage....

    ich habe folgende Tabelle

    # A B
    1 Guten 1
    2 Test
    3 Tag 1
    4 Test
    5 Test
    6 Zusammen 1


    Die Anzahl der Zeilen muss variabel sein (maximal 20 Zeilen) .. und ich möchte jetzt einen String erhalten in dem
    "Guten, Tag, Zusammen" steht.... also nur die Wörter in den String nehmen bei denen in Spalte B eine 1 steht...


    DANKE im voraus & viele Grüße

    Ps: ich weiß, newbie frage... aber genau darum stelle ich sie ja hier, damit ihr helfen könnt :)

    Grüße

    Visual Basic-Quellcode

    1. Sub Strings_verbinden()
    2. Dim i As Integer
    3. Dim v_MasterStr As String
    5. v_MasterStr = ""
    7. ThisWorkbook.Sheets("DeinSheetname").Activate ' <-- hier Sheetname eintragen
    9. For i = 1 To 20 ' <--- hier maximale Zeile eintragen
    10. If Cells(i, 2) = 1 Then
    11. v_MasterStr = Cells(i, 1) & ", " & v_MasterStr
    12. End If
    13. Next i
    15. ' Komma am Ende abschneiden
    16. If Right(v_MasterStr, 2) = ", " Then v_MasterStr = Left(v_MasterStr, Len(v_MasterStr) - 2)
    18. ' Ausgeben
    19. Call MsgBox(v_MasterStr, vbOKOnly + vbInformation)
    20. End Sub


    Gruß
    Timo

Facebook
Telefonspende