Dim farbe As String
ActiveSheet.Range("J1").Select
farbe = Selection.Interior.ColorIndex.Value
MsgBox farbe
leider Fehlgeschlagen, vielleicht kann mir jemand helfen ?
gr Kurt P
Dim Farbe as Integer
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Sub Farbe_auslesen()
Text = "Die aktive Zelle " & ActiveCell.Address & Chr(13) & _
"hat die Schriftfarbe Nr.: " & ActiveCell.Font.ColorIndex & Chr(13) & _
"und die Zellenhintergrundfarbe Nr.: " & ActiveCell.Interior.ColorIndex
MsgBox Text, vbOKOnly, "Farbnummern auslesen"
End Sub
Gruß
Odje
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen