Array Ergbnisse in einer einzigen MsgBox anzeigen

Sub Bereich()



    Dim ws As Worksheet

    Dim rng As Range

    Dim arrDaten As Variant 

    Dim gesuchterWert As Variant

    Dim zeilen As Long, spalten As Long

    Dim ausgabe As String



    Set ws = ThisWorkbook.Sheets("Test")

    Set rng = ws.Range("A8:C36")



    arrDaten = rng.Value

    gesuchterWert = 10



     For zeilen = LBound(arrDaten, 1) To UBound(arrDaten, 1) ' Zeilen

        For spalten = LBound(arrDaten, 2) To UBound(arrDaten, 2) ' Spalten (1 bis 3 in diesem Fall)

      

        If arrDaten(zeilen, spalten) = gesuchterWert Then

       

        ausgabeText = "Array-Ergebnisse" & vbCrLf & vbCrLf

        ausgabeText = ausgabeText & arrDaten(zeilen, spalten-2) & vbCrLf       

        

        MsgBox ausgabeText

         End If

              

        Next spalten

    Next zeilen

    

    

End Sub