Neue Zeile mit fixer Formatierung einfügen
20.02.2018 11:49:46
Thomas
ich habe bereits einen Button erstellt, der mir eine neue Zeile einfügt.
Nun hätte ich aber gerne ein zweites Makro, welches mir ebenfalls eine neue Zeile einfügt, dabei aber die Zelle B"":L"" in einem bestimmtem Format wiedergibt (Zellen verbinden, Hintergrund, Schriftfarbe etc.)
Per Makroaufzeichnung bekomme ich das Format zwar hin, allerdings fixiert er das immer auf eine bestimmte Zeile (zB B19:L19).
Gibt es da eine Option, bei der die neue Zeile immer über/unter der aktuell markierten Zeile eingefügt wird?
Anbei mal mein Makro (aber wie gesagt nur per Aufzeichnung):
Sub TestFürZeilenformat()
' TestFürZeilenformat Makro
Range("B19:L19").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlTop
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.PatternTintAndShade = 0
End With
With Selection.Font
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
Selection.Font.Size = 12
Selection.Font.Bold = True
ActiveCell.FormulaR1C1 = "Insert header here"
End Sub
Danke & VG
Thomas