Zellen per VBA formatieren
jbo
habe E2007 und möchte per VAB Zellen in Abhängigkeit von Werten
formatieren.
Ich habe leider im www nichts gefunden was ich anwenden könnte und bin
auch nicht so fit in Excel VBA.
Das ganze soll so aussehen:
Die Werte stehen in Spalte A.
IF A1 = Hans
Then Schrift = Blau
Else Schrift = Schwarz
End IF
Das ganze soll für alle Zellen in Spalte A ausgelöst werden wenn dort
der Wert geändert wurde und die Zelle verlassen wird.
Ich würde mich über einen Tipp sehr freuen.
Vielen Dank.
Claus Busch
Am Sun, 11 Oct 2009 10:17:37 -0700 (PDT) schrieb jbo:
> Das ganze soll so aussehen:
>
> Die Werte stehen in Spalte A.
>
> IF A1 = Hans
> Then Schrift = Blau
> Else Schrift = Schwarz
> End IF
>
> Das ganze soll f�r alle Zellen in Spalte A ausgel�st werden wenn dort
> der Wert ge�ndert wurde und die Zelle verlassen wird.
im VB-Editor Doppelklick auf die entsprechende Tabelle und dann folgenden
Code ins Codefenster kopieren:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Or _
Target.Count > 1 Then Exit Sub
If Target.Value = "Hans" Then
Target.Font.ColorIndex = 3
Else
Target.Font.ColorIndex = xlAutomatic
End If
End Sub
Mit freundlichen Gr�ssen
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2
Bernd P
Du kannst es mit einem Worksheet Change Event machen (siehe Claus´
Lösung) oder auch über eine bedingte Formatierung: Kopiere in ein
normales Makro Modul:
Sub Test1()
Dim r As Range
Set r = Selection
Columns("A:A").Select
Selection.Cells.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue,
Operator:=xlEqual, Formula1:="=""Hans"""
Selection.FormatConditions
(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -4165632
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
r.Select
End Sub
Hinweis: Andere eventuell vorhandene bedingte Formatierungen für
Spalte A werden mit diesem Makro gelöscht.
Viele Grüße,
Bernd
jbo
Werde ich morgen testen.