innerhalb eines Makros möchte ich verzweigen, abhängig ob die aktuelle Zelle grün markiert ist oder nicht.
Somit benötige ich also eine Möglichkeit die Farbformatierungsinfo einer Zelle auszulesen.
Sub Makro1()
' Makro1 Makro
' Makro am 18.06.2008 von Claus aufgezeichnet
Dim farb As Variant
Range("A1").Select
farb = ActiveCell.Interior.ColorIndex
Range("B1").Select
ActiveCell.FormulaR1C1 = farb
End Sub
Sub Makro1()
' Makro1 Makro
' Makro am 18.06.2008 von Claus aufgezeichnet
Range("B1") = Range("A1").Interior.ColorIndex
End Sub
Sub FarbeAuslesen()
Farbe = ActiveCell.Interior.Color 'Dezimalzahl des Farbcodes
rot = Int(Farbe Mod 256)
grün = Int(Farbe / 16 ^ 2 Mod 256)
blau = Int(Farbe / 16 ^ 4 Mod 256)
MsgBox rot & "-" & grün & "-" & blau
End Sub
Grüße
Jens
Sub FarbeAuslesen()
Farbe = ActiveCell.Interior.Color 'Dezimalzahl des Farbcodes
rot = Int(Farbe Mod 256)
grün = Int(Farbe / 16 ^ 2 Mod 256)
blau = Int(Farbe / 16 ^ 4 Mod 256)
MsgBox rot & "-" & grün & "-" & blau
End Sub
Grüße
Jens