CountIf MergeCells Problem
13.02.2020 13:29:33
Lukas
ich möchte die Anzahl der farbigen Zellen in Zeile 11 auslesen. Dadurch, dass allerdings mehrere Zellen gemerged sind, und diese dann nicht als 5 Zellen, sondern als eine Zellen zählt. Wenn man den Bereich merged und anschließend wieder unmerged, würde es funktionieren, dass ist allerdings nicht mit der Programmierung des restlichen Projekts umsetzbar.
Der Rest des Subs funktioniert wie gewünscht.
https://www.herber.de/bbs/user/135171.xlsm
Sub AddiereFarbzellen()
Dim Zelle As Range, wsc As Workbook, heute As Range
Dim i, E, Anfang, Ende, A, AT, PT As Integer
'AT = Arbeitstage dieser Monat
'PT = Tage veplant
With ThisWorkbook.Worksheets("Tabelle1")
.Activate
Set Anfang = .Range("H10:BZL10").Find(DateSerial(Year(Date), Month(Date), 1))
Set Ende = .Range("H10:BZL10").Find(DateSerial(Year(Date), Month(Date) + 1, 0))
A = Anfang.Column
E = Ende.Column
For i = A To E
If .Cells(9, i).Interior.ColorIndex = xlColorIndexNone Then
AT = AT + 1
End If
Next i
For i = A To E
If Not .Cells(12, i).Interior.ColorIndex = xlColorIndexNone Then
PT = PT + 1
End If
Next i
MsgBox "PT dieser Monat: " & PT
MsgBox "AT dieser Monat: " & AT
End With
End Sub