Excel - Ein Makro zum Abrufen der entsprechenden numerischen Codes für Farben

Mit diesem Makro können Sie einen Farbcode erhalten, den Sie nach Belieben ändern können:

 Sub distri_color () Dim Lign As Integer For Lign = 1 To 12 Arbeitsblätter (1) .Range ("C" & Lign) .Value = Arbeitsblätter (1) .Range ("B" & Lign) .Interior.Color Next Lign End Sub 

• 'Ersetzen Sie 12 durch die Anzahl der zu verarbeitenden Zeilen.
• 'Ersetzen Sie "C" durch die Spalte, die Sie für das Ergebnis verwenden möchten (Farbcode).
• 'Ersetzen Sie "B" durch die Spalte, die die zu filternde Farbe enthält.