Hi,
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 IsEmpty(ActiveCell.Value) = False Then
Cells(zeile - 1, spalte).Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorAccent6
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Ich habe es so probiert, das funktioniert aber leider nicht. Hat jemand eine Idee?
|