Excel-vba gennemløbe array
Jeg laver en VBA-procedure, der skal løbe en liste med warnings igennem, og jeg skal ende med at tælle hvor mange gange den samme fase er nævnt.Jeg trækker 5000 celler fra samme kolonne over i et array, og gennemløber arrayet...
Min foreløbige kode kommer herunder, men den fejler på første linje i min for-løkke, og siger "Object required" til linjen [k]SourcePhase = SourceArray(x, 1).Value.[/k]
Sub TestWarnings_vs_Phase()
Dim SourceArray As Variant
Dim SourceRng As String, SourcePhase As String, ComperePhase As String
' definerer adressen på det range jeg vil hente ind i mit SourceArray, 5000 rækker i samme kolonne
SourceRng = Range(Cells(StartRow, PhaseColumn), Cells(StartRow + 5000, PhaseColumn)).Address
'henter data ind i mit SourceArray
SourceArray = Range(SourceRng)
' resetter tællere fra starten
xCounter = 0
yCounter = 0
For x = StartRow To StartRow + 5000
SourcePhase = SourceArray(x, 1).Value ' den aktuelle celleværdi
ComperePhase = SourceArray(x + 1, 1).Value ' den næste celleværdi
If SourcePhase = ComperePhase Then ' sammenligner aktuelle celleværdi med den næste celleværdi for at teste om det er her fasen skifter
xCounter = xCounter + 1
Else ' hvis fase skifter
Subtotal = xCounter
yCounter = yCounter + 1
End If
Next x
End Sub
Hvad er det nu der er galt?
Dim SourceArray As Variant
Dim SourceRng As String, SourcePhase As String, ComperePhase As String
' definerer adressen på det range jeg vil hente ind i mit SourceArray, 5000 rækker i samme kolonne
SourceRng = Range(Cells(StartRow, PhaseColumn), Cells(StartRow + 5000, PhaseColumn)).Address
'henter data ind i mit SourceArray
SourceArray = Range(SourceRng)
' resetter tællere fra starten
xCounter = 0
yCounter = 0
For x = StartRow To StartRow + 5000
SourcePhase = SourceArray(x, 1).Value ' den aktuelle celleværdi
ComperePhase = SourceArray(x + 1, 1).Value ' den næste celleværdi
If SourcePhase = ComperePhase Then ' sammenligner aktuelle celleværdi med den næste celleværdi for at teste om det er her fasen skifter
xCounter = xCounter + 1
Else ' hvis fase skifter
Subtotal = xCounter
yCounter = yCounter + 1
End If
Next x
End Sub
