Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
400to404
400to404
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle farbig durch Makro?

Zelle farbig durch Makro?
peter
Hallo,
Habe folgendes Problem,
per Makro sollte folgendes passieren:
Wenn in der Zell A1 etwas steht soll die Zelle I5:K5 schwarz formatiert werden.
Hat jemand dafür eine Lösung
Peter
PS: die Zellen I5:K5 sind schon bdingt formatiert, also auf diese Weise geht es nicht mehr

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zelle farbig durch Makro?
Bernd
Hallo Peter,
meinst du so...


  
 ABCDEFGHIJK
11          
2           
3           
4           
5           


Bedingte Formatierungen der Tabelle
ZelleNr.: / BedingungFormat
I51. / Formel ist =$A$1>0Abc
J51. / Formel ist =$A$1>0Abc
K51. / Formel ist =$A$1>0Abc
Anzeige
oder so, sagt der Makrorekorder....
Bernd
Hallo Peter,
sagt der Makrorekorder (das in den Größer/Kleinerzeichen, bitte weglassen!!!!)
&ltpre&gt
Sub test()
'
' test Makro
' Makro am 22.03.2004 von Bernd Kiehl aufgezeichnet
'
'
ActiveCell.FormulaR1C1 = "1"
Range("I5:K5").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A$1&gt0"
Selection.FormatConditions(1).Interior.ColorIndex = 1
Range("A1").Select
End Sub&lt/pre&gt

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige