|
Aber was mache ich falsch?
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
Debug.Print ActiveCell.Row
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)
End If
ActiveCell.Offset(-1, 0).Select
Wend
Debug.Print "Anzahl der Task: " & coll.count
'task.TaskTask =
End Sub
'https://www.vba-forum.de/
Function searchInList(ByRef coll As Object)
Debug.Print "Test"
End Function
'Klassenmodul TaskData:
Public TaskDate As Date
Public TaskFinished As String
Public TaskTask As String
Public TaskRepeat As String
Public TaskPrio As Integer
Public TaskID As Integer
|