Office: Zellenfarbe ändern

Hallo,

ich möchte die Farbe einer Zelle mit Hilfe einer Funktion festlegen.

Code:

Was ist an dem Code falsch. Zelle_Start enthält eine Zahl und Zelle_Ende enthält auch eine Zahl. Die Zahl aus Zelle_KW muss zwischen den start und ende liegen, oder gleich sein. Dann soll sich die Farbe ändern. Es passiert nichts. Warum?

:)

 

Hallo homi,

Probiere es mal so dan sollte es gehen

Du musst die Zellen mit Range ansprechen

mfg Peter


Function Markieren_KW(Zelle As Excel.Range, Zelle_Start As Excel.Range, Zelle_Ende As Excel.Range, Zelle_KW As Excel.Range)

Application.Volatile
' If Zelle_Start.Value = Zelle_KW.Value Then

' Zelle.Interior.ColorIndex = 1
If Range("Zelle_Start") = Range("Zelle_KW") Then

Range("Zelle").Interior.ColorIndex = 1

End If

End Function

 

Moin, homi,

meines Wissens können aus einer Funktion keine Veränderungen des Aussehens einer anderen Zelle vorgenommen werden. Folgender Umweg lässt sich über die Bedingte Formatierung wählen:

	A	B	C	D	E	F
1	KW		Start	Ende		Wert
2	44		40	46		45
3	45		40	46		45
4	46		40	46		45
5	47		40	46		45
6	48		40	46		45

A2 : =KALENDERWOCHE(HEUTE()+(ZEILE()-2)*7)
A3 : =KALENDERWOCHE(HEUTE()+(ZEILE()-2)*7)
A4 : =KALENDERWOCHE(HEUTE()+(ZEILE()-2)*7)
A5 : =KALENDERWOCHE(HEUTE()+(ZEILE()-2)*7)
A6 : =KALENDERWOCHE(HEUTE()+(ZEILE()-2)*7)

Zelle	Nr.: / Bedingung	Format
A2	1. / Formel ist =Markieren_KW($C2;$D2;$A2)=WAHR	Abc
B2	1. / Formel ist =Markieren_KW($C2;$D2;$A2)=WAHR	Abc
C2	1. / Formel ist =Markieren_KW($C2;$D2;$A2)=WAHR	Abc
D2	1. / Formel ist =Markieren_KW($C2;$D2;$A2)=WAHR	Abc
E2	1. / Formel ist =Markieren_KW($C2;$D2;$A2)=WAHR	Abc
F2	1. / Formel ist =Markieren_KW($C2;$D2;$A2)=WAHR	Abc
A3	1. / Formel ist =Markieren_KW($C3;$D3;$A3)=WAHR	Abc
B3	1. / Formel ist =Markieren_KW($C3;$D3;$A3)=WAHR	Abc
C3	1. / Formel ist =Markieren_KW($C3;$D3;$A3)=WAHR	Abc
D3	1. / Formel ist =Markieren_KW($C3;$D3;$A3)=WAHR	Abc
E3	1. / Formel ist =Markieren_KW($C3;$D3;$A3)=WAHR	Abc
F3	1. / Formel ist =Markieren_KW($C3;$D3;$A3)=WAHR	Abc
A4	1. / Formel ist =Markieren_KW($C4;$D4;$A4)=WAHR	Abc
B4	1. / Formel ist =Markieren_KW($C4;$D4;$A4)=WAHR	Abc
C4	1. / Formel ist =Markieren_KW($C4;$D4;$A4)=WAHR	Abc
D4	1. / Formel ist =Markieren_KW($C4;$D4;$A4)=WAHR	Abc
E4	1. / Formel ist =Markieren_KW($C4;$D4;$A4)=WAHR	Abc
F4	1. / Formel ist =Markieren_KW($C4;$D4;$A4)=WAHR	Abc
A5	1. / Formel ist =Markieren_KW($C5;$D5;$A5)=WAHR	Abc
B5	1. / Formel ist =Markieren_KW($C5;$D5;$A5)=WAHR	Abc
C5	1. / Formel ist =Markieren_KW($C5;$D5;$A5)=WAHR	Abc
D5	1. / Formel ist =Markieren_KW($C5;$D5;$A5)=WAHR	Abc
E5	1. / Formel ist =Markieren_KW($C5;$D5;$A5)=WAHR	Abc
F5	1. / Formel ist =Markieren_KW($C5;$D5;$A5)=WAHR	Abc
A6	1. / Formel ist =Markieren_KW($C6;$D6;$A6)=WAHR	Abc
B6	1. / Formel ist =Markieren_KW($C6;$D6;$A6)=WAHR	Abc
C6	1. / Formel ist =Markieren_KW($C6;$D6;$A6)=WAHR	Abc
D6	1. / Formel ist =Markieren_KW($C6;$D6;$A6)=WAHR	Abc
E6	1. / Formel ist =Markieren_KW($C6;$D6;$A6)=WAHR	Abc
F6	1. / Formel ist =Markieren_KW($C6;$D6;$A6)=WAHR	Abc

Code:

 

Hallo,

die Variante von Peter geht leider nicht.

Mit der bedingten Formatierung komm ich nicht so ganz klar. Kann ich nicht grundsätzlich sagen, wenn die Formel(egal wo) wahr ist, dann mach diese Zelle blau?

 

Das Problem hab ich jetzt mit bedingter Formatierung des Wertes Wahr und Falsch gelöst. Aber es hat sich ein neues Problem eingeschlichen. Wenn ich jetzt über die KW 52 hinaus gehe, dann fängt es ja bei 1 an. Doch meine Berechnung sieht das ja leider nicht vor. Gibt es dann einfache Datum funktionen die so etwas können?
Die Funktion Kalenderwoche gibt es bei mir leider nicht.

 

Hallo Homi,

das mit der Function habe ich nicht hinbekommen,

ich hänge dir mal eine Test Datei an ich hoffe Du meinst es in etwa so

Du kannst das auch mit dem code machen der muss hinter das Tabellenblatt eingesetzt werden

mfg Peter

Code :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Sub Markieren_KW1()

Application.Volatile
If Range("Zelle_Start") = Range("Zelle_KW") Then

Range("Zelle").Interior.ColorIndex = 1
Else
Range("Zelle").Interior.ColorIndex = 0
End If


End Sub

 

Hallo, Peter,

Application.Volatile macht ausschließlich in Funktionen Sinn und ist üebrflüssig. Das Problem der ersten Kalenderwoche wird durch den Code nicht gelöst. Dazu müßte dann ein Bezug auf das Jahr vorgenommen werden (oder ein Datum).

homi:
Sieh Dir doch einmal den Beitrag von Hajo_Zi zu diesem Themenbereich oben im Excel-Bereich an. Ansonsten solltest Du das Anaylyse-AddIn über Extras / Addin-Manager einbinden.

Gruß
LS