Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
264to268
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Farbe ändern

Farbe ändern
11.06.2003 16:51:58
florian
Hallo!
Kann mir einer mal weiterhelfen?
Also, ich will, wenn ich in Zeile C1 0 schreibe, dass dan in Zeile A1 ein rotes "A" erscheint. Ist das alles jedoch größer als 0, so soll ein blaues "K" in Zeile A1 erscheinen.Ich habe es schon einmal mit der bedingten Formatierung versucht;geklappt hatte es nicht.

Danke schon im Voraus.
Gruß,
Florian.

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Farbe ändern
11.06.2003 17:06:02
COT

zelle A1: =wenn(c1>0;"K";wenn(c1=0;"A";"---"))
dann mit bedingter formatierung..-> formel
Bedingung 1: wenn(A1="K";1;0) -> mit rot
Bedingung 2: wenn(a1="A";1;0) -> mit blau..
Gruß
CArsten

Re: Farbe ändern
11.06.2003 17:08:25
heinerv

Hallo Florian,

Du must in A1 eine Wenn-Formel schreiben:

=WENN(C1<=0;"A";"K")

und anschließend A1 mit bedingter Formatierung bearbeiten.

Gruß

heinerv

Re: Farbe ändern
11.06.2003 17:19:03
Koenig W.

Hallo Florian
etwa so

Sub FarbeA()
Dim zelle As Range
Dim bereich As Range
Dim i As Long
On Error Resume Next

Set bereich = Range("C1:C" _
& ActiveSheet.UsedRange.Rows.Count)
For Each zelle In bereich
If zelle.Value = 0 Then
zelle.Offset(0, -2).Value = "A"
zelle.Offset(0, -2).Font.Color = vbRed
ElseIf zelle.Value > 0 Then
zelle.Offset(0, -2).Value = "K"
zelle.Offset(0, -2).Font.Color = vbBlue
Else
End If
Next
End Sub

sollte so gehen, Text in Zellen C sind aber nicht abgefangen.
Gruss

Anzeige
Re: Farbe ändern
11.06.2003 21:29:58
florian

Hallo,Cot!
Herzlichen Dank für deine Hilfe!
Ich habe deine Methode als Erstes probiert und sie hat geklappt!
Noch mal´s Danke.

Gruß
Florian

Re: Farbe ändern
11.06.2003 21:33:21
florian

Hallo heinerv und Koenig W.!
Herzlichen Dank für eure Beiträge und Methoden.
Sie haben mir geholfen.
Noch mal´s Danke.

Gruß
Florian

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige