Code kürzen

Computer: Software & Programmierung Office Software
1

Ist es möglich die ganze Zellenformatierung in eine Schleife zu verbauen.
Irgendwie sieht der Code so sehr lang, für das was er macht, aus.
Die Funktion „With“ kenne ich, da sieht der Code noch länger aus und ich schätze schneller wird er auch nicht sein.

Sub tt()
Dim rng1 as Range

Set rng1 = Range(„A1:A20“)
Set rng2 = Range(„C5:C10“)
Set rng3 = Range(„D7:G20“)

rng1.Interior.Color = 20
rng1.HorizontalAlignment = xlCenter
rng1.Locked = False
rng2.Interior.Color = 20
rng2.HorizontalAlignment = xlCenter
rng2.Locked = False
rng3.Interior.Color = 20
rng3.HorizontalAlignment = xlCenter
rng3.Locked = False

End Sub

2

Hallo Snetto,

probier mal dieses:

Sub tt()
Dim rng As Range
Set rng = Union(Range("A1:A20"), Range("C5:C10"), Range("D7:G20"))
With rng
 .Interior.Color = 20
 .HorizontalAlignment = xlCenter
 .Locked = False
End With
End Sub

Gruß
Reinhard

3

Super.
Ich danke Dir.