Rahmen hinzufügen
Heinz
Im unteren Makro wird bei einen neuen Tab.Blatt alles neu berechnet und Zellen eingefügt.
Nun möchte ich bei
Range(Cells(iRow, 1), Cells(iRow, 15)).Interior.ColorIndex = 34
Das ein dicker Rahmen horizontal eingefügt wird.
Habe selbst mal mir Recorder aufgezeichnet.
Aber im zusammenhang mit unteren Code bekomme ich es nicht fertig.
Könnte mir bitte jemand helfen ?
Gruß
Heinz
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
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
End Sub
For lDay = datStart To datEnd
Select Case WeekDay(lDay, 2)
Case Is 0 Then MsgBox "Fehler: " & Err.Number & vbLf & _
Err.Description
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Anzeige