Thema Datum  Von Nutzer Rating
Antwort
16.02.2018 19:07:45 MuellerM
NotSolved
Blau VBA Farben zählen mit Bedingung
 17.02.2018 00:13:09 Gast29741
NotSolved
17.02.2018 10:59:03 MuellerM
NotSolved
17.02.2018 12:07:44 Gast29741
NotSolved
17.02.2018 12:37:08 Gast37346
NotSolved
17.02.2018 18:40:01 Gast29741
NotSolved
17.02.2018 19:36:47 MuellerM
NotSolved
18.02.2018 16:04:04 Gast29741
NotSolved

Ansicht des Beitrags:
Von:
Gast29741		 Datum:
17.02.2018 00:13:09		 Views:
732		 Rating:
     
Antwort:
  Ja
Thema:
VBA Farben zählen mit Bedingung

Operationen auf Bereiche sind in benutzerdefinierten Funktionen of kritisch, daher auf Nr.-Sicher

Function SubColor(rName As Range, rRange As Range)
Dim rAll As Range, rCell As Range, V
Dim strF As String, Cnt As Long
Dim Fa As String

   Set rAll = rRange
   V = rName.Value
   strF = "00000000"
   For Each rCell In rAll.Cells
      If rCell.Value = V Then
         If InStr(strF, Format(rCell.Offset(, 1).Interior.Color, "00000000")) = 0 Then
            strF = strF & Format(rCell.Offset(, 1).Interior.Color, "00000000")
            Cnt = Cnt + 1
         End If
      End If
   Next rCell
   
   SubColor = Cnt
   
End Function

 

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
16.02.2018 19:07:45 MuellerM
NotSolved
Blau VBA Farben zählen mit Bedingung
 17.02.2018 00:13:09 Gast29741
NotSolved
17.02.2018 10:59:03 MuellerM
NotSolved
17.02.2018 12:07:44 Gast29741
NotSolved
17.02.2018 12:37:08 Gast37346
NotSolved
17.02.2018 18:40:01 Gast29741
NotSolved
17.02.2018 19:36:47 MuellerM
NotSolved
18.02.2018 16:04:04 Gast29741
NotSolved