Methode 1: Bedingte Formatierung basierend auf einer Bedingung anwenden<\/strong><\/span><\/p>\n Methode 2: Bedingte Formatierung basierend auf mehreren Bedingungen anwenden<\/strong><\/span><\/p>\n Methode 3: Entfernen Sie alle bedingten Formatierungsregeln aus Zellen<\/strong><\/span><\/p>\n Die folgenden Beispiele zeigen, wie Sie die einzelnen Methoden in der Praxis mit dem folgenden Datensatz in Excel anwenden:<\/span> <\/p>\n Mit dem folgenden Makro k\u00f6nnen wir Zellen im Bereich B2:B11<\/strong> , die einen Wert gr\u00f6\u00dfer als 30 haben, mit gr\u00fcnem Hintergrund, schwarzer Schrift und fettem Textstil f\u00fcllen:<\/span><\/p>\n Wenn wir dieses Makro ausf\u00fchren, erhalten wir die folgende Ausgabe:<\/span> <\/p>\n Beachten Sie, dass jede Zelle im Bereich B2:B11<\/strong> , die einen Wert gr\u00f6\u00dfer als 30 hat, einer bedingten Formatierung unterliegt.<\/span><\/p>\n Jede Zelle mit einem Wert kleiner oder gleich 30 wird einfach in Ruhe gelassen.<\/span><\/p>\n Wir k\u00f6nnen das folgende Makro verwenden, um eine bedingte Formatierung auf Zellen im Bereich A2:A11<\/strong> basierend auf ihrem Teamnamen anzuwenden:<\/span><\/p>\n Wenn wir dieses Makro ausf\u00fchren, erhalten wir die folgende Ausgabe:<\/span> <\/p>\n Beachten Sie, dass die Zellen mit den Teamnamen \u201eMavericks\u201c, \u201eBlazers\u201c und \u201eCeltics\u201c alle einer bestimmten bedingten Formatierung unterliegen.<\/span><\/p>\n Das einzige Team mit dem Namen \u201eLakers\u201c bleibt in Ruhe, da wir keine bedingten Formatierungsregeln f\u00fcr Zellen mit diesem Teamnamen angegeben haben.<\/span><\/p>\n Schlie\u00dflich k\u00f6nnen wir das folgende Makro verwenden, um alle bedingten Formatierungsregeln aus Zellen im aktuellen Blatt zu entfernen:<\/span><\/span><\/p>\n Wenn wir dieses Makro ausf\u00fchren, erhalten wir die folgende Ausgabe:<\/span> <\/p>\n Beachten Sie, dass s\u00e4mtliche bedingte Formatierungen aus allen Zellen entfernt wurden.<\/span><\/p>\n Die folgenden Tutorials erkl\u00e4ren, wie Sie andere h\u00e4ufige Aufgaben in VBA ausf\u00fchren:<\/span><\/p>\n VBA: So z\u00e4hlen Sie das Vorkommen von Zeichen in einer Zeichenfolge<\/a> Sie k\u00f6nnen in VBA die folgenden Methoden verwenden, um bedingte Formatierung auf Zellen anzuwenden: Methode 1: Bedingte Formatierung basierend auf einer Bedingung anwenden Sub ConditionalFormatOne() Dim rg As Range Dim cond As FormatCondition ’specify range to apply conditional formatting Set rg = Range(“ B2:B11 „) ‚clear any existing conditional formatting rg.FormatConditions.Delete ‚apply conditional formatting to […]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[11],"tags":[],"yoast_head":"\n Sub<\/span> ConditionalFormatOne()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set<\/span> rg = Range(\" B2:B11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'apply conditional formatting to any cell in range B2:B11 with value greater than 30\n<\/span>Set<\/span> cond = rg.FormatConditions.Add(xlCellValue, xlGreater, \" =30<\/span> \")\n\n'define conditional formatting to use\n<\/span>With<\/span> cond\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\n.Font.Bold = True<\/span>\nEnd With\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n Sub<\/span> ConditionalFormatMultiple()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond1 As<\/span> FormatCondition, cond2 As<\/span> FormatCondition, cond3 As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set rg = Range(\" A2:A11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'specify rules for conditional formatting\n<\/span>Set<\/span> cond1 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Mavericks<\/span> \u201d)\nSet<\/span> cond2 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Blazers<\/span> \u201d)\nSet<\/span> cond3 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Celtics<\/span> \u201d)\n\n'define conditional formatting to use\n<\/span>With<\/span> cond1\n.Interior.Color = vbBlue\n.Font.Color = vbWhite\n.Font.Italic = True\nEnd With<\/span>\n\nWith<\/span> cond2\n.Interior.Color = vbRed\n.Font.Color = vbWhite\n.Font.Bold = True\nEnd With<\/span>\n\nWith<\/span> cond3\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\nEnd With<\/span>\n\nEnd Sub\n<\/span><\/strong><\/span><\/pre>\n Sub<\/span> RemoveConditionalFormatting()\nActiveSheet.Cells.FormatConditions.Delete\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/cv11.jpg\")
<\/p>\n Beispiel 1: Bedingte Formatierung basierend auf einer Bedingung anwenden<\/strong><\/span><\/h2>\n
Sub<\/span> ConditionalFormatOne()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set<\/span> rg = Range(\" B2:B11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'apply conditional formatting to any cell in range B2:B11 with value greater than 30\n<\/span>Set<\/span> cond = rg.FormatConditions.Add(xlCellValue, xlGreater, \" =30<\/span> \")\n\n'define conditional formatting to use\n<\/span>With<\/span> cond\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\n.Font.Bold = True\nEnd With<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/cv12.jpg\")
<\/p>\n Beispiel 2: Bedingte Formatierung basierend auf mehreren Bedingungen anwenden<\/strong><\/span><\/h2>\n
Sub<\/span> ConditionalFormatMultiple()\nDim<\/span> rg As<\/span> Range\nDim<\/span> cond1 As<\/span> FormatCondition, cond2 As<\/span> FormatCondition, cond3 As<\/span> FormatCondition\n\n'specify range to apply conditional formatting\n<\/span>Set rg = Range(\" A2:A11<\/span> \")\n\n'clear any existing conditional formatting\n<\/span>rg.FormatConditions.Delete\n\n'specify rules for conditional formatting\n<\/span>Set<\/span> cond1 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Mavericks<\/span> \u201d)\nSet<\/span> cond2 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Blazers<\/span> \u201d)\nSet<\/span> cond3 = rg.FormatConditions.Add(xlCellValue, xlEqual, \u201c Celtics<\/span> \u201d)\n\n'define conditional formatting to use\n<\/span>With<\/span> cond1\n.Interior.Color = vbBlue\n.Font.Color = vbWhite\n.Font.Italic = True\nEnd With<\/span>\n\nWith<\/span> cond2\n.Interior.Color = vbRed\n.Font.Color = vbWhite\n.Font.Bold = True\nEnd With<\/span>\n\nWith<\/span> cond3\n.Interior.Color = vbGreen\n.Font.Color = vbBlack\nEnd With<\/span>\n\nEnd Sub<\/span><\/strong><\/span><\/pre>\n![\"\"](\"https:\/\/statorials.org\/wp-content\/uploads\/2023\/08\/cv13.jpg\")
<\/p>\n Beispiel 3: Entfernen Sie alle bedingten Formatierungsregeln aus Zellen<\/strong><\/span><\/h2>\n
Sub<\/span> RemoveConditionalFormatting()\nActiveSheet.Cells.FormatConditions.Delete\nEnd Sub<\/span><\/strong><\/span><\/pre>\n<\/p>\n Zus\u00e4tzliche Ressourcen<\/strong><\/span><\/h2>\n
VBA: So \u00fcberpr\u00fcfen Sie, ob eine Zeichenfolge eine andere Zeichenfolge enth\u00e4lt<\/a>
VBA: eine Formel f\u00fcr \u201eWenn\u201c die Zelle enth\u00e4lt\u201c<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"