Hallo Till,

vielen Dank für deine schnelle Antwort!

Hoffentlich ist es für dich nicht zu lästig noch auf ein paar Fragen einzugehen?

Ich verstehe noch nicht ganz was der erste Teil macht:

Public Enum MyFormateType
    BoldSize10 = 0
    RedSize45 = 1
End Enum

---------------------------------------------------------------------------

Ich habe die Formate definiert:

Public Sub MyFormateTemplates(ByRef rng As Range, FormateType As MyFormateType)
Select Case FormateType
    Case azs12
        With rng.Font
            .Type = "Arial"
            .Size = 12
        End With
        With rng
            .HorizontalAlignment = xlCenter
            .VerticalAlignment = xlCenter
        End With
    Case s10
        ActiveSheet.rng.Font.Size = 10
    Case Xf
        ActiveSheet.rng.Font.Bold = True
    Case spAf
        ActiveSheet.rng.Font.Bold = True
    Case spBTf
        ActiveSheet.rng.Font.Bold = True
    Case spATg
        ActiveSheet.rng.Interior.ColorIndex = 15
    Case spBMg
        ActiveSheet.rng.Interior.ColorIndex = 15
End Select
End Sub

Und dann möchte ich sie (durch folgende Anweisungen in einer anderen Prozedur) auf das ActiveSheeet anwenden:

'ganzes Blatt, Arial, Schriftgröße 12, zentriert
MyFormateTemplates ActiveSheet.Cells, azs12

'Überschriftenzeile Schriftgröße 10
MyFormateTemplates ActiveSheet.Range("c1:ah2"), s10

MyFormateTemplates ActiveSheet.Range(Cells(),Cells()), Xf

u.s.w....

Die Zuordnung ActiveSheet.Range("c1:ah2") stimmt wohl nicht - da die Buchstaben nicht groß werden?

Oder geht das nur mit ActiveSheet.Range(Cells(),Cells()) ?

Wie du siehst habe ich einige Formate - wahr scheinlich muß ich die alle in

Public Enum MyFormateType
    
End Enum

einbauen?

Was macht Public Enum? Bedeuten "1" und "0" hier "True" und "False"?

Vielen Dank für deine sehr gute und sehr schnelle Hilfe!!

Vielleicht wäre es möglich wenn du noch etwas zu meinen Fragen schreiben könntest - wenn es nicht zuviel Mühe macht?

Viele Grüße,

joerg