Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 15:03:35
Unterschiedliche Dateien miteinander abgleichen lassen
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
148to152
148to152
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Berechnungen anhand bed. Formatierung?

Berechnungen anhand bed. Formatierung?
15.08.2002 14:41:26
Martin

Hallo,

in eine Tabelle, die die Monatstage auflistet, markiere ich verschiedenen Zellen mit einer bestimmten Hintergrundfarbe.
Ich möchte in einer separaten Zelle gerne die Zellen berechnen lassen (COUNTA oder COUNTIF), die zB die Hintergrundfarbe orange haben.
Geht so etwas?

Gruss,
Martin

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Berechnungen anhand bed. Formatierung?
15.08.2002 14:46:12
Kai
beschreib mal bitte etwas genauer, was Du berechnen möchtest und was das mit den Monatstagen zu tun hat. Ich kann mir unter Deiner Beschreibung nicht so viel vorstellen.

Kai

Re: Berechnungen anhand bed. Formatierung?
15.08.2002 14:52:08
Martin
Hallo Kai,

die Tabelle enhält einen Kalender.
Die Tage, an denen ich nicht im Lande bin (ich arbeite derzeit im Ausland), markiere ich orange. Eine Formel soll dann diese Tage zusammenzählen, in etwa so:

=zählenwenn(A1:A31=[orange])

Gruss,
Martin

Lösung im Archiv gefunden!!
15.08.2002 15:25:27
Martin
M.
Re: Lösung im Archiv gefunden!!
15.08.2002 15:27:31
Kai
Ich hab auch rum gesucht, wie ist denn die Lösung?
Re: Lösung im Archiv gefunden!!
15.08.2002 16:30:07
Martin
Hallo Kai,

es geht mittels Function wie folgt:

Function Farbe(Bereich As Range)
Dim cell As Range
Dim i As Integer
i = 0
For Each cell In Bereich
If cell.Interior.ColorIndex = 40 Then i = i + 1
Next cell
Farbe = i
End Function

Aufgerufen wird sie als =farbe(Bereich).

Ich habe noch zusätzlich

Sub Refresh()
With Range("B6:L7")
.Formula = .Formula
End With
End Sub

eingebaut, da die Formel sich nicht automatisch neu berechnet.

Gruss,
Martin

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige