Zelle unter bestimmter Bedingung einfärben

Bild

Betrifft: Zelle unter bestimmter Bedingung einfärben
von: Sabine
Geschrieben am: 22.05.2015 10:22:31

Hallo,
ich hätte gerne das eine Zelle in Spalte I farbig hinterlegt wird, wenn in dieser nicht
"Herrn" bzw. "Frau" steht
Ich hab hier meinen code aber irgendwie funktioniert er nicht.
Könnt ihr mir bitte helfen?

Sub Anrede()
      Dim var_ANREDE
    Range("I2:I10").Select
 Dim i 
   Application.ScreenUpdating = False
   For i = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
      
      If Cells(i, 1) = "Herrn" Then
              If Cells(i, 1) = "Frau" Then
              Else: Selection.FormatConditions(Selection.FormatConditions.Count). _
SetFirstPriority
                With Selection.FormatConditions(1).Interior
                 .PatternColorIndex = xlAutomatic
                 .Color = 65535
                 .TintAndShade = 0
                End With
                 Selection.FormatConditions(1).StopIfTrue = False
            End If
      End If
   
   Next i
   Application.ScreenUpdating = False
  
End Sub

Bild

Betrifft: AW: Zelle unter bestimmter Bedingung einfärben
von: Hajo_Zi
Geschrieben am: 22.05.2015 10:48:23
mache es ohne VBA, bedingte Formatierung.


Bild

Betrifft: AW: Zelle unter bestimmter Bedingung einfärben
von: Werner
Geschrieben am: 22.05.2015 10:48:23
Hallo Sabine,
warum nicht mit bedingter Formatierung?
Gruß Werner

Bild

Betrifft: AW: Zelle unter bestimmter Bedingung einfärben
von: Alexander
Geschrieben am: 22.05.2015 10:55:50
Hallo Sabine,
Wenns unbedingt mit VBA sein soll Teste mal das.

Sub Anrede()
Dim lngZ As Long
lngZ = Cells(Rows.Count, 9).End(xlUp).Row
   Application.ScreenUpdating = False
   For i = 1 To lngZ
      If Cells(i, 9).Value <> "Herrn" Then
        If Cells(i, 9).Value <> "Frau" Then
            Cells(i, 9).Interior.Color = vbRed
        Else
        Cells(i, 9).Interior.Color = xlNone
        End If
      End If
   Next i
   Application.ScreenUpdating = True
End Sub
Gruß
Alex

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zelle unter bestimmter Bedingung einfärben"