For Next wordt niet uitgevoerd!

[DiLauro11]

Beste VBA-ers,

Ik heb onderstaande code in elkaar gedraaid, maar hij doet erg lastig. De For Next functie werkt op de één of andere manier niet. Ik heb het gevoel dat de het door de ClearContents toevoeging komt, maar ik weet het niet zeker.

Sub UpdateGraphs()
Dim S As Range
Dim LastRow2 As Integer, Y As Integer

Set S = Sheets("Graphs").Cells
LastRow2 = S(Rows.Count, 4).End(xlUp).Row

Sheets("Graphs").PivotTables("PivotTable1").PivotCache.Refresh
Sheets("Graphs").Rows("4:213").Hidden = False
Sheets("Graphs").Columns(1).Hidden = False
Sheets("Graphs").Columns(1).ClearContents

For Y = 6 To LastRow2
S(Y, 1).Value = S(Y - 1, 1).Value + 1
Next

Sheets("Graphs").Rows("4:213").Hidden = True
Sheets("Graphs").Columns(1).Hidden = True
Sheets("Graphs").Range("B1").Select
End Sub

Heeft iemand misschien ervaring met een dergelijk probleem?

Groeten,

Laurens

 

[Marcel79]

Nee, geen ervaring mee.
Krijgt de variabele LastRow2 wel de juiste waarde?
(makkelijkst om te controleren vind ik door met F8 stap voor stap door je code heen te wandelen en met je muis boven de waarde te gaan hangen)

 

[snb]

Dit lijkt me voldoende

Sub UpdateGraphs()
  With Sheets("Graphs")
    For j = 6 To .cells.(Rows.Count, 4).End(xlUp).Row
      .cells(j, 1).Value = .cells(j - 1, 1).Value + 1
    Next
    .PivotTables("PivotTable1").PivotCache.Refresh
 End With
End Sub

 

[DiLauro11]

Bedankt!

Mannen,

Bedankt. Loopt als een zonnetje.

Groeten,

Laurens