bedingte Formatierung über alle sheets
26.11.2004 12:42:54
regina
ich möchte über alle Arbeitsblätter eine bedingte Formatierung setzen,
indem ich die zellen a1: t1 markiere und bis ans Ende der Tabelle markiere, die Tabellen sind verschieden lang.
dann soll über bedingte Formatierungen ein Trennstrich erfolgen, nach Spalte B:
habe es aufgezeichnet, aber das klappt so nicht.
Wer kann helfen?
Im Archiv konnte ich nichts passendes finden.
Sub bediFormatalleTab()
Dim sh As Integer
For sh = 1 To Sheets.Count
Range("A1:T1").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$B1<>$B2"
With Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
next sh
End Sub
Vielen dank im voraus.
Gruß regina
Anzeige