Dynamisches Array?

  • Access

Es gibt 2 Antworten in diesem Thema. Der letzte Beitrag () ist von FloFuchs.

    Dynamisches Array?

    Hi Leute,

    ich hab folgenden Code Entwickelt:

    Visual Basic-Quellcode

    1. Sub test()
    3. Dim rsPM As DAO.Recordset
    4. Dim xwbin As workbook
    5. Dim xwsin As Worksheet
    6. Dim projectID$
    7. Dim projectManagers(100) As String
    8. Dim i%, j%, lastRow
    10. fname = fileDialogOpen("Select a master list file", , "Microsoft Excel Worksheet")
    11. If fname = "" Then Exit Sub 'Abfrage, falls man auf Abbrechen klickt
    13. 'open excel and the input file
    14. If (xap Is Nothing) Then Set xap = New Excel.Application
    15. Set xwbin = xap.Workbooks.Open(fname)
    16. Set xwsin = xwbin.Worksheets("2012")
    18. lastRow = Cells(Rows.Count, 2).End(xlUp).Row - 2
    19. For i = 2 To lastRow
    20. If xwsin.Cells(i, 19) = "" Then 'Wenn Bewertung gelöscht wurde, ist Feld leer
    21. projectID = xwsin.Cells(i, 4)
    23. For j = 2 To lastRow
    24. 'Wenn Daten aus Datenbank mit Daten aus Excel-Sheet übereinstimmen, dann
    25. If projectID = xwsin.Cells(j, 4) Then
    26. projectManagers = projectManagers & xwsin.Cells(j, 2) & " <-> "
    27. End If
    28. Next j
    29. End If
    31. Next i
    33. End Sub


    Nun möchte ich, Zeile 26 Strings ins Array schreiben. Bsp.: beim ersten Durchlauf bekomme ich "Heinz" beim zweiten Durchlauf bekomme ich "Max" im String-Array soll dann "Heinz <-> Max" stehen. In der Dimensionierungsliste ganz oben im Code hab ich das Array noch fest dimensioniert. Ich möchte dies aber dynamisch anfordern. Ich kenne den Befehle Preserve. Ich weiß aber nicht wie man das hier so zum Funktionieren bringt

    Vielleicht kann mir ja jemand helfen???

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

    Jap nutze einfach ne List(of String) da kannste zufügen, raus löschen, usw.. un bietet die gleiche Funktionalität wie ein Array. Solltest du zu irgendeinem Zeitpunkt tatsächlich ein Array benötigen kannste genau da immer npch deine Liste in ein Array wandeln ( .ToArray Methode)
    bzw... wirklich VBA? dann eine Collection oder ein Dictionary