ich habe eine kurze Frage an das Excelforum.
Da mir der folgende Befehl sehr lang erscheint, wollte ich wissen ob man ihn etwas einkürzen kann.
Ich habe es schon mit: With ActiveCell.Offset(-1, 0) And ActiveCell.Offset(-2, 0) usw. versucht aber so funktioniert es nicht.
Vielleicht hat jemand eine Ahnung so etwas einzukürzen? Vielen Dank im Vorraus.
Gruß Jenny
With ActiveCell.Offset(-1, 0)
.Font.Bold = False
.Font.Underline = xlUnderlineStyleNone
.Font.ColorIndex = 0
.Interior.ColorIndex = 2
End With
With ActiveCell.Offset(-2, 0)
.Font.Bold = False
.Font.Underline = xlUnderlineStyleNone
.Font.ColorIndex = 0
.Interior.ColorIndex = 2
End With
With ActiveCell.Offset(-3, 0)
.Font.Bold = False
.Font.Underline = xlUnderlineStyleNone
.Font.ColorIndex = 0
.Interior.ColorIndex = 2
End With
With ActiveCell.Offset(-4, 0)
.Font.Bold = False
.Font.Underline = xlUnderlineStyleNone
.Font.ColorIndex = 0
.Interior.ColorIndex = 2
End With