Im Tabellenblatt wird ein bestimmeter Bereich markiert und anschliessend ein Makro gestartet welches die Zellenfarbe verändert und in Zelle Aktuelle Spalte + 103 einen Wert einträgt. Dieser Wert sollte jedoch nur eingetragen werden wenn in der jeweiligen Spalte der Wert in Zeile 5 nicht 1 ist und in der
jeweiligen Zeile 6 der Wert kleiner 6.
Habe den folgenden Lösungsansatz, aber es geht nicht weil ich vermutlich die ganze Range seletiert habe.
Bitte um Eure Hilfe.
Sub farbe_gruen()
'Blattschutz_AUS
If Cells(5, Selection.Column) <> 1 Or Cells(6, Selection.Column) < 6 Then
Selection.Interior.ColorIndex = 4
Selection.Font.ColorIndex = 4
Selection.Offset(103, 0).Value = 2
'BlattschutzEin
End If
End Sub
Gruss Martin