Autor
|
Thema: bedingte Formatierung über VBA ändern (29558 mal gelesen)
|
pegu Mitglied Elektrotechniker
Beiträge: 941 Registriert: 27.04.2007
|
erstellt am: 15. Okt. 2010 12:11 <-- editieren / zitieren --> Unities abgeben:
|
Axel.Strasser Ehrenmitglied V.I.P. h.c. Selbstständig im Bereich PLM/CAx
Beiträge: 4107 Registriert: 12.03.2001 Früher war vieles gut, und das wäre es heute immer noch, wenn man die Finger davon gelassen hätte!
|
erstellt am: 15. Okt. 2010 12:45 <-- editieren / zitieren --> Unities abgeben: Nur für pegu
Ja, das einfachste ist das ganze immer über ein aufgezeichnetes Makro zu testen. Nachdem Du nicht sagst, was Du machen willst, würde eigentlich auch nur die Antwort "Ja" ausreichen z.B. Code: Sub Makro1() Range("B3").Select Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlLess, _ Formula1:="=7" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Font .Color = -16752384 .TintAndShade = 0 End With With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 13561798 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub
Axel ------------------ Inoffizielle deutsche CATIA Hilfeseite Netiquette von cad.de [Diese Nachricht wurde von Axel.Strasser am 15. Okt. 2010 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 15. Okt. 2010 13:15 <-- editieren / zitieren --> Unities abgeben: Nur für pegu
|
pegu Mitglied Elektrotechniker
Beiträge: 941 Registriert: 27.04.2007
|
erstellt am: 15. Okt. 2010 14:29 <-- editieren / zitieren --> Unities abgeben:
Hallo ihr zwei! Bisher ist es so, dass bei einem bestimmten Zelleninhalt sich die Zelle rot färbt. Dies wurde bisher über eine feste Einstellung im Dialog "Bedingte Formatierung" gemacht. Nun möchte ich aber genau den im Dialog eingetragenen Wert über VBA steuern. Bspw. war im Dialog der Ausdruck "Auswahl" fest hinterlegt. Nun soll sich aber die Zelle bei "Test" rot färben. Und den Wert Test will ich mittels VBA übergeben. Grüße Sebastian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Abschlussarbeit Hochintegration von EE-Komponenten im Bereich Batterie-Entwicklung ab Juni 2024 | Life is always about becoming? Im Leben geht es darum, sich auf eine Reise zu begeben, um die beste Version unseres zukünftigen Selbst zu werden. Während wir Neues entdecken, stellen wir uns Herausforderungen, meistern sie und wachsen über uns hinaus.
Bewerben Sie sich bei Mercedes-Benz und finden Sie den Aufgabenbereich, in dem Sie Ihre Talente individuell entfalten können. Dabei werden Sie von visionären Kolleginnen und Kollegen unterstützt, die Ihren Pioniergeist teilen.... | Anzeige ansehen | Elektrotechnik, Elektronik |
|
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 15. Okt. 2010 14:44 <-- editieren / zitieren --> Unities abgeben: Nur für pegu
Na, so wird's doch ETWAS klarer... Das zeichnet mir der Makrorecorder unter 2007 auf, wenn ich die Zelle C7, die den Text "Auswahl" enthält, bedingt formatiere: Code: Sub Makro1() ' ' Makro1 Makro '' Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=$C$7=""Auswahl""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub
Schnell und schmutzig: Mach' aus "Auswahl" ein "Test" und lass' den Code mal laufen - nicht ausführlich getestet:Code: Sub Makro2()Dim strWert As String strWert = "Test" Selection.FormatConditions.Delete Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _ "=$C$7=" & Chr(34) & strWert & Chr(34) ' & "Auswahl""" Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority With Selection.FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 End With Selection.FormatConditions(1).StopIfTrue = False End Sub
------------------ DIN1055.de | Lastannahmen für Anwender NEU: Foren zu DIN 1055 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |