Anpassung Makro Rahmen
Karel
Unterstehende Makro möchte ich gerne anpassen
- anpassen eingabenbereich Range gerne A200:C200
With Range("A6:M" & Range("A200").End(xlUp).Row)
- Wenn eingabebereich leer ist auch die Rahmen gelöscht werden
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Range("A6:M" & Range("A200").End(xlUp).Row)
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
End With
End Sub
GrüßeKarel