ich benötige ein VBA code, welcher aus einem Zellbereich, diejenige Zelle heraussucht, welche mit einer bedingten Formatierung (Hintergrundfarbe - nicht in der Farbpalette)versehen ist. Der Wert dieser Zelle soll in einer anderen Zelle ausgegeben werden.
So weit war ich bis jetzt:
Sub bedingte()
Dim zelle As Range
ActiveCell.SpecialCells(xlCellTypeAllFormatConditions).Select
For Each zelle In Selection
If zelle.FormatConditions(1).Interior.ColorIndex = 3 Then
MsgBox "diese zelle hat roten hintergrund" & "den Wert " & zelle.value
End If
Next
End Sub
dies hat mir schon mal jemand zusammengebastelt, allerdings weiß ich nicht wo der zu durchsuchende Zellbereich und die Zelle, in die der Wert ausgegeben wird, eingetragen werden soll.
Thomas