VBA-Forum - Das Forum zu Microsoft VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

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

Ansicht des Beitrags:

Von:
Thorleif

Datum:
29.09.2021 19:19:58

Views:
1608

Rating:

Antwort:

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
System.Collections.ArrayList an Funktion übergeben	29.09.2021 19:19:58	Thorleif
System.Collections.ArrayList an Funktion übergeben	29.09.2021 19:27:54	Gast82970
System.Collections.ArrayList an Funktion übergeben	29.09.2021 19:49:36	Gast64442
System.Collections.ArrayList an Funktion übergeben	29.09.2021 20:20:14	Gast51805
System.Collections.ArrayList an Funktion übergeben	29.09.2021 23:52:28	Thorleif
System.Collections.ArrayList an Funktion übergeben	30.09.2021 00:19:05	Thorleif