Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Färben nur Zelle mit "1" und nicht ROW

Forumthread: Färben nur Zelle mit "1" und nicht ROW

Färben nur Zelle mit "1" und nicht ROW
12.06.2006 14:02:57
helena
Hallo
Danke Euch schon jetzt für kleine Hilfe

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A15")) Is Nothing Then
Else
If Target.Value = "1" Then
Target.EntireRow.Interior.ColorIndex = 3
Else
Target.EntireRow.Interior.ColorIndex = 0
End If
End If
End Sub

nicht Zeile sindern die Zelle welche es zutrifft.
gruss helena
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Färben nur Zelle mit "1" und nicht ROW
12.06.2006 14:05:36
Bertram
Hi Helena,
lass EntireRow weg.
Gruß
Bertram
AW: Färben nur Zelle mit "1" und nicht ROW
12.06.2006 14:06:28
Hoffi
Hallo Helena,
So:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A15")) Is Nothing Then
Else
If Target.Value = "1" Then
Target.Cells.Interior.ColorIndex = 3
Else
Target.Cells.Interior.ColorIndex = 0
End If
End If
End Sub

Grüße
Hoffi
Anzeige
AW: Färben nur Zelle mit "1" und nicht ROW
12.06.2006 14:14:46
helena
Danke es funkt, hätte noch Ergänzung, geht das ?
Hätte noch Ergänzung
Wenn 0 = rot, Wenn X = gelb, wenn 3 = grün
DANKE Euch jetzt schon
gruss helena
AW: Färben nur Zelle mit "1" und nicht ROW
12.06.2006 14:22:07
Bertram
Hi,
würde ich dann mit Select Case machen.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A15")) Is Nothing Then
Else
Select Case Target.Value
Case Is = "0"
Target.Interior.ColorIndex = 3
Case Is = "3"
Target.Interior.ColorIndex = 4
Case Is = "X"
Target.Interior.ColorIndex = 6
Case Else
Target.Interior.ColorIndex = 0
End Select
End If
End Sub

Gruß
Bertram
Anzeige
AW: Färben nur Zelle mit "1" und nicht ROW
12.06.2006 14:34:17
helena
Noch letzte FRage, wieso kann ich Bereich nicht erweitern
wenn ich ZB will A1:B25, dann geht es nicht mehr.
DANKE
gruss aus CH (Superwetter)
AW: Färben nur Zelle mit "1" und nicht ROW
12.06.2006 14:38:15
Bertram
Hi,
wenn du wirklich nur "A1:A15" durch "A1:B25" ersetzt, gibt's kein Grund, weshalb es nicht funktionieren sollte. Also bei mir geht's.
Gruß aus dem Allgäu (auch Superwetter)
Bertram
Anzeige
AW: Färben nur Zelle mit "1" und nicht ROW
12.06.2006 14:48:07
helena
Natürlich gehts du hast Recht
ich habe es am falschen Ort geändert, hatte schnell schnell
in diese MAppe kopiert statt in TAbelle und dann habe ich wieder
in MAPPE geändert das ging natürlich nicht.
DANKE
gruss helena
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige