Hallo zusammen!
Der u.s. Code funktioniert super. Ich möchte nur noch hinzufügen, dass zum Schluss immer die Zelle in Spalte B der aktuellen Zeile ausgewählt wird.
Momentan ist es noch so, dass immer die komplette Zeile von C bis H markiert ist und dies hat sich als unpraktisch erwiesen!
Weiß nicht genau, wie man das formuliert! DANKE
Dim
strZelle
As
String
If
Target.Column = 3
Then
strZelle =
"$C$"
&
CStr
(Target.Row)
Target.EntireRow.Columns(
"C:H"
).
Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:=
"="
& strZelle &
"<> "
""
""
With
Selection.FormatConditions(1).Font
.Bold =
True
.Italic =
False
.ColorIndex = 3
End
With
End
If