Office-Fragen.de
Mehrere Zellen per VBA färben - Druckversion

+- Office-Fragen.de (https://office-fragen.de)
+-- Forum: Microsoft Office (https://office-fragen.de/forum-1.html)
+--- Forum: Excel (https://office-fragen.de/forum-2.html)
+--- Thema: Mehrere Zellen per VBA färben (/thread-6181.html)



Mehrere Zellen per VBA färben - KurtHg - 18.01.2020

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 Smile , habe aber seit ca. 10 jahren kein VBA mehr angerührt
Vielen dank für Eure Hilfe


RE: Mehrere Zellen per VBA färben - Mase - 18.01.2020

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.


RE: Mehrere Zellen per VBA färben - KurtHg - 21.01.2020

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