Microsoft Excel

Herbers Excel/VBA-Archiv

Befehl etwas verkürzen | Herbers Excel-Forum


Betrifft: Befehl etwas verkürzen von: Jenny
Geschrieben am: 09.01.2012 08:30:06

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

  

Betrifft: mit .Resize() von: Josef Ehrensberger
Geschrieben am: 09.01.2012 08:40:08


Hallo Jenny,

With ActiveCell.Offset(-4, 0).Resize(4)
  .Font.Bold = False
  .Font.Underline = xlUnderlineStyleNone
  .Font.ColorIndex = 0
  .Interior.ColorIndex = 2
End With





« Gruß Sepp »



  

Betrifft: AW: mit .Resize() von: Jenny
Geschrieben am: 09.01.2012 09:00:19

O das ist aber phantastisch.

Nochmal Danke.
Gruß
Jenny


Beiträge aus den Excel-Beispielen zum Thema "Befehl etwas verkürzen"