Themabewertung:
  • 0 Bewertung(en) - 0 im Durchschnitt
  • 1
  • 2
  • 3
  • 4
  • 5
Mehrere Zellen per VBA färben
#1
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
Zitieren
#2
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.
gruß
Marco
Zitieren
#3
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
Zitieren


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 3 Gast/Gäste




Hinweis auf Angebot Excel-Inside - lang    Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden um dein Anliegen zu besprechen.
   Gerne erstellen wir auf dieser Basis ein Angebot.
   Sende deine Anfrage einfach
per E-Mail an anfrage@excel-inside.de


Powerd and supported by Excel-InsideSolutions