erste Tests mit einfachem Klassenmodul

'Klassenmodul cls1
Option Explicit
Public Angriffe As String
Public Duchschnitt As Long
Public ID As Long
Public Orden As String
Public Name As String
Public lvl As Long

'normales Modul
Option Explicit
Sub Makro1()
Dim oDaten As New cls1
Dim coll As New Collection
Dim i As Long
Dim letztezeile As Long
With ThisWorkbook.Worksheets("Farm")
letztezeile = .Cells(Rows.Count, 5).End(xlUp).Row
For i = 2 To letztezeile
oDaten.Angriffe = .Cells(i, 1)
oDaten.Duchschnitt = .Cells(i, 2)
oDaten.ID = .Cells(i, 3)
oDaten.Orden = .Cells(i, 4)
oDaten.Name = .Cells(i, 5)
oDaten.lvl = .Cells(i, 6)
coll.Add oDaten
Next
End With
For Each oDaten In coll
Debug.Print oDaten.Angriffe & " " & oDaten.Duchschnitt & " " & oDaten.Name
Next
End Sub