ActiveCell.Offset
04.07.2008 09:55:16
erwin
ich habe nachfolgendes Makro (nur Ausschnitt), welches richtig läuft und Zellen farbig markiert.
Ich würde aber ganz gerne in der Zeile mit "ActiveCell.Offset...) nicht nur die 9. sondern auch die 10. und 11. Zelle rechts von der aktiven Zelle markieren/einfärben.
Wie geht das. ohne dass ich immer wieder den Befehl schreiben muss bzw. wie kann man einen Bereich markieren (der Befehl "Range("x1:x1").Select" funktioniert nicht, da ich irgendwo in der Tabelle stehen kann).
Sub Zellen_farbig()
ActiveCell.Select
With Selection.Interior
.ColorIndex = 34
.Pattern = xlSolid
End With
ActiveCell.Offset(rowOffset:=0, columnOffset:=9).Activate
With Selection.Interior
.ColorIndex = 33
.Pattern = xlSolid
End With
End Sub
Anzeige