Ich habe ein Makro, das mir gelb marierten Zellen in Spalte D ermittelt. Das funktioniert einwandfrei, ausser, wenn zufälligerweise in der allerletzten Zeile, in Zelle D65536 die Markierung gelb ist, wird ignoriert. Wenn ich die beiden letzten Zellen gelb markiere, wird der Variable lngLast der Wert 65535 übergeben. Weshalb erwischt .Cells(Rows.Count, 4).End(xlUp).Row die letzte Zeile nicht?
Danke für Feedback.
Peter
Sub Zaehle_gelbe()
Dim rng As Range
Dim vTmp() As Variant
Dim lngLast As Long
Dim intIndex As Integer
With Sheets("Journal") 'Tabellenname anpassen!
lngLast = .Cells(Rows.Count, 4).End(xlUp).Row
MsgBox lngLast
For Each rng In .Range("D1:D" & lngLast)
If rng.Interior.ColorIndex = 6 Then
ReDim Preserve vTmp(intIndex)
vTmp(intIndex) = rng.Row
intIndex = intIndex + 1
End If
Next
End With