Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bedingte Formatierung mit Textbaustein

Bedingte Formatierung mit Textbaustein
03.04.2006 11:14:37
Gottscholl
Hallo Excelforum,
habe ein Makro mit mehr als 3 bedingten Formatierungen.
Ist es möglich das Makro so umzuschreiben das, zb nur ein teil des textes erkannt wird und die Formatirung trotzdem erfolgt.
Stelle mir das ungefähr so vor:
DEMO-000000
Formatierung sollte jetzt erfolgen nur bei DEMO der rest soll variabel sein.
hier mal das Makro:
Option Explicit
Dim Bereich1 As Range

Private Sub Worksheet_Change(ByVal Target As Range)
Dim actCell As Range
Dim Bereich2 As Range
Set Bereich2 = Range("J10:AN51")
Application.ScreenUpdating = False
For Each actCell In Bereich1
If Not Intersect(actCell, Bereich2) Is Nothing Then
Select Case actCell
Case "": actCell.Interior.ColorIndex = 0
Case "K": actCell.Interior.ColorIndex = 3
Case "Z": actCell.Interior.ColorIndex = 4
Case "SE": actCell.Interior.ColorIndex = 16
Case "PM": actCell.Interior.ColorIndex = 6
Case "MO": actCell.Interior.ColorIndex = 7
Case "U": actCell.Interior.ColorIndex = 8
Case "S": actCell.Interior.ColorIndex = 33
Case "BL": actCell.Interior.ColorIndex = 43
End Select
End If
Next
Application.ScreenUpdating = True
End Sub


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Bereich1 = Selection
End Sub

vorab schon mal schönen dank
Gruß Patric

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

Betreff
Datum
Anwender
Anzeige
AW: Bedingte Formatierung mit Textbaustein
03.04.2006 11:36:46
Peter
Hallo Patric,
z. B. so - siehe das InStr-Statement

Private Sub Worksheet_Change(ByVal Target As Range)
Dim actCell As Range
Dim Bereich2 As Range
Set Bereich2 = Range("J10:AN51")
Application.ScreenUpdating = False
For Each actCell In Bereich2
If Not Intersect(actCell, Bereich2) Is Nothing Then
Select Case actCell
Case "": actCell.Interior.ColorIndex = 0
Case "K": actCell.Interior.ColorIndex = 3
Case "Z": actCell.Interior.ColorIndex = 4
Case "SE": actCell.Interior.ColorIndex = 16
Case "PM": actCell.Interior.ColorIndex = 6
Case "MO": actCell.Interior.ColorIndex = 7
Case "U": actCell.Interior.ColorIndex = 8
Case "S": actCell.Interior.ColorIndex = 33
Case "BL": actCell.Interior.ColorIndex = 43
End Select
If InStr(UCase(actCell), "DEMO") Then actCell.Interior.ColorIndex = 45
End If
Next
Application.ScreenUpdating = True
End Sub

Viele Grüße Peter
Eine kurze Nachricht, ob es läuft, wäre nett - danke.
Anzeige
AW: Bedingte Formatierung mit Textbaustein
03.04.2006 11:54:03
Gottscholl
Hallo Peter,
danke klappt wunderbar.
mfg Patric

336 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige