PDA

Vollständige Version anzeigen : Bedingte Formatierung fetter Rahmen wenn Zelleninhalt *,9


Müder Joe
02.04.2012, 15:41
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

Hajo_Zi
02.04.2012, 17:14
Option Explicit

Sub Test()
Dim DoWert As Double
DoWert = 1.956
If Mid(DoWert, InStr(DoWert, ",") + 1, 1) = 9 Then
MsgBox "Ja"
End If
DoWert = 1.356
If Mid(DoWert, InStr(DoWert, ",") + 1, 1) = 9 Then
MsgBox "Ja"
End If
End Sub


<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm" onclick="window.open(this.href);return false"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Müder Joe
02.04.2012, 17:34
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?

Müder Joe
02.04.2012, 17:37
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.

Hajo_Zi
02.04.2012, 17:38
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.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Müder Joe
02.04.2012, 17:40
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?

Hajo_Zi
02.04.2012, 18:14
den Code für das prüfen hatte ich doch vorgeschlagen. Der scheint Dir aber nich zuzusagen.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Müder Joe
02.04.2012, 18:23
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.

Hajo_Zi
02.04.2012, 18:28
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.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

ransi
02.04.2012, 18:54
Hallo Joe

Ich hab mal was versucht.

<b>Tabelle1</b><br /><br /><table border="1" cellspacing="0" cellpadding="0" style="font-family:Calibri,Arial; font-size:11pt; background-color:#ffffff; padding-left:2pt; padding-right:2pt; "> <colgroup><col style="width:30px; " /><col style="width:80px;" /><col style="width:80px;" /><col style="width:80px;" /><col style="width:80px;" /></colgroup><tr style="background-color:#cacaca; text-align:center;font-size:8pt; "><td >&nbsp;</td><td >A</td><td >B</td><td >C</td><td >D</td></tr><tr style="height:20px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >1</td><td style="text-align:right; border-bottom-style:solid; border-bottom-width:3px; border-bottom-color:#ff0000; ">0,55040287</td><td style="text-align:right; border-right-style:solid; border-right-width:3px; border-right-color:#ff0000; ">0,80042692</td><td style="text-align:right; border-top-style:solid; border-right-style:solid; border-bottom-style:solid; border-top-width:3px; border-right-width:3px; border-bottom-width:3px; border-top-color:#ff0000; border-right-color:#ff0000; border-bottom-color:#ff0000; ">0,92245408</td><td style="text-align:right; ">0,07887774</td></tr><tr style="height:20px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >2</td><td style="text-align:right; border-right-style:solid; border-bottom-style:solid; border-left-style:solid; border-right-width:3px; border-bottom-width:3px; border-left-width:3px; border-right-color:#ff0000; border-bottom-color:#ff0000; border-left-color:#ff0000; ">0,92243596</td><td style="text-align:right; ">0,06188609</td><td style="text-align:right; ">0,84283949</td><td style="text-align:right; ">0,2698098</td></tr><tr style="height:20px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >3</td><td style="text-align:right; border-right-style:solid; border-bottom-style:solid; border-left-style:solid; border-right-width:3px; border-bottom-width:3px; border-left-width:3px; border-right-color:#ff0000; border-bottom-color:#ff0000; border-left-color:#ff0000; ">0,97011455</td><td style="text-align:right; border-bottom-style:solid; border-bottom-width:3px; border-bottom-color:#ff0000; ">0,62634098</td><td style="text-align:right; ">0,32362982</td><td style="text-align:right; ">0,70049667</td></tr><tr style="height:20px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >4</td><td style="text-align:right; border-right-style:solid; border-right-width:3px; border-right-color:#ff0000; ">0,17089239</td><td style="text-align:right; border-right-style:solid; border-bottom-style:solid; border-right-width:3px; border-bottom-width:3px; border-right-color:#ff0000; border-bottom-color:#ff0000; ">0,98274035</td><td style="text-align:right; ">0,53637624</td><td style="text-align:right; ">0,39055102</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >5</td><td >auch text</td><td style="text-align:right; ">0,65004249</td><td style="text-align:right; ">0,64496962</td><td style="text-align:right; ">0,30472476</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >6</td><td style="text-align:right; ">0,43718048</td><td >Text</td><td style="text-align:right; ">0,41277814</td><td style="text-align:right; ">0,61309586</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >7</td><td style="text-align:right; ">0,59006421</td><td style="text-align:right; ">0,73409342</td><td style="text-align:right; ">0,34129644</td><td style="text-align:right; ">0,38677334</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >8</td><td style="text-align:right; ">0,17854746</td><td style=" border-bottom-style:solid; border-bottom-width:3px; border-bottom-color:#ff0000; ">&ouml;kj&ouml;ij,9</td><td style="text-align:right; ">0,76762935</td><td style="text-align:right; ">0,61301413</td></tr><tr style="height:20px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >9</td><td style="text-align:right; border-right-style:solid; border-bottom-style:solid; border-right-width:3px; border-bottom-width:3px; border-right-color:#ff0000; border-bottom-color:#ff0000; ">0,29455654</td><td style="text-align:right; border-right-style:solid; border-bottom-style:solid; border-right-width:3px; border-bottom-width:3px; border-right-color:#ff0000; border-bottom-color:#ff0000; ">0,97859411</td><td style="text-align:right; ">0,77935607</td><td style="text-align:right; ">0,47877132</td></tr><tr style="height:20px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >10</td><td style="text-align:right; border-right-style:solid; border-bottom-style:solid; border-left-style:solid; border-right-width:3px; border-bottom-width:3px; border-left-width:3px; border-right-color:#ff0000; border-bottom-color:#ff0000; border-left-color:#ff0000; ">0,914444</td><td style="text-align:right; border-right-style:solid; border-bottom-style:solid; border-right-width:3px; border-bottom-width:3px; border-right-color:#ff0000; border-bottom-color:#ff0000; ">0,96728785</td><td style="text-align:right; ">0,81656727</td><td style="text-align:right; ">0,08728625</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >11</td><td style="text-align:right; ">0,43244893</td><td style="text-align:right; ">0,24628226</td><td style="text-align:right; ">0,31505024</td><td style="text-align:right; ">0,70186422</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >12</td><td style="text-align:right; ">0,72981032</td><td style="text-align:right; ">0,10263689</td><td style="text-align:right; ">0,59522619</td><td style="text-align:right; ">0,36226222</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >13</td><td style="text-align:right; ">0,25597495</td><td style="text-align:right; ">0,03786138</td><td style="text-align:right; ">0,32510904</td><td style="text-align:right; ">0,16997823</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >14</td><td style="text-align:right; ">0,50038515</td><td style="text-align:right; ">0,79674804</td><td style="text-align:right; border-bottom-style:solid; border-bottom-width:3px; border-bottom-color:#ff0000; ">0,82600001</td><td style="text-align:right; ">0,06546101</td></tr><tr style="height:20px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >15</td><td style="text-align:right; ">0,40060338</td><td style="text-align:right; border-right-style:solid; border-right-width:3px; border-right-color:#ff0000; ">0,74357007</td><td style="text-align:right; border-right-style:solid; border-bottom-style:solid; border-right-width:3px; border-bottom-width:3px; border-right-color:#ff0000; border-bottom-color:#ff0000; ">0,95199935</td><td style="text-align:right; ">0,34800932</td></tr><tr style="height:19px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >16</td><td style="text-align:right; ">0,6609744</td><td style="text-align:right; ">0,5805062</td><td style="text-align:right; ">0,62796241</td><td style="text-align:right; ">0,31858486</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >17</td><td style="text-align:right; ">0,19250885</td><td style="text-align:right; ">0,77508892</td><td style="text-align:right; ">0,03002617</td><td style="text-align:right; ">0,13811752</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >18</td><td style="text-align:right; ">0,47569886</td><td style="text-align:right; ">0,07077395</td><td style="text-align:right; ">0,09161839</td><td style="text-align:right; ">0,35672663</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >19</td><td style="text-align:right; ">0,29870354</td><td style="text-align:right; ">0,15981214</td><td style="text-align:right; ">0,48998719</td><td style="text-align:right; ">0,20542018</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >20</td><td style="text-align:right; ">0,11763225</td><td style="text-align:right; ">0,20933893</td><td style="text-align:right; ">0,13421101</td><td style="text-align:right; ">0,10915694</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >21</td><td style="text-align:right; ">0,79040098</td><td style="text-align:right; ">0,26580281</td><td style="text-align:right; ">0,68025702</td><td style="text-align:right; ">0,26073657</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >22</td><td style="text-align:right; ">0,80468545</td><td style="text-align:right; ">0,3876736</td><td style="text-align:right; ">0,4272972</td><td style="text-align:right; ">0,4788599</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >23</td><td style="text-align:right; ">0,70866497</td><td style="text-align:right; ">0,06135885</td><td style="text-align:right; ">0,12459997</td><td style="text-align:right; ">0,31104215</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >24</td><td style="text-align:right; ">0,88117997</td><td style="text-align:right; ">0,69905577</td><td style="text-align:right; ">0,78614759</td><td style="text-align:right; ">0,50983937</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >25</td><td style="text-align:right; ">0,8370125</td><td style="text-align:right; ">0,79683089</td><td style="text-align:right; ">0,6131234</td><td style="text-align:right; ">0,4763825</td></tr><tr style="height:18px ;" ><td style="font-size:8pt; background-color:#cacaca; text-align:center; " >26</td><td style="text-align:right; ">0,45423407</td><td style="text-align:right; ">0,35938223</td><td style="text-align:right; ">0,24179687</td><td style="text-align:right; ">0,30653269</td></tr></table><br /><table style="font-family:Arial; font-size:10pt; border-style: groove ;border-color:#00ff00;background-color:#fffcf9; color:#000000; "><tr><td ><b>Formeln der Tabelle</b></td></tr><tr><td ><table border = "1" cellspacing="0" cellpadding="2" style="font-family:Arial; font-size:9pt;"><tr style="background-color:#cacaca; font-size:10pt;"><td >Zelle</td><td >Formel</td></tr><tr><td >A1</td><td >=ZUFALLSZAHL()</td></tr></table></td></tr></table> <br /><br /><span style="font-family:Arial; font-size:9pt; font-weight:bold;background-color:#ffffff; color:#000000; ">Excel Tabellen im Web darstellen &gt;&gt; </span><a style ="font-family:Arial; font-size:9pt; color:#fcf507; background-color:#800040; font-weight:bold;" href="http://www.excel-jeanie-html.de" target="_blank"> Excel Jeanie HTML 4 </a>




Brauchst du wirklich alle Zellen im Tabellenblatt ?
Ich habs mal auf A1:D50 besachränkt.
<nobr><span style="font-family:Courier New,Arial; font-size:9pt ;" ><span style="color:#008000"; >' **********************************************************************</span><br /><span style="color:#008000"; >' Modul: Tabelle1 Typ: Element der Mappe(Sheet, Workbook, ...)</span><br /><span style="color:#008000"; >' **********************************************************************</span><br /><br /><span style="color:#000080"; >Option</span> <span style="color:#000080"; >Explicit</span><br /><br /><br /><br /><b><span style="color:#000080"; >Private</span> <span style="color:#000080"; >Sub</span> Worksheet_Calculate()</b><br /><span style="color:#000080"; >Dim</span> Zelle <span style="color:#000080"; >As</span> Range<br /><span style="color:#000080"; >Dim</span> D <span style="color:#000080"; >As</span> <span style="color:#000080"; >Double</span><br /><span style="color:#000080"; >For</span> Each Zelle In Range(<span style="color:#800000"; >"A1:D50"</span>) <span style="color:#008000"; >'Anpassen</span><br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >With</span> Zelle<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >If</span> IsNumeric(.Value) <span style="color:#000080"; >Then</span><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;D = .Value - Int(.Value) <span style="color:#008000"; >'Zahl-Ganzzahl(zahl)=alles hinter dem Komma</span><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >If</span> Int(D * 10) = 9 <span style="color:#000080"; >Then</span> <span style="color:#008000"; >'Das *10 und davon wieder die Ganzzahl=9 dann</span><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.BorderAround , xlThick, 3<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else:<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Borders.LineStyle = 0<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >End</span> <span style="color:#000080"; >If</span><br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Else:<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;.Borders.LineStyle = 0<br />&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >End</span> <span style="color:#000080"; >If</span><br />&nbsp;&nbsp;&nbsp;&nbsp;<span style="color:#000080"; >End</span> <span style="color:#000080"; >With</span><br /><span style="color:#000080"; >Next</span><br /><b><span style="color:#000080"; >End</span> <span style="color:#000080"; >Sub</span></b><br /></span></nobr>

Wie fügt man ein Makro in das Codefenster der Tabelle ein?
http://www.online-excel.de/excel/singsel_vba.php?f=44#s4

ransi