Office: (Office 2007) Bedingte Formatierung fetter Rahmen wenn Zelleninhalt *,9

Hallo Leute,

dass bedingte Formatierung fetter Rahmen nur mit VBA geht, habe ich schon herausgefunden. Leider hab ich keinen Plan von VBA. Ich möchte folgendes erreichen: Wenn das Blatt neu berechnet wird, soll jede Zelle die eine 9 auf der ersten Nachkommastelle hat mit einem fetten roten Rahmen versehen werden.

Ich habe es geschafft, allen .9 Zellen über bedingte Formatierung einen roten Rahmen zu verpassen. Aber da er so dünn ist, sieht man ihn nicht.

"Makro aufreichnen -> Suchen: alle .9 -> alle markieren -> Rahmen einstellen" habe ich auch schon versucht. Aber er scheint das suchen und alle markieren nicht aufzuzeichnen.

Warum ".9" als Kriterium? Ich würde gerne zwei informationen in einem Wert unterbringen. Die erste Information ist der Zellenwert, der über bedingte Formatierung farblich visualisiert wird. Die zweite Information baue ich in den Wert ein, indem ich ihn auf eine glatte Zahl runde und unter Erfüllung einer Vorraussetzung 0.9 addiere.

Wäre schön, wenn Ihr mir helfen könntet.

Viele Grüße

:)

 

Code:

 

Hi Hajo,

vielen Dank für Deine schnelle Antwort. Ich habe den Code für das Arbeitsblatt eingefügt aber es passiert nichts. Leider kenne ich mich mit VBA gar nicht aus, kann also nicht erkennen, wie ich den Code auf meine Bedingung anpassen muss, damit es funktioniert. Es scheint so, als ob mir eine Nachricht ausgegeben wird bei Zelleninhalt .9. - passiert aber nicht. Wie ich es aber so umschreibe, dass die Zelle einen fetten roten Rahmen erhält, weiss ich nicht. Könntest Du etwas genauer sein?

 

Vielleicht liesse sich das Problem auch lösen, indem ich alle Rahmen vorher fett und rot formatiere und dann bei nicht Erfüllung der Bedingung einen dünnen schwarzen Rahmen einbaue.

Leider scheint der manuell formatierte Rahmen die bedingte Formatierung zu dominieren. Man sieht denn dünnen schwarzen Rahmen erst nach entfernen der manuellen Formatierung.

 

Du hast geschrieben das Du schon eine Fetten Rahmen gemacht hast.
Die Farbe bekommst Du mit dem Makrorecorder raus. Falls es automatisch laufen soll wäre
Private Sub Worksheet_Calculate()
kein schlechter ansatz.

 

Für den Macrorecorder müsste ich aber alle Zelle mit .9 suchen lassen und dann den Rahmen applizieren. Das Suchen schein er aber irgendwie nicht aufzuzeichnen. Was mache ich falsch?

 

den Code für das prüfen hatte ich doch vorgeschlagen. Der scheint Dir aber nich zuzusagen.

 

Hajo, ich fühle mich geehrt, aber Du überschätzt meine Fähigkeiten. Ich bin Biologe und versuche Daten in Excel auszuwerten. Von VBA hab ich heute zum ersten Mal gehört. Ich kann den Code nicht so umschreiben, dass er mir einen Rahmen macht und keine Messagebox.

 

mir ist der Code zu aufwendig für 1.48.476*16.384 Zellen.
Der Code für das Calculate Ereignis ist mir zu aufwendig.
Vielleicht findest Du jemand der Dir den Code schreibt.

 

Hallo Joe

Ich hab mal was versucht.

Tabelle1

	A	B	C	D
1	0,55040287	0,80042692	0,92245408	0,07887774
2	0,92243596	0,06188609	0,84283949	0,2698098
3	0,97011455	0,62634098	0,32362982	0,70049667
4	0,17089239	0,98274035	0,53637624	0,39055102
5	auch text	0,65004249	0,64496962	0,30472476
6	0,43718048	Text	0,41277814	0,61309586
7	0,59006421	0,73409342	0,34129644	0,38677334
8	0,17854746	ökjöij,9	0,76762935	0,61301413
9	0,29455654	0,97859411	0,77935607	0,47877132
10	0,914444	0,96728785	0,81656727	0,08728625
11	0,43244893	0,24628226	0,31505024	0,70186422
12	0,72981032	0,10263689	0,59522619	0,36226222
13	0,25597495	0,03786138	0,32510904	0,16997823
14	0,50038515	0,79674804	0,82600001	0,06546101
15	0,40060338	0,74357007	0,95199935	0,34800932
16	0,6609744	0,5805062	0,62796241	0,31858486
17	0,19250885	0,77508892	0,03002617	0,13811752
18	0,47569886	0,07077395	0,09161839	0,35672663
19	0,29870354	0,15981214	0,48998719	0,20542018
20	0,11763225	0,20933893	0,13421101	0,10915694
21	0,79040098	0,26580281	0,68025702	0,26073657
22	0,80468545	0,3876736	0,4272972	0,4788599
23	0,70866497	0,06135885	0,12459997	0,31104215
24	0,88117997	0,69905577	0,78614759	0,50983937
25	0,8370125	0,79683089	0,6131234	0,4763825
26	0,45423407	0,35938223	0,24179687	0,30653269

Zelle	Formel
A1	=ZUFALLSZAHL()

Excel Tabellen im Web darstellen >>