Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Zellen ohne Farbfüllung nicht zählen |
09.07.2017 18:00:10 |
Stephan |
|
|
|
09.07.2017 20:22:36 |
Ben |
|
|
|
09.07.2017 20:29:33 |
Ben |
|
|
|
09.07.2017 20:37:26 |
Ben |
|
|
|
09.07.2017 21:06:22 |
Gast33449 |
|
|
|
10.07.2017 10:02:31 |
Ben |
|
|
Von:
Stephan |
Datum:
09.07.2017 18:00:10 |
Views:
1347 |
Rating:
|
Antwort:
|
Thema:
Zellen ohne Farbfüllung nicht zählen |
Hallo,
habe einen VBA-Code, wo die farbig markierten Zellen gezählt werden. Funktioniert auch so weit. Wie bekomme ich es aber hin, das die Zellen ohne Farbfüllung den Wert 0 ausgeben.
Beispiel: Zeile A1 bis A5 sind rot hinterlegt: Ausgabe somit 5
Zeile B1 bis B5 "keine Farbe" Ausgabe ist dann trotzdem 5, soll aber null sein !!!
Wer kann mir helfen. Hier ist der jetzige Code:
Sub Farbe()
Dim Farbe As Integer, x As Integer, i As Integer
Dim c As Range
For x = 1 To 4
i = 0
Farbe = Cells(x, 1).Interior.ColorIndex
For Each c In Range(Cells(x, 1), Cells(x, 20))
If c.Interior.ColorIndex = Farbe Then
i = i + 1
End If
Next c
Cells(x, 15) = i
Next x
End Sub |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Zellen ohne Farbfüllung nicht zählen |
09.07.2017 18:00:10 |
Stephan |
|
|
|
09.07.2017 20:22:36 |
Ben |
|
|
|
09.07.2017 20:29:33 |
Ben |
|
|
|
09.07.2017 20:37:26 |
Ben |
|
|
|
09.07.2017 21:06:22 |
Gast33449 |
|
|
|
10.07.2017 10:02:31 |
Ben |
|
|