Thema Datum  Von Nutzer Rating
Antwort
Rot Zellenhintergrundfarbe VBA Code ausführen
14.11.2023 01:42:30 AlexCh71
NotSolved
14.11.2023 07:15:29 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
AlexCh71
Datum:
14.11.2023 01:42:30
Views:
203
Rating: Antwort:
  Ja
Thema:
Zellenhintergrundfarbe VBA Code ausführen

Hallo zusammen,

bei einer Änderung der Hintergrundfarbe im Zellenbereich soll ein VBA-Code ausgeführt werden. Im dem Code sollen die Farben in einer Spalte gezählt werden.

Wenn ich die Hintergrundfarbe über den "Farbtopf" ändere spring Excel nicht zu dem VBA-Code, aber wenn ich den "Pinsel" (Format übertragen) benutze springt Excel zum VBA-Code und zählt entsprechend die Farben in der Spalte.

Für einen Tipp was ich falsch mache wäre ich sehr dankbar.

Private Sub Worksheet_Change(ByVal Target As Range)
    Grau = 0
    Gelb = 0
    Orange = 0
    If Not Intersect(Target, Range("B2:K17")) Is Nothing Then
        For Spalte = 2 To 11
            For Zeile = 2 To 17
                Farbe = Cells(Zeile, Spalte).Interior.Color
                If Farbe = 10921638 Then
                    Grau = Grau + 1
                End If
                If Farbe = 65535 Then
                    Gelb = Gelb + 1
                End If
                If Farbe = 49407 Then
                    Orange = Orange + 1
                End If
            Next Zeile
            Cells(21, Spalte).Value = Grau
            Cells(22, Spalte).Value = Gelb
            Cells(23, Spalte).Value = Orange
            Grau = 0
            Gelb = 0
            Orange = 0
        Next Spalte
    End If
End Sub

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Zellenhintergrundfarbe VBA Code ausführen
14.11.2023 01:42:30 AlexCh71
NotSolved
14.11.2023 07:15:29 ralf_b
NotSolved