Kategorien

Artikel-Schlagworte: „Hintergrund“

Markierte Zellen in bestimmter Farbe füllen

Nachfolgender Befehl färbt die in der Tabelle markierten Zellen in dunkelrot.
Sub Zellenfaerben()
Dim FZel As Range
For Each FZel In Selection
FZel.Interior.ColorIndex = 30
Next FZel
End Sub

Hintergrundfarbe einer Zelle in Abhängigkeit des Wertes einer anderen Zelle ändern

Nachfolgendes Makro prüft für die Zeilen 1 bis 10, ob der Wert der Zelle in Spalte A "1" entspricht. Wenn der Wert der Zelle "1" ist, wird die Zelle in Spalte B in der gleichen Zeile gelb gefärbt.
Sub Faerben()
Dim IZelle As Integer
IZelle = 0
For IZelle = 1 To 10
If Cells(IZelle, 1) = "1" Then
Cells(IZelle, 2).Interior.ColorIndex = 6
End If
Next
End Sub