title image


Smiley Re: Farbig hinterlegte Zellen zählen
Hallo WolfgangMit VBA geht sowas ganz schön:Symbolleiste visual basic aktivieren, dann auf Entwurf, mit der Toolbox einen Commandbutton erzeugen und in die Click-Prozedur in etwa folgenden Code (bestehend aus 2 Schleifen):Sub Commanbutton_Click()Dim n as integer, k as integerDim Anzahlrot as integer, Anzahlgrün as IntegerFor n = 1 To 100 For k = 1 To 100 If Sheets("Tabelle1").Cell(k,n).Interior.ColorIndex = 4 then Anzahlgrün = Anzahlgrün + 1 End If If Sheets("Tabelle1").Cells(k,n).Interior.ColorIndex = 3 then Anzahlrot = Anzahlrot + 1 End If Next kNext nMsgBox Anzahlgrün & " " & AnzahlrotEnd Subich habs nicht getestet aber im Prinzip geht es so. Die Zählergebnisse kannst Du natürlich auch in eine Zelle Schreiben: Sheets("Tabelle2").Cells(1,2).value = AnzahlrotViel Glück Ernst

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: