Forums Neueste Beiträge
 

Bereich nach Zahl einfärben

23/08/2015 - 20:17 von Peter Schuerer | Report spam
Hallo Zusammen,

XL2002.

Meine Tabelle geht von "A17:N300". In Spalte A stehen Zahlen wie z.B.:
200, 210, 220, 300 ...
Es stehen immer gleiche Zahlen untereinander und ich möchte jetzt die
Zahlen farblich trennen.
Also in "A17:A22" steht 200, Bereich "A17:N22" keine Farbe.
In "A23:A31" steht 210, Bereich "A23:N31" Füllfarbe Gelb.
In "A32:A43" steht 220, Bereich "A32:N43" keine Farbe.
In "A44:A57" steht 230, Bereich "A44:N57" Füllfarbe Gelb.

Wie kann man das per Makro lösen?

Danke und Gruß
Peter
 

Lesen sie die antworten

#1 Claus Busch
23/08/2015 - 20:38 | Warnen spam
Hallo Peter,

Am Sun, 23 Aug 2015 20:17:19 +0200 schrieb Peter Schuerer:

Also in "A17:A22" steht 200, Bereich "A17:N22" keine Farbe.
In "A23:A31" steht 210, Bereich "A23:N31" Füllfarbe Gelb.
In "A32:A43" steht 220, Bereich "A32:N43" keine Farbe.
In "A44:A57" steht 230, Bereich "A44:N57" Füllfarbe Gelb.



markiere A17:N57 => Bedingte Formatierung => Formel zur Ermittlung...
=REST($A17/10;2)=1

Mit Makro:
Sub Farbe()
Dim rngC As Range

For Each rngC In Range("A17:A57")
If rngC / 10 Mod 2 = 1 Then
rngC.Resize(, 14).Interior.Color = vbYellow
End If
Next
End Sub


Mit freundlichen Grüßen
Claus
Vista Ultimate / Windows7
Office 2007 Ultimate / 2010 Professional

Ähnliche fragen