Array gaat niet ver genoeg

[Peterjur]

Hallo Geachte helpers,Ik stuit weer tegen een probleem aan en na uren van proberen
ik kom er niet uit.het progje hierv onder verteld het probleem
De bedoeling is dat de totaalregels in Excel 15 kolommen gekleurd worden met het progje onder word er bij 3 al geprotesteerd wil iemand mij helpen?bvhd.mvg.peter

Public Sub Regelkleur3()
'Kleurt regels Sub en Totalen in ADMY 3
For t = 1 To 100
For i = 3 To 100
If Range("A" & i).Value = ("Totaal " & t) Then
Range ("A" & i), TotalList:=Array(1, 2).Interior.ColorIndex = 6
End If
Next i
Next t
End Sub

 

[HSV]

Doe je bestandje er eens bij Peter.

 

[Peterjur]

Hallo HSV,Ik ga weer proberen het gecomprimeerde bestandje hier neer te zetten
Bekijk bijlage Map2.zip

De gebruikte progjes staan in de module1.U zal er wel bekende bij zien.

De totaal regels wil ik graag tot en met kolom 15 kleuren.

In het eerste progje waar de gegevens worde opgehaald moet in handmatig de maanden
invoeren.eigenlijk wil ik de bron gegevens in blad 2 hebben maar dan vind hij die niet

Daar ik een verschrikkelijke warhoofd ben hoop ik toch dat het te lezen is excusses.

met vrgr Peter.

 

[HSV]

Hallo Peter,

Zo dan?

Sub Regelkleur()
'Kleurt regels Sub en Totalen in ADMY 3
  For t = 1 To 100
   For i = 3 To 100
  If Range("A" & i).Value = ("Totaal " & t) Then
    Range(Cells(i, 1), Cells(i, 15)).Interior.ColorIndex = 6
   End If
  Next i
 Next t
End Sub

Met de 'Eindtotaalrij' er bij wordt het:

Sub Regelkleur()
'Kleurt regels Sub en Totalen in ADMY 3
  For t = 1 To 100
   For i = 3 To 100
  If Range("A" & i).Value = ("Totaal " & t) Or Range("A" & i).Value = "Eindtotaal" Then
    Range(Cells(i, 1), Cells(i, 15)).Interior.ColorIndex = 6
   End If
  Next i
 Next t
End Sub

 

[Peterjur]

HSV,Hoe kan ik je danken???Geweldig Mzvrgr.Peter.

 

[HSV]

Door mij te bedanken hoe blij je er mee bent is voor mij al voldoening genoeg.

Graag gedaan, en succes er mee Peter.

 

[Peterjur]

Harry,Dit zijn goede lessen,eerst uren proberen en denken en dan binnen enkele seconden een oplosing die je weer aan het
denken zet.Zeer leerzaam.in je eentje loop je vast met deze heb ik die mischien niet meer nodig en kan ik andere mischien
helpen,Hoop doet leven niet waar.Dank.Mvrgr.Peter.