Excel 2007 - bedingte Formatierung - Wie werden Farbcodes in Farben umgewandelt? - Excel-VBA, Excel-2007, VBA, Excel

Ich habe einen sehr einfachen Makrocode, der die Farbe des Farbcodes anzeigt, der in einer Zelle aufgezeichnet wird:

Sub ShowColour()
ColCod = Selection()
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = ColCod
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub

Ich suche jetzt nach einem Weg, um das zu ändernInhalt der Zelle in einen anderen Farbcode einfügen und sofort seine Farbe zeigen. Ich habe mit der bedingten Formatierung experimentiert, aber es scheint, dass ich nur zwischen vordefinierten Formaten wählen kann.

Antworten:

Wenn ich Sie richtig finde, müssen Sie diesen Code hinzufügengeeignetes Modul für Blätter, wie "Sheet1 (Sheet1)" (nicht in Standardmodul wie Modul1). Infolgedessen wird dieser Code für Sie das entsprechende Ereignis auslösen.

Private Sub Worksheet_Change(ByVal Target As Range)

On Error GoTo ErrorHandler
With Target.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = Target.Value
.TintAndShade = 0
.PatternTintAndShade = 0
End With

Exit Sub
ErrorHandler:
MsgBox "Color number rather doesn"t exists"
End Sub

Ich habe Ihren grundlegenden Code in sich behalten, da es für Sie einfacher wäre.