Zählen wenn Hintergrund farbig

[Flowerwoman]

ich habe Deine Antworten nicht wegignoriert - wenn Du Dir den Post und Deine Antworten mal genau anguckst hast Du genau die gleichen Tipfehler geschrieben die auch ich hatte

Was bitte hatte ich?

Spalten aufgrund des Users ein- bzw ausblenden

For i = 3 To 25   
   Worksheets("Hoffnung").Columns(i).Hidden = True
Next

Wenn Du nichts konstruktives zu einem Post beitragen kannst, schreib am Besten nichts.

Ich habe was nicht? Ich habe gesagt, dass der Ansatz nichts taugt. Was anderes werde ich dir nicht liefern.