bedingte Formatierung nach VBA
Dirk
Ich finde einfach kein Ansatz , immer nur dasselbe.
Ich möchte weg von der bedingten Formatierung
Ich habe bisher ca 20 Blatt in jedem von A34 AB200 diese Formel stehen. (es soll Blockweise eingefärbt werden, richtet sich nach dem Datum, was in Spalt B steht)
Also A34 und dann in jede Zelle kopiert
=REST(SUMME(N($B$33:$B33$B$34:$B34));2)
Aber dadurch wird die Datei sehr groß.
Ist es irgendwie möglich das ganze unter VBA zu realisieren?
Mein Ansatz:
wenn ich etwas in spalte N schreibe, wird in Spalt B das Datum eingetragen, danach soll automatisch Formatiert werden. Das Datum Funktioniert schon...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim bereich As Range
Dim zelle As Range
Set bereich = ActiveSheet.Range("n34:n200")
For Each zelle In bereich
If Not IsEmpty(zelle) And IsEmpty(zelle.Offset(0, -12)) Then
zelle.Offset(0, -12).Value = Date
End If
Next
If Not Intersect(Target, [B34:B200]) Is Nothing And Target.Count = 1 Then
With Target
Select Case Target
End Select
End With
End If
End Sub
Dirk