Thema Datum  Von Nutzer Rating
Antwort
27.05.2017 19:15:03 Gerd
NotSolved
Blau VBA Summewenn Hintergrundfarbe und positive/negative Werte
 27.05.2017 20:29:20 Gast44077
NotSolved

Ansicht des Beitrags:
Von:
Gast44077		 Datum:
27.05.2017 20:29:20		 Views:
497		 Rating:
     
Antwort:
  Ja
Thema:
VBA Summewenn Hintergrundfarbe und positive/negative Werte

Hat sich erledigt,

 

ich hab die Formel jetzt so angepasst:

 

Function ColorFunction(rColor As Range, rRange As Range, Optional SUM As Boolean, Optional iSign As Integer = 0)
Dim rCell As Range
Dim lCol As Long
Dim vResult
Dim Min_value
lCol = rColor.Interior.ColorIndex
If SUM = True Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol Then
If iSign = -1 And rCell.Value < 0 Then
vResult = vResult + rCell.Value
ElseIf iSign = 1 And rCell.Value > 0 Then
vResult = vResult + rCell.Value
ElseIf iSign = 0 Then
vResult = vResult + rCell.Value
End If
End If
Next rCell
If SUM = False Then
For Each rCell In rRange
If rCell.Interior.ColorIndex = lCol And Min_value > 0 Then
Min_value = rCell
End If
Next rCell
vResult = min_val
End If
ColorFunction = vResult
End If
End Function
 

Und es funktioniert :)

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
27.05.2017 19:15:03 Gerd
NotSolved
Blau VBA Summewenn Hintergrundfarbe und positive/negative Werte
 27.05.2017 20:29:20 Gast44077
NotSolved