PDA

Vollständige Version anzeigen : Einfärben


Rudi G
16.03.2009, 10:28
Hallo,

ich will einen Bereich mit Hintergrundfarbe belegen:
mein Versuch:

Dim FarbeE As Range
Dim FarbeA As Range
Dim Bereich As Range

FarbeA = Sheets("Zugang").Cells(Rows.Count, "K").End(xlUp).Offset(9, 0)
FarbeE = Sheets("Zugang").Cells(Rows.Count, "K").End(xlUp).Offset(-12, 1)
Bereich = ("FarbeA:FarbeE")
Bereich.Interior.ColorIndex = 5

bringt mir immer einen Fehler,
kann mir jemand weiterhelfen?

EarlFred
16.03.2009, 10:35
Hallo Rudi,

mit ein paar kleinen Änderungen sollte es laufen:

Dim FarbeE As Range
Dim FarbeA As Range
Dim Bereich As Range

Set FarbeA = Sheets("Zugang").Cells(Rows.Count, "K").End(xlUp).Offset(9, 0)
Set FarbeE = Sheets("Zugang").Cells(Rows.Count, "K").End(xlUp).Offset(-12, 1)
Set Bereich = Union(FarbeA, FarbeE)
Bereich.Interior.ColorIndex = 5

Set FarbeE = Nothing
Set FarbeA = Nothing
Set Bereich = Nothing


Grüße
EarlFred

Rudi G
16.03.2009, 11:55
Hi EarlFred,

leider werden nur 2 Zellen eingefärbt,
ich wollte eigentlich den ganzen Bereich der zwischen diesen Zellen liegen einfärben.
Geht das auch irgendwie?

hary
16.03.2009, 13:48
Hi Rudi
versuch mal diesen Code
<pre>
Sub Farb()
Dim a As Long
a = Sheets("Zugang").Cells(Rows.Count, 11).End(xlUp).Row
Range(Cells(a + 9, 11), Cells(a - 12, 12)).Interior.ColorIndex = 5
End Sub
</pre>
meinst Du so?
Gruss hary

Rudi G
16.03.2009, 14:12
Hi Hary,

super, es hat geklappt.

Vielen Dank, ich hatte wohl einen völlig falschen Ansatz.

:)

hary
16.03.2009, 14:39
hi Rudi
Ansatz war richtig, nur falsch uebersetzt ;-))
<pre>
'bei
Set FarbeA = Sheets("Zugang").Cells(Rows.Count, "K").End(xlUp).Offset(9, 0)
'kommt raus zB. Zelle K30
'bei
Set FarbeE = Sheets("Zugang").Cells(Rows.Count, "K").End(xlUp).Offset(-12, 1)
'kommt raus:Zelle L9
Set Bereich = Union(FarbeA, FarbeE)
'Set Bereich = Union(Zelle K30 und L9) deshalb auch nur diese beiden Zellen gefaerbt/haette sein muessen von bis also Range
Bereich.Interior.ColorIndex = 5
</pre>
Gruss Hary