Mittels Button relativen Bereich färben
ph_cux
Ich brauch eure Hilfe und zwar benötige ich einen Button, der mir mehrere Zellen, die ich innerhalb einer Zeile markiert habe, sowie noch jeweils 3 Zellen, die direkt unter den markierten Zellen liegen farblich einfärbt.
Durch ausprobieren und google habe ich folenden Code erstellt:
Private Sub CommandButton1_Click()
Range(ActiveArea, Active.Offset(3, 0)).Select
Selection.Interior.ColorIndex = 14
End Sub
Dieser funktioniert im Prinzip, nur wenn ich mehr als eine Zelle pro Zeile markiert habe, wird immer nur die erste Zelle mit den darunterliegenden Zellen eingefärbt, anstatt des gesamten markierten Bereichs.
Ich hoffe das ist einigermaßen verständlich und ihr könnt mir helfen!
Vielen Dank vorab und Gruß,
Philipp