title image


Smiley Re: Zellen nach Farbfüllung Wert vergeben (VBA)
Hallo Oliver,

so gehts:



Sub Farbe()



Const DeineFarbe = 5



Dim I As Integer



[b1] = 0

For I = 1 To 50

If Cells(I, 1).Interior.ColorIndex = DeineFarbe Then

Cells(I, 1).Value = 1

[b1] = [b1] + 1

Else

Cells(I, 1).Value = 0

End If

Next I



End Sub


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: