Mehrere Spalten aus Range auswählen

[Lutz Fricke]

Hallo wertes Forum,

ich stehe da gerade mal wieder vor dem Wald...

Ich habe einen Bereich, aus dem ich in mehreren Spalten (1,3,4,5,7,8) die Textgröße ändern möchte.

Code:

    With .Range(.Cells(3, 1), .Cells(UBound(arrAusgabe, 1) - 1 + 3, 1))
        With .Font
            .Size = 14
            .Bold = True
        End With
    End With
    With .Range(.Cells(3, 3), .Cells(UBound(arrAusgabe, 1) - 1 + 3, 3))
        With .Font
            .Size = 14
            .Bold = True
        End With
    End With

usw...

oder auch wahlweise mit .Cells(Rows.Count, 1).End(xlUp).Row finde ich etwas sperrig...
Geht das auch eleganter?
Ich dachte an irgendwas wie 

Code:

With .Range(.Cells(3, 1), .Cells(UBound(arrAusgabe, 1) - 1 + 3, UBound(arrAusgabe, 2))).columns(1,3,4,5,7,8)

was aber natürlich nicht funzt.

Vielen Dank,
Lutz

[HKindler]

Hi,

nach kurzem Nachdenken und ungetestet würde ich es so lösen:

Code:

With .Range(.Cells(3, 1), .Cells(UBound(arrAusgabe, 1) - 1 + 3, UBound(arrAusgabe, 2)))
    With Union(.Columns(1), .Columns(3), .Columns(4), .Columns(5), .Columns(7), .Columns(8))
        With .Font
            .Size = 14
            .Bold = True
        End With
    End With
End With

Aber wart's ab, gleich kommt snb mit einem Einzeiler ums Eck...

[Lutz Fricke]

Hallo Helmut,

wenn man einmal auf snb wartet  ...

Hat perfekt funktioniert.

Vielen Dank,
Lutz