Thema Datum  Von Nutzer Rating
Antwort
Rot System.Collections.ArrayList an Funktion übergeben
29.09.2021 19:19:58 Thorleif
NotSolved
29.09.2021 19:27:54 Gast82970
NotSolved
29.09.2021 19:49:36 Gast64442
NotSolved
29.09.2021 20:20:14 Gast51805
Solved
29.09.2021 23:52:28 Thorleif
NotSolved
30.09.2021 00:19:05 Thorleif
NotSolved

Ansicht des Beitrags:
Von:
Thorleif
Datum:
29.09.2021 19:19:58
Views:
129
Rating: Antwort:
  Ja
Thema:
System.Collections.ArrayList an Funktion übergeben

Wie kann ich eine System.Collections.ArrayList an eine Funktion übergeben?
In der Funktion möchte ich den ArrrayList durchsuchen.

Sub CreateTaskID()
Dim task As TaskData
Dim lngZeile As Long
Dim coll As Object
Dim TaskID As Integer
    
    Set coll = CreateObject("System.Collections.ArrayList")

    lngZeile = range("A" & rows.count).End(xlUp).Row
    range("A" & lngZeile).Select
    While (ActiveCell.Row > 3)

        If ActiveCell.Value <> "Tag" Then
            ActiveCell.Offset(0, 5).Value = 1
            Set task = New TaskData
            task.TaskDate = ActiveCell.Value
            task.TaskFinished = ActiveCell.Offset(0, 1).Value
            task.TaskTask = ActiveCell.Offset(0, 2).Value
            task.TaskRepeat = ActiveCell.Offset(0, 3).Value
            task.TaskPrio = ActiveCell.Offset(0, 4).Value
            coll.Add task
            
            searchInList (coll) 'Function
            
        End If
        ActiveCell.Offset(-1, 0).Select
    
    Wend
    Debug.Print "Anzahl der Task: " & coll.count
    
    'task.TaskTask =

End Sub

Function searchInList(ArrayList)
'durchsuchen
End Function


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot System.Collections.ArrayList an Funktion übergeben
29.09.2021 19:19:58 Thorleif
NotSolved
29.09.2021 19:27:54 Gast82970
NotSolved
29.09.2021 19:49:36 Gast64442
NotSolved
29.09.2021 20:20:14 Gast51805
Solved
29.09.2021 23:52:28 Thorleif
NotSolved
30.09.2021 00:19:05 Thorleif
NotSolved