Ich habe folgendes Prog:
Sub Farbenzählen()
Dim Zelle As Object
Dim gelb%, grün%, blau%
gelb = 0: grün = 0: blau = 0
For z = 1 To 2
Next z
For Each Zelle In Selection
Select Case Zelle.Interior.ColorIndex
Case 6: gelb = gelb + 1
Case 50: grün = grün + 1
Case 5: blau = blau + 1
End Select
Next
Cells(60, ActiveCell.Column).Value = grün
Cells(62, ActiveCell.Column).Value = gelb
Cells(64, ActiveCell.Column).Value = blau
End Sub
Die Frage wäre jetzt: Wie kann ich es machen, dass er automatisch erst Palte A makiert, die Sachen ausführt.. dann Spalte B usw...
es sollte einstellbar sein, welche er nutzen soll.
Danke .
Grüße
Danny