Einzelnen Beitrag anzeigen
Alt 11.07.2018, 09:50   #7
Adel1105
MOF User
MOF User
Down Auslesen und Einlesen ?

#Beverly
da ich spezielle Farben habe... lese ich diese aus...

Sub Farbe_auslesen()
Dim Farbwert As Long
Dim Rot
Dim Grün
Dim Blau
Farbwert = ActiveCell.Interior.Color
'Farbwert = ActiveWorkbook.Colors(48)
On Error Resume Next
Rot = Farbwert Mod 256
Farbwert = (Farbwert - Rot) / 256
Grün = Farbwert Mod 256
Farbwert = (Farbwert - Grün) / 256
Blau = Farbwert Mod 256
MsgBox "RGB " & Rot & ", " & Grün & ", " & Blau & Chr(13) & "RGBLong " & ActiveCell. _
Interior.Color & Chr(13) & "Index " & ActiveCell.Interior.ColorIndex
End Sub

Dann füge ich diese mit dem anderen Makro ein...
oder ginge das auch zusammen !!?????
Adel1105 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten