Clever-Excel-Forum

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

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...

Hallo Helmut,

wenn man einmal auf snb wartet

...

Hat perfekt funktioniert.

Vielen Dank,
Lutz

Lutz Fricke

HKindler

Lutz Fricke