Hallo,

ich programmiere ein Makro, in dem u.a. auch Formatierungen für bestimmte Zellen / Zellbereiche vorkommen.

Viele Formatierungen wiederholen sich - es werden oft die gleichen Formatierungen auf verschiedene Zellen / Zellbereiche per Makro angewendet.

Da stellt sich doch die Frage, ob man verschiedene Formatierungswünsche zu einem Format zusammenfassen kann und dies dann auf die Zellen / Zellbereiche per Makro angewenden kann?

Die Verwendung von Excel-Vorlagen scheidet aus, da ich denjenigen für den das Makro ist, nur mit einer Datei belasten darf - also es gern weiterhin per Makro machen würde.

Typische Beispiele wären:

ActiveSheet.Cells(2, 1).Interior.ColorIndex = 15
ActiveSheet.Cells(2, 2).Interior.ColorIndex = 15

With ActiveSheet.Range(Cells(1, 1), Cells(zeilen_anz, 1)).Font
    .Bold = True
    .Size = 10
End With

With ActiveSheet.Range(Cells(1, 2), Cells(2, 2)).Font
    .Bold = True
    .Size = 10
End With

With ActiveSheet.Cells(1, 1).Borders
    .LineStyle = xlContinuous
    .ColorIndex = 1
    .Weight = xlMedium
End With

With ActiveSheet.Cells(2, 1).Borders
    .LineStyle = xlContinuous
    .ColorIndex = 1
    .Weight = xlMedium
End With

With ActiveSheet.Range(Cells(3, 1), Cells(zeilen_anz, 34))
    .BorderAround LineStyle:=xlContinuous
    .BorderAround ColorIndex:=1
    .BorderAround Weight:=xlMedium
End With

With ActiveSheet.Range(Cells(3, 2), Cells(zeilen_anz, 2))
    .BorderAround LineStyle:=xlContinuous
    .BorderAround ColorIndex:=1
    .BorderAround Weight:=xlMedium
End With

Es wäre schön, wenn man die sich wiederholenden Formatierungsbefehle irgendwie zusammenfassen könnte - da noch viele andere im Code vorkommen, und der Code oben nur eine exemplarische Auswahl zur Verdeutlichung ist.

Vielen Dank für Hilfe im Voraus!!

Gruß, Jörg