Anzeige
Archiv - Navigation
1424to1428
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zelle unter bestimmter Bedingung einfärben

Zelle unter bestimmter Bedingung einfärben
22.05.2015 10:22:31
Sabine
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zelle unter bestimmter Bedingung einfärben
22.05.2015 10:48:23
Hajo_Zi
mache es ohne VBA, bedingte Formatierung.

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

AW: Zelle unter bestimmter Bedingung einfärben
22.05.2015 10:55:50
Alexander
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
Anzeige

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige