nur bedingte Formatierung kopieren

Hallo,
ich suche jetzt schon eine weile nach einer Lösung für dieses Problem:
Wir haben viele Tabellen, die manuell grau-weiß-grau-weiß eingefärbt sind.
Diese wollen wir jetzt mit einer bedingten Formatierung hinterlegen, da immer wieder Zeilen hinzukommen.
Ich möchte vermeiden, in jeder Tabelle einzeln die bedingte Formatierung eingeben zu müssen.
Jedoch wenn wir die bedingte Formatierung kopieren, werden auch alle anderen Formateinstellungen überschrieben. Das soll aber nicht. Fett/Normal, Schriftgröße soll in den Tabellen erhalten bleiben und ist jeweils unterschiedlich.
Gibt es eine Möglichkeit, nur die bedingte Formatierung zu kopieren? Ich weiß, mit STRG+ALT+C kann ich das Dialogfenster öffnen aber wenn ich dort alle zusammenführenden bedingten formate wähle, wird dennoch Schriftgröße, Fett etc mitkopiert.
Vielen Dank schon jetzt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub setze_Bedingte_Formatierung() Dim dl As Long For dl = 1 To ThisWorkbook.Sheets.Count 'hier könnten Bedingungen gesetzt weden With Sheets(dl).UsedRange On Error Resume Next .FormatConditions.Delete .FormatConditions.Add _ Type:=xlExpression, Formula1:="=REST(ZEILE();2)=0" .FormatConditions(.FormatConditions. _ Count).SetFirstPriority With .FormatConditions(1).Interior .PatternColorIndex = xlAutomatic .ThemeColor = xlThemeColorDark1 .TintAndShade = -0.249946592608417 End With End With Next End Sub

Hallo,
vllt so?

Sub setzeBdFg_Gerade()
Dim dl As Long
Dim op As String
For dl = 1 To Sheets.Count     'hier könnten Bedingungen gesetzt weden
Select Case Sheets(dl).Range(Left(Sheets(dl).UsedRange. _
Address, InStr(1, Sheets(dl).UsedRange.Address, ":") - 1)).Row Mod 2
Case Is = 1
op = "=REST(ZEILE();2)=1"
Case Is = 0
op = "=REST(ZEILE();2)=0"
End Select
With Sheets(dl).UsedRange
On Error Resume Next
.FormatConditions.Delete
.FormatConditions.Add _
Type:=xlExpression, Formula1:=op
.FormatConditions(.FormatConditions. _
Count).SetFirstPriority
With .FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249946592608417
End With
End With
Next
End Sub

Gruß
Jochen

Beliebteste Forumthreads (12 Monate)

nur bedingte Formatierung kopieren

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

77 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

nur bedingte Formatierung kopieren

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

77 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread