Makro Änderung



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Makro Änderung
von: Thomas H.
Geschrieben am: 06.07.2002 - 09:53:32

Hallo Leute,

kann man so ein Makro noch anders Schreiben, noch etwas verkleinern?

Range("T7:U7,T8:U8,V7:W7,V8:W8,X7:Y7,X8:Y8,Z7:AA7,Z8:AA8,AD7:AF7,AD8:AF8,AG7:AI7,AG8:AI8,AJ7:AK7,AJ8:AK8").Select
With Selection
.MergeCells = True
.HorizontalAlignment = xlCenter
End With
With Selection.Font
.Name = "Arial"
.Size = 9
End With

Thomas H.

nach oben   nach unten

Re: Makro Änderung
von: Hajo_Zi
Geschrieben am: 06.07.2002 - 10:00:55

Hallo Thomas

unter VBBA kann auf Select und ähnliche Begriffe Verzichtet werden.


Sub Test()
    With Range("T7:U7,T8:U8,V7:W7,V8:W8,X7:Y7,X8:Y8,Z7:AA7,Z8:AA8,AD7:AF7,AD8:AF8,AG7:AI7,AG8:AI8,AJ7:AK7,AJ8:AK8")
        .MergeCells = True
        .HorizontalAlignment = xlCenter
        .Font.Name = "Arial"
        .Font.Size = 9
    End With
End Sub

Gruß Hajo

nach oben   nach unten

Re: Makro Änderung
von: Thomas H.
Geschrieben am: 06.07.2002 - 10:05:23

Hallo Hajo,

vielen Dank für Deine Hilfe.

Thomas.


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Zweite Seite wird nicht gedruckt !"