Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1104to1108
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

makro wenn Wert 0 schriftfarbe in weiss

makro wenn Wert 0 schriftfarbe in weiss
walter
Hallo und guten Abend,
ich habe eine Tabelle, die sich aus Spalten d-G zusammensetzt. In spalte d steht die jeweilige zeilenbeschriftung. In e-g stehen werte. Nun möchte ich gerne eine Makrolösung, die die komplette Tabelle durchsucht und jeweilige zeilen, bei denen die summe von e-g = Null ist, die jeweilige zzeile (aber nur spalten e-g mit der schriftfarbe weiß, versieht.
wer kann helfen.
mit Dank + gru
walter

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

Betreff
Benutzer
Anzeige
AW: makro wenn Wert 0 schriftfarbe in weiss
26.09.2009 23:14:34
Gerd
Hallo Walter!
Sub tt()
Dim Zelle As Range
For Each Zelle In Application.Intersect(UsedRange, Columns(5))
If Application.WorksheetFunction.Sum(Zelle.Resize(1, 4)) = 0 Then
Zelle.Resize(1, 4).Font.ColorIndex = 2
End If
Next
End Sub
Gruß Gerd
Warum dieser Aufwand? Markiere doch einfach...
26.09.2009 23:38:08
Luc:-?
...alles, Walter,
und formatiere benutzerdefiniert als # ##0,00;-# ##0,00;;@ oder wie du willst — nur zwischen 2. und 3.Semikolon steht nichts, dann wird bei 0 nichts angezeigt.
Gruß+schöWaSo, Luc :-?
Besser informiert mit...
Anzeige
AW: Warum dieser Aufwand? Markiere doch einfach...
27.09.2009 00:14:56
walter
Hallo Gerd,
danke, genau dies suchte ich
Hallo Luc,
gerechtfertigte Frage, aber da meine Jungs in Teilbereichen zu faul und in Teilbereichen weder das Interesse daran haben Ihre Kenntnisse zu erweiteren, baue ich dies lieber in nem existierenden Makro mit ein und habe dann (ohne mich laufend zu ärgern) das gewünschte Ergebnis :-))
Trotzdem war auch dieser Hinweis hilfreich, da auch ich die Geschichte mit den 2 Semikolon nicht kannte - hab halt auch noch viel zu lernen :-)))
Danke + Gruß an Beide
Walter
Danke! Übrigens kann das auch per Makro gesetzt...
28.09.2009 03:27:07
Luc:-?
...wdn, Walter...
Range(...).NumberFormatLocal = "# ##0,00;-# ##0,00;;@" bzw Range(...).NumberFormat = "#,##0.00;-#,##0.00;;@"
Gruß Luc :-?
Anzeige
Danke nochmals; wird getestet :-))) owt
28.09.2009 21:34:57
walter
.

310 Forumthreads zu ähnlichen Themen


Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
Anzeige

Nabend alle miteinander
In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells...

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
Anzeige

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...

Guten Morgen!
Ich habe z.B. in der Zelle A1 den Wert 5 stehen. Wird dieser Wert z.B. um die Zahl 3 verringert, dann soll der vorhandene Wert in der Zelle B1 um die Zahl 3 erhöht werden. Wie würde hier bitte eine Formellösung dafür lauten?
Danke
Josef

Folgendes Problem:
In der Spalte A möchte ich wissen, wieviel unterschiedliche Werte es gibt.
Wer kann mir helfen.
Danke
Alex
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige