Ein Druck Button mit einer If Function

Hallo Amina,

Danke für deine Nachricht.

Bitte wende dich doch mit diesem Anliegen an die Spezialisten von der Excel
Community.

(Diese Seite ist auf Englisch verfügbar) diese können dir hier besser weiterhelfen.

Viele Grüße

Diego B.

=IF(CELL("TT.MM.JJJJ",B1)="D1","eingegeben","")

funktioniert einfach nicht. Sobald ich auf Enter drücke, erkennt excel diese function nicht an.

Genauso habe ich es eingegeben:

=IF(CELL("TT.MM.JJJJ";B1)="D1";"eingegeben";"")

Dann erschien die Fehlermeldung #Value

ich glaube du hast das falsch verstanden:

Nö, hab ich nicht. In den letzten 15 Jahren hab ich so'n Krams schon tausende Male gesehen.

Und hinterher kommt immer das Stöhnen "meine Zellen aktualisieren sich nicht automatisch" und "es dauert alles so lange"...

Unten ist eine Function die das macht was Du brauchst, kopier den Code in ein normales Modul, schreib in eine Zelle Deiner Übersichtstabelle =ZFIAT() und drück ENTER.

Andreas.

Function ZFIAT(Optional ByVal Zelle As Range) As Long

'Zähle Farben in anderen Tabellen...

' die die gleiche Hintergrundfarbe wie Zelle hat.

' Wird keine Zelle übergeben, dann wird die Eingabezelle übernommen

Dim Ws As Worksheet

Dim C As Range

Application.Volatile

If Zelle Is Nothing Then Set Zelle = Application.Caller

Set Zelle = Intersect(Zelle.Parent.UsedRange, Zelle)

If Zelle Is Nothing Then Exit Function

For Each Ws In Worksheets

If Ws.Name <> Zelle.Parent.Name Then

For Each C In Ws.Range(Zelle.Address).Cells

If C.Interior.Color = Zelle.Interior.Color Then

ZFIAT = ZFIAT + 1

End If

Next

End If

Next

End Function

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

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