Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
352to356
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
352to356
352to356
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Summe in ABhängigkeit von Formatierung

Summe in ABhängigkeit von Formatierung
19.12.2003 16:21:54
Peter
Hi,

will die Werte einer Spalte in ABhängogkeit von der Schriftfarbe aufsummieren. Nach einigem Stöbern hier im Forum, habe ich eine Lösung gefunden, die ich noch leicht modifiziert habe. Hier der Code:

Public

Function Farbcode(farbe As Range)
Dim chr
Dim inh
Dim zwert As Integer
inh = 0
zwert = 0
For Each chr In farbe
inh = chr.Value
Debug.Print inh
If chr.Font.ColorIndex = 3 Then
zwert = zwert + inh
End If
Next chr
Farbcode = zwert
End Function


Nun meine Problem (vielleicht ganz einfach zu lösen, aber ich kann´s nicht).
Ändere ich die Schriftfarbe von schwarz auf rot, wird die Funktion farbcode nicht aufgerufen, d.h es wird nichts neu berechnet. Ändere ich die Schriftfarbe aber mit "Format übertragen" funktionierts perfekt. F9 (neu berechnen) bringt auch nichts.

Vielen Dank für die Hilfe!

Gruß p

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe in ABhängigkeit von Formatierung
19.12.2003 18:01:17
Ulf

Function Farbcode(farbe As Range)
Dim chr
Dim inh
Dim zwert As Integer
Application.Volatile
inh = 0
zwert = 0
For Each chr In farbe
inh = chr.Value
Debug.Print inh
If chr.Font.ColorIndex = 3 Then
zwert = zwert + inh
End If
Next chr
Farbcode = zwert
End Function


Ulf
AW: Summe in ABhängigkeit von Formatierung
20.12.2003 16:43:20
Peter
Hi Ulf,

vielen Dank für die Hilfe. Hab´s gleich ausprobiert-funktioniert trotzdem nicht. wAAAAAs mache ich falsche?

Vielen Dank p

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige