Guten Morgen,
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