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
'Für Spalte C
If Target.Column = 3 Then
strZelle = "$C$" & CStr(Target.Row)
Target.EntireRow.Columns("C:H").Select
Selection.FormatConditions.Delete
'Beispiel für eine Formel, daß Zelle C NICHT leer ist
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & strZelle & "<> """""
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
End If
|