Wie kann ich Ueberschriften schnell formatieren
11.06.2004 21:17:57
MarionW
Vielen Dank im Voraus
Range(Cells(i - 1, 1), Cells(i - 1, 26)).Select
With Selection
.WrapText = True
.Orientation = 90
End With
With Selection.Font
.FontStyle = "Fett"
.Size = 12
End With
With Selection.Interior
.ColorIndex = 33
End With