(Der Code ist von Daniel und funktioniert super)
Ich brauche nochmals eine Hilfe zu einem Code.
Ich möchte ein weiteres Kriterium setzen.
Es soll mir alle Einträge die mit der Farbe und dem Datum und dem Monat (wie bis jetzt) vorhanden sind, aber nur die, welche in der dazugehörigen rechten Spalte "Problektion" drin stehen haben.
habs so probiert, jedoch ohne Erfolg:
Option Explicit
Option Private Module
Sub probelektionen_Mirjam() 'Probelektionen Mirjam pro Monat und Jahr
Dim c As Range
Dim Jahr As Long
Dim dicDat1 As Object
Dim monat1 As Long
Jahr = Sheets("Kostenkontrolle").Range("C2").Value
monat1 = Sheets("Kostenkontrolle").Range("B7").Value
Set dicDat1 = CreateObject("Scripting.Dictionary")
For Each c In Sheets("Abonnemente").Range("Q16:R500").Cells
If c.Text = "Probelektion" Then
If c.Interior.Color = Sheets("Abonnemente").Range("I3").Interior.Color Then
If IsDate(c.Value) Then
If Year(c.Value) = Jahr Then
If Month(c.Value) = monat1 Then
dicDat1(c) = 1
End If
End If
End If
End If
End If
Next
Sheets("Kostenkontrolle").Range("B12") = dicDat1.Count
End Sub
Ah... die Zellen in der Spalte "R" sind NICHT eingefärbtWeis jemand Rat?
Gruss Sascha