Office - Word, Excel und Co. 9.703 Themen, 40.813 Beiträge

Verfolgung starten Optionen

Jede 2. Zeile in Excel einfärben

(Anonym) / 2 Antworten / Flachansicht Nickles

Moin,
ich muss in einer Excel-Tabelle jede 2. Zeile einfärben. Damit sich die einzelnen Zeilen leichter unterscheiden lassen.
(Will das ganze dann nach HTML ausgeben)

Ich habe alle möglichen Format-Dinger ausprobiert, aber keines konnte so agieren, wie ich es gern hätte.

Gruss, MAS

bei Antwort benachrichtigen
wolle (Anonym) (Anonym) „Jede 2. Zeile in Excel einfärben“
Optionen

Hi,
hier das Makro:
Sub ZeilenFärben()
'
' Dim Zeile As Range, ZeilenNr As Integer

For Each Zeile In Selection.Rows
ZeilenNr = ZeilenNr + 1
If ZeilenNr Mod 2 = 0 Then
Zeile.Interior.ColorIndex = 6
Else
Zeile.Interior.ColorIndex = xlAutomatic
End If
Zeile.Borders.Weight = xlThin
Next
End Sub
Viel Spaß. Die Farben lassen sich noch manipulieren.

bei Antwort benachrichtigen
ne andere möglichkeit wäre: 1.zeile bleibt weiss, 2.zeile blau...dann ... pansa