Excel XP: Mit Farben rechnen

Die PC-Welt bietet auf ihrenSeiten noch immer die Datei 'farbe.z.exe' (über ' Summe.bas'), um mit Farben zu rechnen.
Mit dieser Datei habe ich in Urzeiten (Windows 97 und Excel 97) gearbeitet und war begeistert. Jetzt brauche ich wieder eine Prozedur, um mehrere Kategorien zu addieren, und da erinnerte ich mich dieser alten Möglichkeit, die Kategorien mit Farben kenntlich zu machen und zu addieren.
Leider kann ich die Datei nicht öffnen (jetzt mit Windows XP und Excel XP).
Wie komme ich an den Prozeduren-Code? Wäre schön, wenn Ihr mir helfen könntet.

Gruß Phipps

 

In wieweit nicht öffnen? (XP habe ich zwar, aber kein OXP)

Eric March

 

Gibts einen Link dazu ?
BAS-Datei lässt sich i.d.R. mit dem VB-Editor oder einem anderen Basic-Compiler öffnen.
Umständlicher gehts auch mit eienm erweiterten Text-Editor,z. B. Notepad++, müsste dann noch rekompiliert werden.
Schau auch mal hier rein >

 

dies ist der Link dazu.:
http://www.pcwelt.de/downloads/SUMME-BAS-1297927.html

gruß phipps

 

Hallo Phipps,

stimmt, die Datei ist hin. Aber das sollte keinen Hinderungsgrund darstellen.

Mit Funktionen wie den folgenden kannst Du das leicht lösen. (Falls Du dich mit VBA und dem dazu gehörigen Editor auskennst) Bei Bedarf kann ich Dir aber auch passende Excelmappen auf Skydrive hinterlegen.

Gruß
Robert

Function Anzahl_rot(Bereich)
x = 0
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = 3 Then
x = x + 1
End If
Next
Anzahl_rot = x
End Function
Function summe_rot(Bereich)
x = 0
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = 3 Then
x = x + Zelle.Value
End If
Next
summe_rot = x
End Function

Function Schrift(Zelle As Range)
Application.Volatile
Schrift = Zelle.Font.ColorIndex
End Function
Function Hintergrund(Zelle As Range)
Application.Volatile
Hintergrund = Zelle.Interior.ColorIndex
End Function

 

Damit kann ich arbeiten.
Vielen Dank für Deine Mühe.

Gruß Phipps