Microsoft Excel

Herbers Excel/VBA-Archiv

Range zusammenfassen (Code abkürzen)? | Herbers Excel-Forum


Betrifft: Range zusammenfassen (Code abkürzen)? von: Florian
Geschrieben am: 05.02.2010 07:43:11

Guten Morgen Excel-Volk!

Habe eine Frage bzgl. Ranges: habe oft verschiedene, nichtzusammenhängende Bereiche, die gleich formatiert werden sollen, z.B.

With .Range(.Cells(8, 2), .Cells(8, 45))
.[FORMAT]
End With

With .Range(.Cells(17, 2), .Cells(17, 45))
.[gleiches FORMAT]
End With

Gibt es eine Möglichkeit, diese beiden Ranges zusammenzufassen, den Code also abzukürzen, so dass ich nicht alles mehrfach schreiben muss?

Vielen Dank schon mal für Eure Hilfe!

Gruss Florian

  

Betrifft: AW: Range zusammenfassen (Code abkürzen)? von: Josef Ehrensberger
Geschrieben am: 05.02.2010 07:54:34

Hallo Florian,


ja, z.B. mit Union()
With Union(.Range(.Cells(8, 2), .Cells(8, 45)), .Range(.Cells(17, 2), .Cells(17, 45)))
'...
End With


Gruß Sepp



  

Betrifft: Cool, Danke Sepp! oT von: Florian
Geschrieben am: 05.02.2010 08:01:12

..


Beiträge aus den Excel-Beispielen zum Thema "Range zusammenfassen (Code abkürzen)?"