Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
772to776
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
772to776
772to776
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
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
Anzeige

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige