Új hozzászólás Aktív témák

• #4278 Delila_1 veterán lúzer #4277

  Új Válasz 2009-01-03 15:48:48 #4278

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  Delila_1

  veterán

  válasz lúzer #4277 üzenetére

  Function CountCCC(Mintacella As Range)
  Dim rngCell As Range
  Dim Tartomany As Range
  Set Tartomany = Range("A1:BB5000")
  nColor = Mintacella.Interior.Color
  nResult = 0
  For Each rngCell In Tartomany
  If rngCell.Interior.Color = nColor Then
  nResult = nResult + 1
  End If
  Next rngCell
  CountCCC = nResult
  End Function

  Próbáld így, de már az A1: BB5000-nél is elidőzik. Egy normális tartományt adj neki közvetlenül a makróban. Biztosan van ennél egyszerűbb megoldás, de azt nem ismerem.

Új hozzászólás Aktív témák