Summe wenn Zelle farbig und vorgegebener Text in Nachbarzelle

[einfachbauen]

Hallo zusammen!

Habe ein kleines Problem bei dem ich eure Unterstützung brauche.

Meine Tabelle besitzt im Grunde zwei Spalten, A und B.
In den Zeilen der Spalte A steht entweder ein "J" oder ein "N"
In den Zeilen der Spalte B stehen verschiedene Namen etc., welche teilweise mit einer Hintergrundfarbe bspw. Gelb eingefärbt sind.

Ich möchte nun wissen, wie viele Namen in Spalte B in einem bestimmten Bereich z.B. von Zeile 1 bis 30 gelb eingefärbt sind UND gleichzeitig ein "J" in der Zelle daneben stehen haben.

Bislang habe ich nur einen VBA Code der funktioniert, wenn die Zelle mit dem "J" eingefärbt wurde. Dies ist leider nicht der Fall. Was muss ich ändern damit der Inhalt sich auf eine andere Zelle bezieht?

Oder gibt es andere Vorschläge?

Vielen Dank schonmal!

Code: [Auswählen]

Function FarbigeZellenZählenNeu(rng As Range, Farbe, Inhalt)
Dim Zelle As Object
Application.Volatile
For Each Zelle In rng
If Zelle.Interior.ColorIndex = Farbe And Zelle = Inhalt Then FarbigeZellenZählenNeu = FarbigeZellenZählenNeu + 1
Next
End Function


[gmg-cc]

Moin,
vielleicht hilft ja dieser Code:

Code: [Auswählen]

Function FarbigeZellenZählenNeu(rng As Range, Farbe, Inhalt)
   Dim Zelle As Range
   Application.Volatile
   For Each Zelle In rng
      If Zelle.Interior.ColorIndex = Farbe And Zelle.Offset(0, 1) = Inhalt Then FarbigeZellenZählenNeu = FarbigeZellenZählenNeu + 1
   Next
End Function


[einfachbauen]

Hey,

danke für deine Antwort, ist eine gute Idee!

Leider hat die Umsetzung bei mir nicht geklappt...

[gmg-cc]

Moin,

die Haupt-Ursache: Eigene Blatt-Funktionen gehören in ein allgemeines Modul.
Und dann sind Umlaute im Funktionsnamen nicht optimal.
Der Rest der Änderungen ist überlegenswert ...