gibt es eine Moeglichkeit bestimmte Zellen schnell und elegant zu formatiern. Ich kann dies leider nur per Recorder und erhalte einen extrem langen Code. Gibt es eine moeglichkeit dies zu verkuerzen. (mit ein paar generellen hinweisen waere mir schon viel geholfen
vielen Dank im Voraus
Range(Cells(1, 4), Cells(1, 7)).Select
Selection.NumberFormat = "#,"
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
'conditional formating
Range(Cells(2, 4), Cells(numberoflines + 2, 7)).Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, Formula1:="=$N$5", Formula2:="=3*$N$5"
Selection.FormatConditions(1).Interior.ColorIndex = 34
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlBetween, Formula1:="=3*$N$5", Formula2:="=4*$N$5"
Selection.FormatConditions(2).Interior.ColorIndex = 6
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlGreaterEqual, Formula1:="=4*$N$5"
Selection.FormatConditions(3).Interior.ColorIndex = 7
Columns("D:G").EntireColumn.AutoFit 'columns 4-7