Ich habe mir folgendes Makro überlegt oder zusammengebastelt, jedoch enthält dieses noch Fehler.
Kann mir jemand helfen?
Sub Quartal_Formatierung()
If Sheets("Berechnungen").Range("A1") = 1 Then
Sheets("S1").Range ("r14:r100,aa14:aa100")
Sheets("S2").Range ("r14:r100,aa14:aa100")
Sheets("S3").Range ("r14:r100,aa14:aa100")
Selection.Font.Bold = True
Sheets("S1").Range ("s14:s100,t14:t100,u14:u100,ab14:ab100,ac14:ac100,ad14:ad100")
Sheets("S2").Range ("s14:s100,t14:t100,u14:u100,ab14:ab100,ac14:ac100,ad14:ad100")
Sheets("S3").Range ("s14:s100,t14:t100,u14:u100,ab14:ab100,ac14:ac100,ad14:ad100")
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
End With
Selection.Font.Bold = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Else
If Sheets("Steuerung").Range("A1") = 2 Then
Sheets("S1").Range ("S14:s100,ab14:ab100")
Sheets("S1").Range ("S14:s100,ab14:ab100")
Sheets("S1").Range ("S14:s100,ab14:ab100")
Selection.Font.Bold = True
Sheets("S1").Range ("r14:r100,t14:t100,u14:u100,aa14:aa100,ac14:ac100,ad14:ad100")
Sheets("S2").Range ("r14:r100,t14:t100,u14:u100,aa14:aa100,ac14:ac100,ad14:ad100")
Sheets("S3").Range ("r14:r100,t14:t100,u14:u100,aa14:aa100,ac14:ac100,ad14:ad100")
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.499984740745262
End With
Selection.Font.Bold = False
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End If
End
Sub
Das Makro soll, wenn im Sheet Berechnung eine 1 steht soll sie in den andern Sheets diese _
Formatierungen in diesen Zellen ausführen. WEnn aber in Berechnungen eine 2 steht, soll sie in _
Sheets in folgenden Zellen diese Formatierung ausfüllen, wenn in 3 dann diese u.s.w.
Vielen Dank für die Vorschläge zur Verbesserungen/Korrigierung.
Gruss Thom