VBA-Beispiel 013
mail schreiben
mail schreiben

markierten Zellbereich färben
Die beiden Makros färben jeweils die Zeilen/Spalten eines zuvor markierten Zellbereichs gelb und grün
Sub Zeilen()
'färbt die markierten Zeilen
Dim Zeile As Range
Dim x As Integer

    For Each Zeile In Selection.Rows
        x = x + 1
        If x Mod 2 = 0 Then
            Zeile.Interior.ColorIndex = 36
        Else
            Zeile.Interior.ColorIndex = 35
        End If
    Next
End Sub

Sub Spalten()
'färbt die markierten Spalten
Dim Spalte As Range
Dim x As Integer

    For Each Spalte In Selection.Columns
        x = x + 1
        If x Mod 2 = 0 Then
            Spalte.Interior.ColorIndex = 36
        Else
            Spalte.Interior.ColorIndex = 35
        End If
    Next
End Sub


Eine variablere Möglichkeit gibt es hier
Download:   vba013.zip
relevante Links:

top