im benannten bereich jede 2.zeile farbig

[klaus k?nig]

hallo ng,

wie lautet der code für ein makro, das auf ein benanntes range-objekt
zugreift und dort jede 2. zeile einfärbt.

danke für eure hilfe

klaus

[A. Eckl]

Hallo Klaus,

Mit dem nachfolgenden Code ist es möglich, jede zweite Zeile im markierten
Bereich farbig zu hinterlegen. Es wird eine Art liniertes Computerpapier
erzeugt werden, wie es in den Anfängen des Computers üblich war. Die
Lesbarkeit von Zahlenkolonnen wird dadruch erheblich verbessert.

Sub ZeilenFärben()
'Variablen dimensionieren
Dim Zeile As Range, ZeilenNr As Integer

'Schleife für die gesamte Selektion
For Each Zeile In Selection.Rows

'Zeilen zählen
ZeilenNr = ZeilenNr + 1

'Für jede 2. Zeile Farbe festlegen
If ZeilenNr Mod 2 = 0 Then
Zeile.Interior.ColorIndex = 15
Else
Zeile.Interior.ColorIndex = xlAutomatic
End If

'Rahmen festelegen
Zeile.Borders.Weight = xlThin

Next
End Sub

Siehe auch hier:
http://www.excel-inside.de/vba/101_zellen_bereiche/101082.htm
--
bis denn

Alois Eckl
www.excel-inside.de
___________________________




"klaus k?nig" <***@epost.de> schrieb im Newsbeitrag news:***@posting.google.com...
| hallo ng,
|
| wie lautet der code für ein makro, das auf ein benanntes range-objekt
| zugreift und dort jede 2. zeile einfärbt.
|
| danke für eure hilfe
|
| klaus

[klaus k?nig]

Post by A. Eckl
Hallo Klaus,
Mit dem nachfolgenden Code ist es möglich, jede zweite Zeile im markierten
Bereich farbig zu hinterlegen. Es wird eine Art liniertes Computerpapier
erzeugt werden, wie es in den Anfängen des Computers üblich war. Die
Lesbarkeit von Zahlenkolonnen wird dadruch erheblich verbessert.
Sub ZeilenFärben()
'Variablen dimensionieren
Dim Zeile As Range, ZeilenNr As Integer
'Schleife für die gesamte Selektion
For Each Zeile In Selection.Rows
'Zeilen zählen
ZeilenNr = ZeilenNr + 1
'Für jede 2. Zeile Farbe festlegen
If ZeilenNr Mod 2 = 0 Then
Zeile.Interior.ColorIndex = 15
Else
Zeile.Interior.ColorIndex = xlAutomatic
End If
'Rahmen festelegen
Zeile.Borders.Weight = xlThin
Next
End Sub
http://www.excel-inside.de/vba/101_zellen_bereiche/101082.htm
--
bis denn
Alois Eckl
www.excel-inside.de
___________________________

danke für deinen tipp, diesen ziehe ich ggü der bed. formatierung vor.

Post by A. Eckl
| hallo ng,
|
| wie lautet der code für ein makro, das auf ein benanntes range-objekt
| zugreift und dort jede 2. zeile einfärbt.
|
| danke für eure hilfe
|
| klaus

[Thomas Ramel]

Grüezi Klaus

Post by klaus k?nig
wie lautet der code für ein makro, das auf ein benanntes range-objekt
zugreift und dort jede 2. zeile einfärbt.

Eine feine Lösung wäre auch die Bedingte Formatierung, sofern Du im Bereich
noch keine solche hast, klappt folgendes sehr gut:

Sub Makro1()
With Range("DeinName")
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=REST(ZEILE();2)"
.FormatConditions(1).Interior.ColorIndex = 35
End With
End Sub

Der Vorteil ist, dass die Einfärbung auch beim Sortieren erhalten bleibt.

[klaus k?nig]

Gr ezi Klaus

wie lautet der code f r ein makro, das auf ein benanntes range-objekt
zugreift und dort jede 2. zeile einf rbt.

Eine feine L sung w re auch die Bedingte Formatierung, sofern Du im B
ereich
Sub Makro1()
With Range("DeinName")
.FormatConditions.Add Type:=xlExpression, Formula1:=
"=REST(ZEILE();2)"
.FormatConditions(1).Interior.ColorIndex = 35
End With
End Sub
Der Vorteil ist, dass die Einf rbung auch beim Sortieren erhalten bleib
t.

hallo thomas,

danke für deinen tipp

gruß klaus

[Bernd Held]

Hallo Klaus,

Post by klaus k?nig
hallo ng,
wie lautet der code für ein makro, das auf ein benanntes range-objekt
zugreift und dort jede 2. zeile einfärbt.
danke für eure hilfe
klaus

für diese Aufgabe brauchst Du nicht unbedingt ein Makro. Wei thomas schon
sagte kann das auch über die bedingte Formatierung eingestellt werden.
Markiere dazu jeweils die ganzen Zeilen und stelle das bedingte Format
Formel ist
=REST(ZEILE();2)=0
ein.

Viele Grüße
Bernd
MVP für Microsoft Excel
Die nächste VBA-Schulungen am 24.02.04. Mehr unter http://held-office.de

[klaus k?nig]

Post by A. Eckl
Hallo Klaus,

Post by klaus k?nig
hallo ng,
wie lautet der code für ein makro, das auf ein benanntes range-objekt
zugreift und dort jede 2. zeile einfärbt.
danke für eure hilfe
klaus

für diese Aufgabe brauchst Du nicht unbedingt ein Makro. Wei thomas schon
sagte kann das auch über die bedingte Formatierung eingestellt werden.
Markiere dazu jeweils die ganzen Zeilen und stelle das bedingte Format
Formel ist
=REST(ZEILE();2)=0
ein.
Viele Grüße
Bernd
MVP für Microsoft Excel
Die nächste VBA-Schulungen am 24.02.04. Mehr unter http://held-office.de

hallo bernd,

danke für deinen tipp

gruß klaus