Offset
03.06.2015 09:09:09
Roman
Ich habe folgendes Problem das ich gerne mit einem Makro lösen möchte.
Für ein Wartungsplan hätte ich gerne beim Eintrag eines Datums in eine Zelle einen neuen Vorschlag für den nächsten Wartungstermin.
Wenn ein Datum in eine Zelle einer Zeile eingetragen wird soll die Zelle grün hinterlegt werden und eine weitere Zell mit einem Offset, rot und mit Text Wartung ausgefüllt werden.
Der Offsetwert wird in Zelle A1 eingetragen als W für wöchentlich (Offsetwert= 1),M für monatlich (Offsetwert=4)
Folgendes habe ich bereits versucht komme aber nicht weiter
If Range("A1").Value = "M" Then Range("A1:IV1").End(xlToRight).Offset(0, 4).Select
With Selection.Interior
.Color = 255
End With
ActiveCell.Select
'ActiveCell.FormulaR1C1 = "Wartung"
Das ganze müsste natürlich über mehrere Zeilen einer ganzen Tabelle funktionieren.
Gruss Roman