Zellfarbe mit makro A, manuell B

Forumthread: Zellfarbe mit makro A, manuell B
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Zellfarbe mit makro A, manuell B

27.02.2009 22:55:07

Tobias

Hallo allerseits
ich ändere den farbwert einer zelle mit:
Cells(i, 2).Font.ColorIndex = 3
Leider bleibt die zelle immer noch auf 3, wenn ich später manuell etwas in Spalte B eintrage.
hätte gerne bei manuellem Eintrag den wert 1
Wie kann man das lösen?
Beste Grüsse,
Tobias

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

warum nicht bedingte Formatierung? o.T.

27.02.2009 22:57:40

Josef
AW: warum nicht bedingte Formatierung? o.T.

27.02.2009 23:30:00

Tobias
Dann geht's nur über Change_event

27.02.2009 23:38:26

Renee
AW: jep!

28.02.2009 00:15:52

Tobias

warum nicht bedingte Formatierung? o.T.

27.02.2009 22:57:40

Josef

Gruß Sepp

AW: warum nicht bedingte Formatierung? o.T.

27.02.2009 23:30:00

Tobias

hm,
wie soll ich der bedingten formatierung das erklären:
Wenn das makro in b1 schreibt, mach b1 rot.
Wenn jemand manuell in b1 schreibt, mach b1 schwarz.
?
gruss tobias

Dann geht's nur über Change_event

27.02.2009 23:38:26

Renee

Hi Tobias,
In das Tabellenblatt:


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Columns(2)) Is Nothing Or Target.Count > 1 Then Exit Sub
Target.Font.ColorIndex = 1
End Sub

GreetZ Renée

AW: jep!

28.02.2009 00:15:52

Tobias

So hats geklappt!
besten dank!
grüsse,
tob