Function ScreenTip

Eine Formel kenne ich nicht. Es geht mit einer VBA-Function:

=Erstellungsdatum()

Function Erstellungsdatum() As Date

Erstellungsdatum = ActiveWorkbook.BuiltinDocumentProperties(11)

End Function

Peter

Function PointsToCentimeters(pt As Double) As Double

PointsToCentimeters = pt * 2.54 / 72

End Function



Function CentimetersToPoints(cm As Double) As Double

CentimetersToPoints = cm * 72 / 2.54

End Function

Peter

Hallo,

habe mal Functions geschrieben die sowas machen. Du musst nur noch die Farbe wissen, oder auslesen.



Mit den Functions für Hintergrund und Schrift kannst Du den aktuellen Wert auslesen. Den könntest Du natürlich auch zählen, oder Du verwendest hierfür die andern Functions, die musst Du dann aber jedesmal anpassen wenn Du andere Farben wählst, daher würde
ich eher Hintergrund und Schrift verwenden dann steht der Wert in einer separaten Spalte und Du kannst viel flexibler auswerten.



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

Bernd Pl schrieb am 04.06.2010 18:05 Uhr:

an Stelle von ZW2 der Funktionsname FVSCHEDULE angegeben ist:

Funktioniert nicht; hatte ich schon ganz am Anfang getestet (#NAME). Es liegt wohl tatsächlich an den Spalten-Bezeichnungen; man kann den Fehler mit benutzerdefinierten Funktionen reproduzieren:

Peter

Modul1 (Standardmodul)

'#BEZUG-Fehler bei Versionen <=2003

Function IV1() As String

IV1 = "IV1"

End Function

'funktioniert

Function IW1() As String

IW1 = "IW1"

End Function

'#BEZUG-Fehler bei Versionen >=2007

Function XFD1() As String

XFD1 = "XFD1"

End Function

'funktioniert

Function XFE1() As String

XFE1 = "XFE1"

End Function

Vielen Dank.

Ich habe die Function für mich dann wie folgt genutzt, wobei ich die Farbe hellgrün abgefragt habe:



Function Anzahl_lightgreen(Bereich)

x = 0

For Each Zelle In Bereich

If Zelle.Interior.ColorIndex = 43 Then

x = x + 1

End If

Next

Anzahl_lightgreen = x

End Function