Hallo allerseits,
habe eine Makro aufgezeichnet, soll unten eine gepunktete
Linie erstellt werden.
Wenn ich dies aktiviere:
' With ActiveSheet
' zeilen = ActiveSheet.Range("B10").End(xlDown).Row
' ActiveSheet.Range(.Cells(11, 2), .Cells(zeilen, 5)).Select
'End With
klappts nicht, damit klappts:
Range("B11:E11,B12:E12,B13:E13,B14:E14").Select
Dim zeilen As Long
' With ActiveSheet
' zeilen = ActiveSheet.Range("B10").End(xlDown).Row
' ActiveSheet.Range(.Cells(11, 2), .Cells(zeilen, 5)).Select
'End With
Range("B11:E11,B12:E12,B13:E13,B14:E14").Select
With Selection.Borders(xlEdgeBottom)
' .Borders(xlDiagonalDown).LineStyle = xlNone
' .LineStyle = xlContinuous
' .ColorIndex = xlAutomatic
' .TintAndShade = 0
.Weight = xlHairline 'feine punkte
End With
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
End Sub
Was habe ich FALSCH gemacht ?
gruß walter p