Office: Zelle in letzter Spalte unter bestimmter Bedingung füllen

Hallo Leute,

hab mal wieder ein Problem und finde einfach keine Lösung.

Ich habe eine Tabelle in der in den Zellen der Spalte 12 entweder etwas steht oder die Zelle eben leer ist. Ich möchte jetzt, dass am Ende der Tabelle (ganz Rechts) eine Spalte angefügt wird und diese in Abhängigkeit von den Inhalten der Zellen in Spalte 12 entweder mit einer 2 gefüllt oder mit einer 1 gefüllt wird.

Zelle in Spalte 12 leer -> Zelle (selbe Zeile) am Ende der Tabelle mit 1 füllen

Zelle in Spalte 12 gefüllt -> Zelle (selbe Zeile) am Ende der Tabelle mit 2 füllen

... und das ganze jeweils bis zum Ende der gefüllten Zeilen der Tabelle.

Ich bin euch frü jede Hilfe dankbar!

 

Hallo!

Hab' ich das richtig verstanden?

	A	B	C
1	Einträge	Spalte 12	Füllen
2	Eintrag1	x	2
3	Eintrag2		1
4	Eintrag3		1
5	Eintrag4	x	2
6	Eintrag5	x	2
7	Eintrag6	x	2
8	Eintrag7		1
9	Eintrag8	x	2
10	Eintrag9		1
11
12
13

Zelle	Formel
C2	=WENN(A2="";"";WENN(B2="";1;2))
C3	=WENN(A3="";"";WENN(B3="";1;2))
C4	=WENN(A4="";"";WENN(B4="";1;2))
C5	=WENN(A5="";"";WENN(B5="";1;2))
C6	=WENN(A6="";"";WENN(B6="";1;2))
C7	=WENN(A7="";"";WENN(B7="";1;2))
C8	=WENN(A8="";"";WENN(B8="";1;2))
C9	=WENN(A9="";"";WENN(B9="";1;2))
C10	=WENN(A10="";"";WENN(B10="";1;2))
C11	=WENN(A11="";"";WENN(B11="";1;2))
C12	=WENN(A12="";"";WENN(B12="";1;2))
C13	=WENN(A13="";"";WENN(B13="";1;2))

 

Ja hast du. Jedoch brauche ich es als Makro und nicht als Funktion. Sorry, das habe ich nicht dazu geschrieben ... Asche auf mein Haupt! :-(

 

Hallo!

Also sowas?

Code:

Sub fieserfisch()
Dim Letzte As Long, Zeile As Long
Letzte = Cells(Rows.Count, 1).End(xlUp).Row
For Zeile = 2 To Letzte
    Cells(Zeile, 13) = IIf(Cells(Zeile, 12) = "", 2, 1)
Next
End Sub

 

Ja genau! Vielen Dank!!! Klappt bestens! :-D

 

gibt es eine möglichkeit eine bedingung zu erstellen, die die schriftfarbe eines Feldes abhängig vom wert färbt.

also z.b.
wenn wert > 0 färbe grün
wenn wert < 0 färbe rot

 

Hallo!

Ja, das geht mit der Bedingten Formatierung.
Ab Excel2007 zu finden im "Start"-Ribbon, davor im Menü "Format".

 

mmh... ich kriegs aber nich hin.

"bedingte formatierung" -> "neue Regel" -> "alle zellen basierend auf ihren werten formatieren"

dann bei "typ" auf "zahl", <0>0 akzeptiert er aber nicht, sondern schreibt immer ="<0"...

also was mach ich falsch, wie gehts???

 

Hallo!

Dann mach's doch über "Formel zur Ermittlung der zu formatierenden Zellen verwenden". Dort gibst du z.B. diese Formel ein:

Code:

=D5>0

(wenn D5 die aktive Zelle ist.)

 

habe 2 regeln angelegt, eine wenn >0, dann grün
die andere, wenn <0>0, aber nicht rot bei <0 (sondern schwarz, also unformatiert)

also wieso nicht??

 

Hallo!

Code:

<0>0

Schreibst du das genau so? Oder ist das ein Darstellungsproblem des Forums? Ich verstehe den Sinn dieser Syntax nicht.
Als zweite (rote) Regel sollte doch das hier reichen:

Code:

=D5<0

 

"manager für regeln zur bedingten formatierung"

die eine regel:
"Formel: =$D$30>0" | "Format" | "wird angewendet auf $D$30"

die andere:
"Formel: =$D$30<0" | "Format" | "wird angewendet auf $D$30"

beide als "formel zur ermittlung der zu formatierenden zellen verwenden"