Office-Fragen.de

Halllo,
mit folgenden Code setze ich die aktuell markierte Zelle auf den Farbindex 44.
Sub KH()
ActiveCell.Interior.ColorIndex = 44
End Sub

Habe ich mehrere Zellen markiert (was mein Ziel ist), wird nur die letzte Zelle verändert.
Wie muss der Code aussehen, damit alle aktuelle markierten Zellen verändert werden?

Ist wahrscheinlich ganz einfach , habe aber seit ca. 10 jahren kein VBA mehr angerührt
Vielen dank für Eure Hilfe

Hi,

Bspw so:
Range("A1:A3").Interior.Color = RGB(255,0,0)

Oder 

Cells(1,1).Interior.Color = RGB(255,0,0)

Oder

Selection.Interior.Color = RGB(255,0,0)

Hinweis:
Es beziehen sich alle Varianten auf das aktive Arbeitsblatt.
Du kannst natürlich auch .ColorIndex oder Farbkonstanten (=vbRed etc) verwenden. Gilt m.E. mittlerweile aber als überholt.

Hallo Marco, danke für Deine Hilfe. Meine Lösung ist jetzt (mit minimalen Änderungsaufwand):
Sub KH()
Selection.Interior.ColorIndex = 44
End Sub

Grüße, Kurt