Zelle einfärben, wenn...
02.12.2020 14:56:35
Seb
ich suche ein Skript, das eine Zelle einfärbt, sobald in der jeweils unteren Zelle eine Eingabe erfolgt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim spalte As Long
Dim zeile As Long
spalte = Target.Column
zeile = Target.Row
If Intersect(Target, Range("B3:AE100")) Is Nothing And IsEmpty(Target.Value) = False Then
Cells(zeile - 1, spalte).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Else
End If
End Sub
Hiermit funktioniert es leider nicht. Hat jemand eine Idee?
Anzeige