Recorderaufnahme verbessern
12.11.2018 10:48:57
Michael
Vielen Dank für eure Hilfe
Sub Rekorder2()
' Schriftart und Größe einstellen
Sheets(Array("Tabelle1_Kosten", "Tabelle2_Kosten", "Tabelle3_Kosten", _
"Tabelle4_Kosten", "Tabelle5_Kosten", "Tabelle6_Kosten", _
"Tabelle7_Kosten", "Tabelle8_Kosten", "Tabelle9_Kosten", _
"Tabelle10_Kosten", "Tabelle11_Kosten", "Tabelle12_Kosten", _
"Tabelle13_Kosten", "Tabelle14_Kosten", "Tabelle15_Kosten")).Select
Rows("10:10").Select
Range(Selection, Selection.End(xlDown)).Select
With Selection.Font
.Name = "Calibri"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.TintAndShade = 0
.ThemeFont = xlThemeFontMinor
End With
End Sub