im folgenden Makro wird in der Msgbox ein Ergebnis angezeigt.
Wie muss das Makro angepasst werden, damit das Ergebnis aus der Msgbox in die Nebenzelle der aktiven Zelle geschrieben wird?
Meine Recherche im Netz war bisher erfolglos. Freue mich auf Hilfe.
Gruß,
Dieter
'Angepasst von: Helmut am 21.04.2015 19:47:29
Sub RGBAnzeige()
Dim Rot As Long, Grün As Long, Blau As Long, Wert As Long
Wert = ActiveCell.Interior.Color
On Error Resume Next
Rot = Wert Mod 256
Wert = (Wert - Rot) / 256
Grün = Wert Mod 256
Wert = (Wert - Grün) / 256
Blau = Wert Mod 256
MsgBox "Rot " & Rot & "," & " Grün " & Grün & ", " & " Blau " & Blau
End Sub