ich habe diesen Code zusammengegoogelt und angepasst.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zähler_Hintergrund As Integer, Zähler_Schrift As Integer, _
Zelle_Hintergrund As Range, Zelle_Schrift As Range
'Hintergrundfarbe
For Each Zelle_Hintergrund In Range("E1:E193")
If Zelle_Hintergrund.Interior.ColorIndex = 4 Then
Zähler_Hintergrund = Zähler_Hintergrund + 1
End If
Next
Range("E195").Value = Zähler_Hintergrund
End Sub
Private Sub CommandButton1_Click()
Application.VBE.MainWindow.Visible = True
End Sub
Problem ist jetzt, das ich in Spalte G und I und K etc die gleiche Farbe extra zählen.Kann man den Code anpassen, das ich jetzt nicht 50x den Code Stg-C -> Strg-V und den Bereich anpassen muß?
Bitte keine Lösung mit Funktion und F9 Aktualisierung.
Danke für Tips