Werte einer Tabelle in Array einlesen

  • Excel

    Werte einer Tabelle in Array einlesen

    Hallo. ich habe folgendes Problem.
    Ich habe bereits einen Code geschrieben, in dem von einer anderen Tabelle werte in eine Variable (arr) eingelesen werden und diese dann in einer Zelle in der Zieltabelle ausgegeben werden.
    Jetzt mögchte ich aber aus diesen Werten, die in einer Zelle jeweils untereinander stehen, den Minimum auslesen.
    Jetzt wollte ich fragen, ob mir jemand helfen kann und diesen Code so umschreiben könnte, dass die Werte, die ich beim Schleifendurchlauf in die Variable arr einlese in Zukunft in einem Array() gespeichert werden.
    von Dort aus kann ich dann einen Minimum auslesen.

    Hier mein Code:

    Visual Basic-Quellcode

    1. Public Sub GreiferVS()
    2. Dim DEingabe As Worksheet
    3. Dim Bi As Worksheet
    4. Set DEingabe = Worksheets("1. Dateneingabe") 'Ziel
    5. Set Bi = Worksheets("BIobjekte") 'Quelle
    6. Dim zeileQuelle As Integer
    7. Dim zeileZiel As Integer
    8. Dim spalteQuelle As Integer
    9. Dim spalteZiel As Integer
    10. Dim arr As String
    11. Dim text As String
    12. Dim a
    13. zeileQuelle = 7
    14. zeileZiel = 1
    15. spalteQuelle = 1
    16. spalteZiel = 1
    17. text = "quadratisch"
    18. 'Bi durchlaufen druchlaufen
    19. For zeileQuelle = 6 To Bi.Cells(Rows.Count, 1).End(xlUp).Row
    20. If Bi.Cells(zeileQuelle, 1).Value = CStr(DEingabe.Cells(2, 5)) Then
    21. arr = Bi.Cells(zeileQuelle, 3)
    22. While Bi.Cells(zeileQuelle, spalteQuelle).Value = Bi.Cells(zeileQuelle + 1, spalteQuelle).Value
    23. arr = arr & vbCrLf & Bi.Cells(zeileQuelle + 1, 3).Value
    24. zeileQuelle = zeileQuelle + 1
    25. Wend
    26. a = arr
    27. 'Bi.Cells(zeileQuelle, 8).Value = WorksheetFunciton.Min(a)
    28. MsgBox WorksheetFunction.Min(a)
    29. End If
    30. Next zeileQuelle
    31. End Sub