VBA-Code in einer Zeile mit mehreren Bereichen

0

Muss ich jeden Zellenbereich in eine separate Zeile setzen, so 

Range("A6:B" & Cells.SpecialCells(xlCellTypeLastCell).Row).HorizontalAlignment = xlLeft
Range("G6:H" & Cells.SpecialCells(xlCellTypeLastCell).Row).HorizontalAlignment = xlLeft

oder kann ich irgendwie Gruppen von Spalten (von einer bestimmten Zelle bis zum Ende), die nicht nebeneinander liegen, in eine einzelne Zeile einschließen? Dieser Code unten scheint nicht für mich zu funktionieren. 

Range("A6:B,G6:H" & Cells.SpecialCells(xlCellTypeLastCell).Row).HorizontalAlignment = xlLeft
microsoft-excel  vba 
— Rayearth
quelle

Antworten:

1

Sie können verwenden Union:

Union(Range("A6:B" & Cells.SpecialCells(xlCellTypeLastCell).Row), Range("G6:H" & Cells.SpecialCells(xlCellTypeLastCell).Row)).HorizontalAlignment = xlLeft

— Máté Juhász
quelle
1
Ich habe es geändert, um zu arbeiten
— Rayearth
Ich habe nach etwas gesucht, um den gesamten Code zu verkürzen, aber ich denke, Ihre Idee entspricht den Kriterien für meine Anfrage. Danke, Mann.
— Rayearth
Durch die Nutzung unserer Website bestätigen Sie, dass Sie unsere Cookie-Richtlinie und Datenschutzrichtlinie gelesen und verstanden haben.
Licensed under cc by-sa 3.0 with attribution required.